VB中text的值怎么设置为默认

Question

每次打开窗体后,text中都是默认的上一次输入的值,要怎么设置

Answer 1

这不是设置的事儿，每次退出程序后，要将当前 Text1.Text 的值保存当磁盘中，下次运行时再读取。

 

读取的代码示例：

Dim textLine as string
Open "C:\1.txt" For Input As #1
Line Input #1, textLine
Text1.Text = textLine '读取 C:\1.txt 第一行到 Text1.Text
Close #1

 

保存的代码示例：

Open "C:\1.txt" For Output As #1  
Print #1, Text1.Text '将 Text1.Text 保存至 C:\1.txt
Close #1

 

xyc5932 的回答是读写INI的，需要调用相关 API，题主可自行查阅。

Answer 2

最简单就是用 savesetting 把他保存在注册表中然后再用getsetting读出来就行了

Answer 3

直接在属性窗口里text属性那输入值就可以啊……因为text控件的默认属性就是text属性

Answer 4

Private Sub Command1_Click()
SaveSetting App.EXEName, "Times", "Index", Text1.Text '保存数据
End Sub

Private Sub Form_Load()
Me.Text1.Text = GetSetting(App.EXEName, "Times", "Index", "None") '读取数据
End Sub

Answer 5

配置个INI文件吧。这样容易些