[Guía] Crear una Agenda en VB 6.0



  • **Empezamos,

    Abrimos el Visual Basic y Creamos 3 TextBox y 2 Command, donde se crean los usuarios.

    En el primer TextBox va el nombre de la persona.
    En el segundo TextBox va el E-Mail de la persona.
    En el tercer TextBox va el lugar de residencia.

    En el Command 1 Poner:

                If Not FileExist(App.Path & "\CUENTAS\" & text1.text & ".DAT", vbNormal) Then
                    'Escribimos Datos.
                    Call WriteVar(App.Path & "\CUENTAS\" & text1.text & ".DAT", "DATOS", "Persona", text1.text)
                    Call WriteVar(App.Path & "\CUENTAS\" & text1.text & ".DAT", "DATOS", "Email", text2.text)
                    Call WriteVar(App.Path & "\CUENTAS\" & text1.text & ".DAT", "DATOS", "Residencia", text3.text)
    Else
    MsgBox "La persona ya se encuentra creada"
    End If
    

    En el Command 2 Poner

    Form2.show 'pongan el nombre del otro form acá
    Unload Me
    

    Hacemos un Nuevo Formulario.

    En el cual ponemos:

    3 TextBox donde aparecerá la información de la Persona.

    Un Command.

    En el command Ponemos:

     Text1.text = GetVar(App.Path & "\CUENTAS\" & text1.text & ".DAT", "DATOS", "Persona")
    Text1.text = GetVar(App.Path & "\CUENTAS\" & text1.Text & ".DAT", "DATOS", "Email")
    Text1.text = GetVar(App.Path & "\CUENTAS\" & text1.Text & ".DAT", "DATOS", "Residencia")
    

    Y por ultimo creamos un módulo con lo sigiente:

     Option Explicit
    
    'Funcion para ver si existe.
    Public Function FileExist(file As String, FileType As VbFileAttribute) As Boolean
    
    FileExist = Len(Dir$(file, FileType))
    
    End Function
    
    'Function de GetVar (PEDIR DATOS).
    Function GetVar(ByVal file As String, ByVal Main As String, ByVal Var As String, Optional EmptySpaces As Long = 1024) As String
    
    Dim sSpaces As String ' This will hold the input that the program will retrieve
    Dim szReturn As String ' This will be the defaul value if the string is not found
    
    szReturn = ""
    
    sSpaces = Space$(EmptySpaces) ' This tells the computer how long the longest string can be
    
    GetPrivateProfileString Main, Var, szReturn, sSpaces, EmptySpaces, file
    
    GetVar = RTrim$(sSpaces)
    GetVar = Left$(GetVar, Len(GetVar) - 1)
    
    End Function
    
    'Sub de WriteVar (ESCRIBIR DATOS).
    Sub WriteVar(ByVal file As String, ByVal Main As String, ByVal Var As String, ByVal value As String)
    
    writeprivateprofilestring Main, Var, value, file
    
    End Sub
    
    

    Tutorial echo por Francohhh.- Para el foro de TDS.

    Atte: Francohhh.-**



  • Estaría bueno que expliquen para que sirve CADA cosa.

    -Che, si está hecho por vos porque hay comentarios en ingles? 😧



  • **Los códigos del Módulo los saqué de un text que tengo yo con varios códigos utiles por eso.

    Pero toda la idea y la funcion de cada cosa la idee yo.**


Log in to reply