vb关闭窗口时,先打开一个信息提示框的名称怎么改
发布网友
发布时间：2024-10-24 05:33
共2个回答
热心网友
时间：2024-11-14 15:47
VB关闭窗体或退出运行，可使用MsgBox函数。
Private Sub Command4_Click()
Dim Msg, Style, Title, Help, Ctxt, Response, MyString
Msg = "结束程序 ?" ' 定义信息。
Style = vbYesNo + vbCritical + vbDefaultButton2 ' 定义按钮。
Title = "结束程序" ' 定义标题。
Help = "DEMO.HLP" ' 定义帮助文件。
Ctxt = 1000 ' 定义标题
' 上下文。
' 显示信息。
Response = MsgBox(Msg, Style, Title, Help, Ctxt)
If Response = vbYes Then ' 用户按下“是”。
MyString = "Yes" ' 完成某操作。
Unload FrmComm
Unload frmCeshi
Unload frmchaxunNew
End
Else ' 用户按下“否”。
MyString = "No" ' 完成某操作。
End If
End Sub
MsgBox 函数，在对话框中显示消息，等待用户单击按钮，并返回一个 Integer 告诉用户单击哪一个按钮。
热心网友
时间：2024-11-14 15:48
在窗体的Unload事件中把你要显示的信息通过Msgbox输出就行了如:
Private Sub Form1_Unload(Cancel As Integer)
Msgbox "作者:xxx, 学号:xxx"
End Sub
