这个消息框叫做message,是用来弹出程序运行时候的一些提示信息,也可以作为信息输入,而你的那个用来确认退出实际是作为信息输入的,可以这样写: (这是点击程序右上角关闭程序时用的) Private Sub Form_Unload(Cancel As Integer) If MsgBox("确认退出吗?", vbYesNo + vbQuestion) = vbYes Then Unload Me Else Cancel = 1 End If End Sub (点击“退出”命令按钮时退出可以这样写) Private Sub Command3_Click() 'Command3_Click() 指的是“退出”,具体按照你自己的写 If MsgBox("确认退出吗?", vbYesNo + vbQuestion) = vbYes Then End End If End Sub 希望你可以搞定。 |
|