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
Síguenos:
Suscribete a Youtube
Siguenos en Twitter
Siguenos en Facebook
Siguiente Lección Parte 5 – Creación de la Base de Datos y Conectado con ADO y Formulario Login
También te podría interesar:
Total Page Visits: 5958 - Today Page Visits: 1