Question

vb在关闭窗体时怎样命令保存事件对整个窗体的更改？即下次启动，这些改变还是有效，初学勿喷。

Answer 1

你可以在 Form_Unload 事件中把窗体内各控件的值保存到文本文件、ini文件、注册表（推荐）、数据库或者网络上，在 Form_Load 事件中再把这些值读取出来赋值给对应的控件。如果你是初学者，建议用文本文件，比较简单。

追问

这样吧，比如窗体中有个command1，我通过代码把其caption属性从“A”变成了“B”，下次启动程序就显示改变后的caption。能不能写一个完整的代码我试着读懂？就用保存和读取文本框的方法，谢谢你！

追答

Private Sub Form_Load() '程序启动时读取
Dim s As String
If Dir(App.Path & "\setup.txt") = "" Then
    Command1.Caption = "A"
Else
    Open App.Path & "\setup.txt" For Input As #1
    If EOF(1) Then
        Command1.Caption = "A"
    Else
        Line Input #1, s
        Command1.Caption = s
    End If
    Close #1
End Sub

Private Sub Form_Unload(Cancel As Integer) '程序退出时保存
Open App.Path & "\setup.txt" For Output As #1
Print #1, Command1.Caption
Close #1
End Sub