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

2024年11月19日 11:22
有5个网友回答
网友(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, "")

网友(2):

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

网友(3):

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

网友(4):

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

网友(5):

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