Question

VB 在checkbox勾选后（如图），text中输入的内容可以保存，并且在下次打开时text能够显示出上次输入的内容

VB 在checkbox勾选后（如图），text中输入的内容可以保存，并且在下次打开时text能够显示出上次输入的内容。checkbox未勾选的情况下，text中的内容则不能保存

Answer 1

Private Sub Command1_Click()
If Check1.Value = 1 Then
SaveSetting App.Title, "setting", "text", Text1.Text
Else
SaveSetting App.Title, "setting", "text", ""
End If
MsgBox "ok"
End Sub

Private Sub Form_Load()
Text1.Text = GetSetting(App.Title, "Setting", "Text", "")
End Sub

Answer 2

楼上 有错误
在 窗口 加载 事件 中 判断 checkbox 状态 再读取
在 texe 失去焦点事件 判断checkbox 状态 将 checkbox 状态 和文本内容 写入

Answer 3

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If Check1.Value = 1 Then
SaveSetting App.Title, "Setting", "TXT", Text1.Text
End If
End Sub

Private Sub Form_Load()
Text1 = GetSetting(App.Title, "Setting", "TXT", "")
End Sub