Parte 4 - Uso del Control Timer en el Formulario de Inicio

En este vídeo explico como se utiliza el control Timer, y como usamos varias funciones de visual como Dir, App que son necesarias para lo que queremos lograr con nuestra pantalla de Inicio.

Colabora y Suscribete a mi canal de

La función Dir: Devuelve una cadena que representa el nombre de un archivo, directorio o carpeta que coincide con un modelo especificado o atributo de archivo o la etiqueta de volumen de una unidad.

La Funcion App.path: Devuelve la ubicación actual de nuestra aplicación con respecto a la raíz del disco duro.

Parte 1 del Video:

Parte 2 del Vídeo:

Código Usado:

Dim ArchivosConfiguracion(3) As String
Sub CargarNombresArchivo()
    ArchivosConfiguracion(0) = App.Path & "/configuracion.ini"
    ArchivosConfiguracion(1) = App.Path & "/ticket.ini"
    ArchivosConfiguracion(2) = App.Path & "/url.txt"
    ArchivosConfiguracion(3) = App.Path & "/Db/DbVentas.accdb"
End Sub

Sub VerificarArchivo(Num)
    Dim Resultado As String
    
    Resultado = Dir(ArchivosConfiguracion(Num))
    If Len(Resultado) > 0 Then
       lblVerificando.Caption = lblVerificando.Caption & "OK"
    Else
       MsgBox "EL archivo " & ArchivosConfiguracion(Num) & ", No existe verifique", vbCritical, "Error Critico"
       Timer1.Enabled = False
       Unload Me
       
    End If
    
End Sub


Sub ConsultaDirectorio(Tiempo As Integer)
    Select Case Tiempo
        Case 1:
            lblVerificando.Caption = "Verificando archivo de configuracion ..."
            Call VerificarArchivo(0)
        Case 2:
            lblVerificando.Caption = "Verificando archivo de ticket ..."
            Call VerificarArchivo(1)
        Case 3:
            lblVerificando.Caption = "Verificando archivo de ubicación de DB ..."
            Call VerificarArchivo(2)
        Case 4:
            lblVerificando.Caption = "Verificando archivo de Base de datos ..."
            Call VerificarArchivo(3)
        Case Else
            Timer1.Enabled = False
            Unload Me
            frmLogin.Show
    End Select
End Sub