none
Hacer progress bar en el Formulario de Presentación Splash mediante módulos RRS feed

  • Pregunta

  • Tengo un Formulario de Presentación, otro de Login y otro el menú principal, lo que quiero es que en la presentación se ejecute una serie de métodos de comprobación que tengo en modulo, por ejemplo:

    Public sub Comprobar Puertos()

    ** Codigo del metodo

    end sub

    Public Sub Comprobar_BD()

    ** Codigo del metodo

    end sub

    Public Sub Otras_Comprobaciones()

    end sub

     

    Y cuando se termine de ejecutar esos métodos, avance la barra de progreso, algo así como el programa de limewire

    En el modulo principal lo tengo con el siguiente codigo

     Public Nombre_Usuario As String
        Public Id_Usuario As String
        Public Nivel_Usuario As Integer

    Module Mod_Principal
        Public Correct_Acceso As Boolean=false 
        Dim frmSplash As FRMINICIO                  *** Es el formulario de presentacion Splash
        Dim frmLogin As FRMAUTENTIFICACION     ****El Formulario del Login, si es correcto el login cambia el valor de Correct_Acceso a true

        Dim frmMain As FRMMENUPRINCIPAL   ***Menu Principal
        Dim splashTimer As Timer
        Public Sub main()
            Application.EnableVisualStyles()
            splashTimer = New Timer()
            AddHandler splashTimer.Tick, AddressOf TimerTick
            splashTimer.Interval = 5000
            splashTimer.Start()
            frmSplash = New FRMINICIO
            frmSplash.ShowDialog()

            frmLogin = New FRMAUTENTIFICACION
            frmLogin.ShowDialog()
            If Correct_Acceso = True Then
                frmMain = New FRMMENUPRINCIPAL
                frmMain.RECIBE(Nombre_Usuario, Id_Usuario, Nivel_Usuario)
                Application.Run(frmMain)
            End If

        End Sub
        Private Sub TimerTick(ByVal sender As Object, ByVal e As EventArgs)
            splashTimer.Stop()
            frmSplash.Close()
        End Sub

    End Module

    • Cambiado Enrique M. Montejo martes, 10 de diciembre de 2013 17:27 Controles de Windows Forms
    martes, 26 de noviembre de 2013 21:44

Todas las respuestas

  • Hola:
    No entiendo que es lo que quieres hacer.
    Te paso un ejemplo de una barra de progreso.
    En un Form con 1 Button y 1 ProgressBar, copia y pega el siguiente codigo

    Public Class Form1

        Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
            lP_Barra()
        End Sub

        Private Sub Form1_Load(sender As Object, e As System.EventArgs) Handles Me.Load
            lP_Barra()
        End Sub

        Private Sub lP_Barra()
            Me.ProgressBar1.Value = 0
            Dim liValor As Integer = 100
            For liCiclo As Integer = 0 To 1000
                Me.ProgressBar1.Value = CInt(liCiclo / 1000) * liValor
            Next
        End Sub
    End Class

    Un saludo desde Bilbo
    Carlos

    miércoles, 27 de noviembre de 2013 10:13
  • Eso lo se hacer pero no es a lo que me refiero, lo que quiere es que se ejecute algunos métodos que tengo en el modulo y a medida que lo haga, avance la barra de progreso
    miércoles, 27 de noviembre de 2013 13:44