VB中怎樣設置將文本框中的數據保存下來？

這個方法可以利用API函數讀寫配置文件實現，參考例子如下：首先申明API：Private Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long

Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long 將Text1的內容保存到E:\a.ini中：

Private Sub Command1_Click()

WritePrivateProfileString "UserName", "User", Text1.Text, "E:\a.ini"

End Sub 將E:\a.ini的內容讀取到text2中Private Sub Command2_Click()

Dim inistring As String

inistring = Space$(254)

GetPrivateProfileString "Username", "User", "", inistring, 255, "E:\a.ini"

Text2.Text = CStr(inistring)

End Sub