展开全部
你可以在 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
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询