点击按钮弹出一个对话框的VB代码

就是一个小程序(整人的),单击确定按钮后弹出一个对话框(不是网页)显示“逗你玩”的VB代码。
弹出的对话框最好也有按钮(退出的按钮)

msgbox"逗你玩",vbokcancel,"标题"

其中vbokcancel在对话框处出现“确定”和“取消”

可以设置多行代码
如:
msgbox"逗你玩",vbokcancel,"标题"
msgbox"逗你玩",vbokcancel,"标题"
msgbox"逗你玩",vbokcancel,"标题"
msgbox"逗你玩",vbokcancel,"标题"
msgbox"逗你玩",vbokcancel,"标题"
msgbox"逗你玩",vbokcancel,"标题"
温馨提示:内容为网友见解,仅供参考
第1个回答  2010-08-01
在窗体上添加一个按钮,单击按钮在弹出的代码框中写代码
Private Sub Command1_Click()
Do Until a = vbCancel
a = MsgBox("逗你玩!")
Loop
End Sub本回答被提问者采纳
第2个回答  2010-08-01
Private Sub Command1_Click()
MsgBox "哈哈,逗你玩呢", vbOKCancel, "中计了"

End Sub
第3个回答  2010-08-01
msgbox"你所要说的话"
第4个回答  2010-08-01
msgbox "逗你玩",vbyesno,"哈哈"

点击按钮弹出一个对话框的VB代码
在窗体上添加一个按钮,单击按钮在弹出的代码框中写代码 Private Sub Command1_Click()Do Until a = vbCancel a = MsgBox("逗你玩!")Loop End Sub

...代码、就是:当你点击了一个按扭后、会弹出一个提示框。这个怎么写...
vbDefaultButton1 0 第一个按钮是缺省值(缺省设置)vbDefaultButton2 256第二个按钮是缺省值 vbDefaultButton3 512第三个按钮是缺省值 vbDefaultButton4 768第四个按钮是缺省值 vbApplicationModal 0应用程序强制返回;应用程序一直被挂起,直到用户对消息框 作出响应才继续工作 vbSystemModal...

请问怎么用VB实现点击一个按钮弹出一个对话框
Private Sub Command1_Click()MsgBox "因为你长的不够帅,所以执行了非法操作, " + Chr(13) + " " + Chr(13) + "此程序即将关闭," + Chr(10) + " " + Chr(13) + "如果有问题,请与供应商联系。", 19, "系统信息"End Sub ...

请问VB中如何点击按键后能弹出类似列表的对话框,列表只需可关闭或确定...
可以利用msgbox 实现,也可以通过另外的窗体上画出表格实现 方法一,利用msgbox:Private Sub Command1_Click()Dim a As Long, b As Long, c As LongMsgBox "┌────┬────┬────┐" & vbCrLf _ & "│ 库存1 │ 库存2 │ 库存3 │" & vbCrLf _ & "├────...

如何用vb实现一个弹出对话框?
+0,或不加,表示弹出的对话框上不带图标,+16,附带错误图标,需要向用户提示错误信息时使用,+32,附带问号图标,需要向用户进行询问时可以使用,+48,附带叹号图标,需要向用户提示注意或警惕信息时使用,+64,附带信息图标,需要向用户弹出一些正常信息时使用。代码如下:Sub shishi()Dim tf As ...

VB如何编写简单弹出对话框的代码?
我要一个 按退出的时候 弹出这一个对话框麻烦了谢谢 匿名 | 浏览4382 次 |举报 我有更好的答案2018-03-30 最佳答案 直接用MSGBOX函数即可。不需要控件。代码如下:Private Sub Command1_Click()x = MsgBox("确定要退出吗?", vbYesNo, "提示")If x = vbYes ThenEndEnd IfEnd Sub VB的系统特性: 1....

vb 让程序点击关闭按钮时弹出提示框
Dim Msg, Style, Title, Help, Ctxt, Response, MyString Msg = "是否要确定退出 ?" ' 定义信息。Style = vbYesNo + vbCritical + vbDefaultButton2 ' 定义按钮。Title = "程序退出对话框" ' 定义标题。Help = "DEMO.HLP" ' 定义帮助文件。Ctxt = 1000 ' 定义标题 ' ...

VB如何编写简单弹出对话框的代码?
直接用MSGBOX函数即可。不需要控件。代码如下:Private Sub Command1_Click()x = MsgBox("确定要退出吗?",vbYesNo,"提示")If x = vbYes Then End End If End Sub 希望能帮助到你 不懂请追问。

在VB中怎么用代码弹出输入对话框
1、首先,打开“易语言”,然后选择“Windows窗口程序”选项,如下图所示,然后进入下一步。2、其次,完成上述步骤后,将编辑框、按钮和常用对话框从基本组件栏拖放到程序中,如下图所示,然后进入下一步。3、接着,完成上述步骤后,单击以选中“通用对话框”,然后在左侧的属性列中看到“过滤器”。

VB按钮弹出输入对话框
常数 值 按钮 vbOK 1 确定 vbCancel 2 取消 vbAbort 3 放弃 vbRetry 4 重试 vbIgnore 5 忽略 vbYes 6 是 vbNo 7 否 说明 如果同时提供了 helpfile 和 context,则用户可以按 F1 键以查看与上下文相对应的帮助主题。如果对话框显示取消按钮,则按 ESC 键与单击取消的效果相同。如果对话框包含...

相似回答