Question

VB中退出窗体时如何保存窗体上的内容保存在窗体上？

Answer 1

Public 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
Public 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
调用上面的API 读写函数，退出时将要保存的内容写入一个ini文件，再次加载该窗体时读取内容，例如：退出时 ，写入
Call WritePrivateProfileString("UserINFO", "UserName", TxtUserName.Text, SysIniFile)
Call WritePrivateProfileString("UserINFO", "UserPSW", TxtUserPSW.Text, SysIniFile)
加载时读取
TxtUserName.Text = ReadIniString("UserINFO", "UserName", SysIniFile, "")
TxtUserName.Text = ReadIniString("UserINFO", "UserPSW", SysIniFile, "")

Answer 2

将窗体的.AutoRedraw 属性设为 True 就可以了,窗体不是退出而是隐藏.窗体退出后现加载当然什么也没有了.

Answer 3

是不能保存的。
但是你可以把内容写到外部文件上，比如INI，XML等。
然后再下次调用该窗体时去读取文件。

Answer 4

左上角有一个文件，你点他，里面有一个很隐蔽的保存，看到你就点，看不到就算了

追问

你没理解我的意思。我的意思是：
Private Sub Command1_Click()
Print "aaa" ' 在窗体上打印：aaa
End Sub
然后退出窗体，在加载窗体时还能看到：aaa

追答

那我不知道了，你问问其他高手吧，对不起啊，帮不到你Private Sub form_load
Print "aaa" ' 在窗体上打印：aaa
End Sub 或者将窗体的.AutoRedraw 属性设为 True 就可以了,窗体不是退出而是隐藏.窗体退出后现加载当然什么也没有了.

Answer 5

Private Sub form_load
Print "aaa" ' 在窗体上打印：aaa
End Sub