vb编的小程序,关闭窗口时 弹出的窗口提示 如何改变

2024-12-01 22:45:40
推荐回答(2个)
回答1:

' 将这些 ctrl+c ,ctrl+v
Private Sub Form_Unload(Cancel As Integer)

If MsgBox("确定要退出吗?(Y/N)", vbInformation + vbYesNo, "企业人事管理系统") = vbYes Then
Cancel = False
End
Else
Cancel = True
End If

End Sub

回答2:

MsgBox "确认要退出吗?(Y/N)", vbInformation + vbYesNo, "企业人事管理系统"
msgbox第一个参数为窗口中显示的字符串
msgbox第二个参数为窗口的显示的图形信息及按钮
vbOKOnly 0 只显示 OK 按钮。
VbOKCancel 1 显示 OK 及 Cancel 按钮。
VbAbortRetryIgnore 2 显示 Abort、Retry 及 Ignore 按钮。
VbYesNoCancel 3 显示 Yes、No 及 Cancel 按钮。
VbYesNo 4 显示 Yes 及 No 按钮。
VbRetryCancel 5 显示 Retry 及 Cancel 按钮。
VbCritical 16 显示 Critical Message 图标。
VbQuestion 32 显示 Warning Query 图标。
VbExclamation 48 显示 Warning Message 图标。
VbInformation 64 显示 Information Message 图标。
msgbox第三个参数在对话框标题栏中显示的字符串表达式。如果省略,则将应用程序名放在标题栏中