Private Sub Command1_Click() '登入按钮 Open App.Path & "pass.txt" For Output As #1 Print #1, Text1.Text Print #1, Text2.Text Close #1 End Sub Private Sub form_load() '窗体加载时发生的事件 If Dir(App.Path & "pass.txt") <> "" Then Open App.Path & "pass.txt" Fo...
需要保存当前数据,形式有:保存到文本文件,VB的文件操作 保存到ini文件,使用特殊函数WritePrivateProfileString,GetPrivateProfileString 保存到注册表,使用函数GetSetting,SaveSetting,DeleteSetting 保存到数据库,VB的数据库操作 在这之前,最好为每个数据取个名称,形成“名/值”对,这样即使直接打开文件...
VB可使用Write # 语句语句保存文本框的数据到文本顺序文件。再次运行程序上用Input # 语句从原保存的文本文件加载数据到原文本框。Write # 语句,将数据写入顺序文件。Input # 语句,从已打开的顺序文件中读出数据并将数据指定给变量。通常用 Input # 从文件读出 Write # 写入的数据。Open 语句,能够...
SaveSetting App.Title, "Text2", "Text", Text2.Text SaveSetting App.Title, "Text3", "Text", Text3.Text SaveSetting App.Title, "Text4", "Text", Text4.Text End Sub 这样就行了程序关闭后自动在注册表HKEY_CURRENT_USER\Software\VB and VBA Program Settings\工程名字\下面存放!加...
在窗体的Form_Load()事件里,用GetSetting函数恢复这几个内容。例如:(我们假设"密码"这个输入框是Text1)private sub Form_UnLoad()SaveSetting App.ExeName,"DEFAULT","Text1",Text1.Text 'Save Text2 'Save Text3 end sub private sub Form_Load()Text1.Text=GetSetting(App.ExeName,"DEFAULT...
Private Sub Command1_Click()Dim a As Single, b As String b = Text1 '将上一次的结果保存在变量B中 a = InputBox("请输入X:")Text1 = js(a)Text2 = b End Sub Function js(a As Single) As Single'这是计算公式,你可以改其他的 If a <= 10 Then js = 50 - a ^ 2 Else...
Private Sub Form_Load()Text1.Text = GetSetting("hello", "haha", "xixi", "")End SubPrivate Sub Form_Unload(Cancel As Integer)SaveSetting "hello", "haha", "xixi", Text1.TextEnd Sub
'这个就是退出时保存文件 '文件路径就随便你要保存到哪里。例如c:\data.dat private form_unload()open 文件路径 for output as #1 print #1,text1,text2 close #1 '这个就是打开时显示上次保存的内容。private form_Load()open 文件路径 for input as #1 input #1,text1,text2 close #1 ...
用第四个值为默认值 该处对就上面的config.ini配置文件获取的值是D:\e.exe 保存(写入)的示例 Call PutIniS(App.Path & "\config.ini", "File", "InputDir", File_in.Text)保存File_in文本框中的内容到config.ini中的对应项 app.path 指的是当前软件所在目录 不懂得的问QQ4037168 ...
写入:Open App.Path & "\列表.txt" For Output As #1 For i = 0 To List1.ListCount - 1 Print #1, List1.List(i)Next i Close #1 读出:Dim strTxt If Dir(App.Path & "\列表.txt") <> "" Then Open App.Path & "\列表.txt" For Input Access Read As #1 Do While Not ...