lzth.net
当前位置:首页 >> vB点击MsgBox窗口上的"是""否"按钮分别执行不同操作? >>

vB点击MsgBox窗口上的"是""否"按钮分别执行不同操作?

Private Sub Command1_Click() Dim i As Integer i = MsgBox("现在打开百度", vbYesNo, "提示") If i = vbYes Then Text1.Text = 100 If i = vbNo Then Text1.Text = 200 End Sub

Private Sub Form_Click() msg$ = "请确认此数据是否正确" Title$ = "数据检查对话框" x= MsgBox(msg$, 19, Title$) Ifx = 6 Then Printx * x ElseIfx = 7 Then Print "请重新输入" End IfEnd Sub

弹出一个对话框,里面的文字内容为变量a的值,标题则为变量b的值,其他则采用默认值(比如对话框中只有一个“确定”按钮)

If MsgBox("注册已完成,现在就登录吗?", vbOKCancel) = vbOK Then Form2.Show 假定Form2是登录窗口

msgbox不触发事件,而是返回一个VbMsgBoxResult类型的值: Dim r As VbMsgBoxResult r = MsgBox("请选择确定或取消", vbOKCancel) If r = vbOK Then MsgBox "你选了确定" Else MsgBox "你选了取消" End If

msgbox函数有返回值的 MsgBox(prompt[, buttons] [, title] [, helpfile, context]) 返回值 用于MsgBox函数返回值的常量 常数值 说明 vbOK 1 确定 vbCancel 2 取消 vbAbort 3 终止 vbRetry 4 重试 vbIgnore 5 忽略 vbYes 6 是 vbNo 7 否 定义一...

If MsgBox("请点确定或取消", vbOKCancel) = vbOK Then '点确定时执行这里的代码 Else '点取消时执行这里的代码 End If

比如 Private Sub Form_Load() MsgBox "输入数据", vbOKCancel, "有2个按钮了" '那个VBOKCANCEL就是2个按钮的参数 End Sub 具体的介绍楼上已给出

VB6.0中MsgBox函数使用中buttons参数加个16是显示 Critical Message(关键信息) 图标。 MsgBox 函数,在对话框中显示消息,等待用户单击按钮,并返回一个 Integer 告诉用户单击哪一个按钮。 第一组值 (0–5) 描述了对话框中显示的按钮的类型与数...

Private Sub Command1_Click() MsgBox "123" Command2_Click End Sub Private Sub Command2_Click() Me.Caption = "1111111" End Sub

网站首页 | 网站地图
All rights reserved Powered by www.lzth.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com