用vb编写程序,关闭窗体按钮时弹出窗口“确定关闭”,点击“是”关闭,点击“否”不关闭。
发布网友
发布时间:2022-05-03 12:12
我来回答
共1个回答
热心网友
时间:2023-10-21 14:54
Private Sub Form_Unload(Cancel As Integer)
If MsgBox("是否关闭窗体?", vbQuestion + vbYesNo, "信息提示") = vbNo Then ' 如果用户单击No按钮,则停止Unload事件。
Cancel = True
End If
End Sub
热心网友
时间:2023-10-21 14:54
Private Sub Form_Unload(Cancel As Integer)
If MsgBox("是否关闭窗体?", vbQuestion + vbYesNo, "信息提示") = vbNo Then ' 如果用户单击No按钮,则停止Unload事件。
Cancel = True
End If
End Sub