¿Cómo guardar los datos en el cuadro de texto en VB?
Este método se puede implementar utilizando la función API para leer y escribir el archivo de configuración. El ejemplo de referencia es el siguiente: Primero declare la API: Función de declaración privada WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA. " (ByVal lpApplicationName como cadena, ByVal lpKeyName como cualquiera, ByVal lpString como cualquiera, ByVal lpFileName como cadena) siempre y cuando
Función de declaración privada GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName como cadena , ByVal lpKeyName como cualquiera, ByVal lpDefault como cadena, ByVal lpReturnedString como cadena, ByVal nSize como larga, ByVal lpFileName como cadena) como larga Guarde el contenido de Text1 en E:\a.ini:
Private Sub Command1_Click()
WritePrivateProfileString "UserName ", "User", Text1.Text, "E:\a.ini"
End Sub Lee el contenido de E:\a.ini into text2 Private Sub Command2_Click()
Dim inistring As String
inistring = Space$(254)
GetPrivateProfileString "Nombre de usuario", "Usuario", "" , inistring, 255, "E:\a. ini"
Text2.Text = CStr(inistring)
End Sub