vb 关于关闭窗体
来源:百度知道 编辑:UC知道 时间:2024/09/22 10:28:04
在窗口里加上这个代码就可以了
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