Question

vb关闭窗口时，先打开一个信息提示框的名称怎么改

Answer 1

1. 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

2. MsgBox 函数，在对话框中显示消息，等待用户单击按钮，并返回一个 Integer 告诉用户单击哪一个按钮。

   
   

Answer 2

在窗体的Unload事件中把你要显示的信息通过Msgbox输出就行了如:
Private Sub Form1_Unload(Cancel As Integer)
Msgbox "作者:xxx, 学号:xxx"
End Sub