vb 关于关闭窗体

来源：百度知道 编辑：UC知道 时间：2024/06/18 02:32:11
现在点击的窗体右上方的“叉”符号，退出，但是窗体的一些选项就被清空了，如何调整为即使误点了“叉”，他退出后，还是保留当前状态，我窗体本身有一个退出按键，但是，有时习惯了直接就点叉了，这时这个窗体的数据都没了，还得重新进入进行操作很麻烦，该如何修改

在窗口里加上这个代码就可以了
Private Sub Form_Unload(Cancel As Integer)
Dim l As Integer
l = MsgBox("确认关闭?", vbYesNo + vbQuestion, "确认")
If l = vbNo Then
Cancel = True
End If
End Sub

你有没有用ini配置文件保存你的数据？
那就在Form_QueryUnload或Form_Unload函数里加入强制保存功能。

或者用以下代码：
Private Sub Form_Unload(Cancel As Integer)
If MsgBox("是否退出程序？", vbYesNo + vbQuestion, "确认") = vbNo Then Cancel = True
End Sub

'读取配置文件相关API
'读配置文件
Public Declare Function GetPrivateProfileString& Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String)
Public Declare Function GetPrivateProfileInt Lib "kernel32" Alias "GetPrivateProfileIntA" (ByVal lpApplicationName As Stri