Question

vb 点击command1保存text1text3text4，打开软件以后自动读取text1text2text3上次保存的内容

vb 点击command1保存text1text3text4，打开软件以后自动读取text1text2text3上次保存的内容

Answer 1

Private Sub Command1_Click()
SaveSetting App.Title, "TEXT", "1", Text1.Text
SaveSetting App.Title, "TEXT", "2", Text2.Text
SaveSetting App.Title, "TEXT", "3", Text3.Text
End Sub

Private Sub Form_Load()
Text1.Text = GetSetting(App.Title, "TEXT", "1", "")
Text2.Text = GetSetting(App.Title, "TEXT", "2", "")
Text3.Text = GetSetting(App.Title, "TEXT", "3", "")
End Sub

Answer 2

Private Type RecHsd
Cxxw(4) As String * 1000
End Type
Private Sub Command1_Click()
Dim HsdRec As RecHsd
Dim FN1 As Integer
FN1 = FreeFile(0)
Open "c:\c.txt" For Random As #FN1 Len = Len(HsdRec)
HsdRec.Cxxw(0) = Text1.Text
HsdRec.Cxxw(1) = Text2.Text
HsdRec.Cxxw(2) = Text3.Text
Put #FN1, 1, HsdRec
Close #FN1
End Sub

Private Sub Form_Load()
Dim HsdRec As RecHsd
Dim FileN1 As Integer
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
FileN1 = FreeFile(0)
Open "c:\c.txt" For Random As #FileN1 Len = Len(HsdRec)
Get #FileN1, 1, HsdRec
Text1.Text = HsdRec.Cxxw(0)
Text2.Text = HsdRec.Cxxw(1)
Text3.Text = HsdRec.Cxxw(2)
Close #FileN1
End Sub

追问

只能弄4个...