请问怎么用VB实现点击一个按钮弹出一个对话框

如题如何实现单击这个按钮弹出对话框来

2024-11-07 05:35:14

推荐回答（4个）

回答（1）：

Private Sub Command1_Click()
MsgBox "因为你长的不够帅，所以执行了非法操作， " + Chr(13) + " " + Chr(13) + "此程序即将关闭，" + Chr(10) + " " + Chr(13) + "如果有问题，请与供应商联系。", 19, "系统信息"
End Sub

回答（2）：

最简单的就是用msgbox函数来实现:Private Sub Command1_Click()
msgbox "这里可以是你要描述的一句话"End Sub

回答（3）：

Private Sub Command1_Click()
Dim x As Integer
x = MsgBox("内容", vbInformation, "标题") ' vbInformation是图标
End Sub

回答（4）：

Private Sub Command1_Click()
MsgBox "你好！", 0+0+0+0, "系统信息"
End Sub