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
Total Page Visits: 5316 - Today Page Visits: 1