¿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