求教！如何设计具有“记忆能力”的TextBox?

[ask999]

有一个窗体Form1,放置控件TextBox1
问题(1)：如何让Text1具有“记忆功能”。如第一次载入Form1后，在TextBox1中输入“北京”，然后关闭Form1。以后每次载入From1时， 能在TextBox1中自动填入“北京"。
问题(2)：在满足问题(1)的同时TextBox1具有判断只显示最后一次输入TextBox1内容的能力。

[of123]

Private Sub Form_Load()
Dim tmp As String
Open App.Path & "\text1.txt" For Input As #1
Input #1, tmp
Close #1
Text1.Text = tmp
End Sub


Private Sub Form_Unload(Cancel As Integer)
Open App.Path & "\text1.txt" For Output As #1
Print #1, Text1.Text
Close #1
End Sub

[of123]

Private Sub Form_Load()
Dim tmp As String
Open App.Pth & "\text1.txt" For Input As #1
Input #1, tmp
Close #1
Text1.Text = tmp
End Sub


Private Sub Form_Unload(Cancel As Integer)
Open App.Pth & "\text1.txt" For Output As #1
Print #1, Text1.Text
Close #1
End Sub

[jlum99]

可编辑的combox

[ufcr]

写注册表
SaveSetting appName, section, Key, setting
strRet = GetSetting(appName, section, Key)

简单，好控制

[luzufu]

Private Sub text1_Change()
SaveSetting appname:="aa", Section:="bb", Key:="cc", setting:="管理员"
SaveSetting "aa", "bb", "cc", txtName
End Sub
你可以试试

[道素]

存入一全局变量，数据多可以定义一个全局结构

[lihonggen0]

把text中的字符写入ini文件

启动程序时加载

[lihonggen0]

如果是程序不用关闭，记录text的值

就在模块中定义全局变量

[xingnup]

UP,答案同上.也可以写入普通文件,因为ini文件要用API读写.

[didishu0807]

如果程序没关闭：做一个全局变量来记录text1的值
若程序关闭了，就要用专门的文件来存储

[射天狼]

窗口不要用UNLOAD关闭,用HIDE引藏,显示的时候用SHOW就可以了,不从内存中删除,窗口中显示的还是关闭时候的值.

[射天狼]

如果你整个程序都关闭了,那就需要借助外部文件或者注册表来保存了.打开的时候再加载.

[lxcc]

form_load
text1.text="北京"