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.

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 2 del Vídeo:



Código Usado:

Dim ArchivosAplicacion(3) As String

Sub ListaArchivosConfiguracion()
    ArchivosAplicacion(0) = App.Path & "/configuracion.ini"
    ArchivosAplicacion(1) = App.Path & "/tiket.ini"
    ArchivosAplicacion(2) = App.Path & "/Db/Dbventas.accdb"
    ArchivosAplicacion(3) = App.Path & "/urldb.txt"
End Sub
Sub VerificarExisteArchivo(Num)
 
    Resulconsulta = Dir(ArchivosAplicacion(Num))
    If Len(Resulconsulta) > 0 Then
       lblVerificando.Caption = lblVerificando.Caption & "Ok"
    Else
       MsgBox "El archivo " & ArchivosAplicacion(Num) & " No existe verifique", vbCritical, "Error Critico"
       Timer1.Enabled = False
       Unload Me
     
    End If

End Sub
Sub ConsultaDirectorios(Tiempo)
    Select Case Tiempo
        Case 1
            lblVerificando.Caption = "Verificando ..."
        Case 2
            lblVerificando.Caption = "Verificando archivos de configuración ..."
            Call VerificarExisteArchivo(0)
        Case 3
            lblVerificando.Caption = "Verificando archivos de ticket ..."
            Call VerificarExisteArchivo(1)
        Case 4
            lblVerificando.Caption = "Verificando archivos de Base de datos ..."
            Call VerificarExisteArchivo(2)
        Case 5
            lblVerificando.Caption = "Cargando archivo de ubicación de DB ..."
        Case Else
            Timer1.Enabled = False
            Unload Me
            Form1.Show
    End Select
End Sub

Private Sub Form_Load()
    Call ListaArchivosConfiguracion
End Sub

Private Sub Timer1_Timer()
   Static Tiempo
    Tiempo = Tiempo + 1
    Call ConsultaDirectorios(Tiempo)
 
End Sub

Comentarios

Publicar un comentario

Entradas más populares de este blog

Creación de la Base de Datos y Conectado con ADO y Formulario Login

Imagen
Esta sección cubre: Creando tablas Usuarios y Tipo de usuarios Creando el Modulo de Conexión Haciendo la Conexión con la base de datos Formulario de Login El Diagrama de Base de datos a utilizara para el manejo de usuario es este: Códigos utilizados: Modulo de Conexión Global ConexionADO As New ADODB.Connection Global DireccionDb As String Sub UbicacionDb()         DireccionDb = GLeerArchivo(App.Path & "\url.txt")           End Sub Sub AbrirConexionADO()     Call UbicacionDb          ConexionADO.CursorLocation = adUseClient     ConexionADO.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & DireccionDb & ";Jet OLEDB:Database Password=1qazxsw2"      End Sub Modulo de Funciones: Function GLeerArchivo(url As String) As String     Dim Linea As String     Dim Texto As String ...
Leer más

Formulario Datos de la Empresa, Uso del control Common Dialog

Imagen
Vídeo: Vídeo 2: Se organiza la ventana de Datos de la Empresa. Se implemento un control  Common Dialog para la seleccionar la imagen del logo. Botón Abrir Imagen evento Clic del Formulario frmDatosEmpresa Private Sub cmdAbrirImage_Click()     CommonDialog1.Filter = "Archivo de Imagen|*.jpg|*.jpeg"     CommonDialog1.ShowOpen     If CommonDialog1.FileName <> "" Then        txtLogo.Text = CommonDialog1.FileName        imgLogo.Picture = LoadPicture(txtLogo.Text)     Else        txtLogo.Text = ""     End If End Sub El siguiente metodo se utiliza para Guardar o Actualizar los datos del empresa, este código se encuentra en el modulo  mod_Consultas  Sub GuardarDatosEmpresa(Nombre As String, Propie As String, Nit As String, Telefono As String, Direcc As String, logo As String, Descrip As String, Regimen As Integer, Resoluc As ...
Leer más

Imagen de Intro creada en Photoshop para el formulario de Inicio

Imagen
En este vídeo enseño como usar Photoshop para crear una imagen Intro. Esta se colocará de fondo en el formulario lo que hace que a primera vista impacte y cliente se lleve una buena imagen del Software. Les enseñare como crear este imagen intro: En esta ventana se colocara el numero de la versión del software y se usara el control Timer para controlar el tiempo que demorara la ventana visible en ese tiempo crearemos unas funciones que verifiquen que existan los archivos de configuración y base de datos de la aplicación y le mostraremos al usuario esa información. Les llama la atención el nombre que escogí fue idea de mi esposa que me dice que ese nombre no se les va a olvidar eso mismo hizo la empresa Apple 😆.  Pueden descargar el zip con las imagenes y las fuentes usadas de aquí 
Leer más