Question

VB里面怎样保存最后一次编辑的TEXT文本框的内容。

你好，请你帮忙一下好吗？在同一界面上，创建了N多个TEXT文本框，不少于一百个，然后一个“保存”按键，每次编辑后点保存，下次打开软件后仍然显示最后一次编辑的数据，请给我一个“保存”键里面所需的代码好吗？

Answer 1

如果数据有规律的话，不少于一百个这样的规模还是写入数据库更好。
操作.ini文件也可行，就是代码码起来烦。

以下代码放在一个模块中 用于读取和写入ini文件用的
Option Explicit
'以下为读取ini的API
Private 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
Private 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
Public inifilename As String '配置文件的名称，在窗体load事件中初始化
'读取INI
Function GetIniS(ByVal inifilename As String, ByVal SectionName As String, ByVal KeyWord As String, Optional ByVal DefString As String) As String
Dim ResultString As String * 128, Temp%
Dim s$, i%
Temp% = GetPrivateProfileString(SectionName, KeyWord, "", ResultString, 144, inifilename)
'检索关键词的值
If Temp% > 0 Then '关键词的值不为空
For i = 1 To 128
If Asc(Mid$(ResultString, i, 1)) <> 0 Then
s = s & Mid$(ResultString, i, 1)
End If
Next
Else
Temp% = WritePrivateProfileString(SectionName, KeyWord, DefString, inifilename) '将缺省值写入INI文件
s = DefString
End If
GetIniS = s
End Function
'写入INI
Function PutIniS(ByVal inifilename As String, ByVal SectionName As String, ByVal KeyWord As String, Optional ByVal DefString As String) As String
Dim ResultString As String * 128, Temp%
Dim s$, i%
Temp% = GetPrivateProfileString(SectionName, KeyWord, "", ResultString, 144, inifilename)
'检索关键词的值
Temp% = WritePrivateProfileString(SectionName, KeyWord, DefString, inifilename) '将缺省值写入INI文件
End Function
'模块内的内容到此结束
config.ini文件中的行
[File]
InputDir=D:\e.exe

读取的示例
File_in.Text=GetIniS(App.Path & "\config.ini", "File", "InputDir", App.Path)
GetIni函数有4个参数
第一个是从哪个配置文件中获得数据
第二个是从配置文件的那个节点获得信息
第三个是从对应该节点的那个项目上获得信息
第四个是如果信息不存在时，用第四个值为默认值
该处对就上面的config.ini配置文件获取的值是D:\e.exe

保存(写入)的示例
Call PutIniS(App.Path & "\config.ini", "File", "InputDir", File_in.Text)
保存File_in文本框中的内容到config.ini中的对应项
app.path 指的是当前软件所在目录 不懂得的问QQ4037168

Answer 2

方案1，将数据写入到数据库中，每次打开时读取数据记录。
方案2，写入.ini文件或文本
方案3，写入到注册表。

Answer 3

Private Sub Command1_Click()
Open "d:\date.txt" For Output As #1
For i = 1 To 2 '2你可以改为text的数量
Print #1, Controls("text" & i).Text
Next
Close
End Sub

Private Sub Form_Load()
Open "d:\date.txt" For Input As #1
Do Until EOF(1)
Line Input #1, a
n = n + 1
Controls("text" & n).Text = a
Loop
Close
End Sub

Answer 4

VB不是我的强项，让他们帮你吧~~~~~~