vb怎么在text中重复打开记事本实现刷新功能

发布网友发布时间：2022-04-19 09:50

我来回答

共3个回答

热心网友时间：2023-07-01 02:39

VB可使用Write # 语句语句保存文本框的数据到文本顺序文件。再次运行程序上用Input # 语句从原保存的文本文件加载数据到原文本框。

Write # 语句，将数据写入顺序文件。

Input # 语句，从已打开的顺序文件中读出数据并将数据指定给变量。

通常用 Input # 从文件读出 Write # 写入的数据。

Open 语句，能够对文件输入/输出 (I/O)。

保存数据代码：

Private Sub cmdExit_Click()

TxtgbwdS_sj = TxtgbwdS

Txtgbwdx_sj = Txtgbwdx

TxtZpwds_sj = TxtZpwds

TxtZpwdx_sj = TxtZpwdx

Open App.Path & "\data\data.txt" For Output As #1

Write #1, TxtgbwdS_sj, Txtgbwdx_sj, TxtZpwds_sj, TxtZpwdx_sj

Close #1

End Sub

加载代码

Private Sub Form_Load()

On Error GoTo uerror

Open App.Path & "\data\data.txt" For Input As #1

Input #1, TxtgbwdS_sj, Txtgbwdx_sj, TxtZpwds_sj, TxtZpwdx_sj

Close #1

TxtgbwdS = TxtgbwdS_sj

Txtgbwdx = Txtgbwdx_sj

TxtZpwds = TxtZpwds_sj

TxtZpwdx = TxtZpwdx_sj

uerror:

End Sub

热心网友时间：2023-07-01 02:39

答案补充：你倒是试试啊，没有尝试完所有的答案，补充什么啊？
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
打开，随便在Text1中输入什么东西，关闭，再打开，看看效果。
代码如下。
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
Private Sub Form_Load()
Text1.Text = GetSetting(App.Title, "settings", "text1.text")
End Sub

Private Sub Form_Unload(Cancel As Integer)
SaveSetting App.Title, "settings", "text1.text", Text1.Text
End Sub

热心网友时间：2023-07-01 02:40

不太明白楼主这个”第二次打开“是什么意思

如果是关闭应用程序，然后再打开应用程序的话，那可以将数字写入文件中，打开后再去读取文件中的值，或者写入注册表中，从注册表中读出也可

如果是关闭当前窗口，然后再第二次打开的话，那将数字放入一个全局变量就可以了