If MsgBox("注册已完成，现在就登录吗？", vbOKCancel) = vbOK Then Form2.Show 假定Form2是登录窗口
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
If MsgBox("请点确定或取消", vbOKCancel) = vbOK Then '点确定时执行这里的代码 Else '点取消时执行这里的代码 End If
Option Explicit Dim i As Long Private Sub Command1_Click() For i = 1 To 30 Dim myForm As Form1 Set myForm = New Form1 myForm.Show Next i End Sub
Private Sub Command1_Click() MsgBox "123" Command2_Click End Sub Private Sub Command2_Click() Me.Caption = "1111111" End Sub
你说的是外部程序，还是自身程序？ 如果是其他程序，需要通过另一程序来控制它的话，需要枚举窗体 如果是自身程序，则由本身代码控制。
比如 Private Sub Form_Load() MsgBox "输入数据", vbOKCancel, "有2个按钮了" '那个VBOKCANCEL就是2个按钮的参数 End Sub 具体的介绍楼上已给出
msgbox函数有返回值的 MsgBox(prompt[, buttons] [, title] [, helpfile, context]) 返回值 用于MsgBox函数返回值的常量 常数值 说明 vbOK 1 确定 vbCancel 2 取消 vbAbort 3 终止 vbRetry 4 重试 vbIgnore 5 忽略 vbYes 6 是 vbNo 7 否 定义一...
Private Sub Command1_Click() MsgBox "请随机点击一按钮，将弹出另一消息框!", vbYesNoCancel, "消息框一" MsgBox "另一消息框！", , "消息框二"end sub
MsgBox弹出的是由操作系统提供的公共对话框，是个模态窗口，打开后程序就被挂起了，你在程序中是无法对其执行关闭操作的。建议你自己用窗口模拟一个MsgBox窗口（其实很简单的），这样你就可以随意控制了。