VB怎么弹出提示框
VB如何弹出提示框
用VB弹出提示框，提示框内容如图
当用户点击确定按钮时则运行d:\1.exe,当用户点击取消按钮时则运行d:\2.exe，VB代码该怎么写？我是菜鸟，希望高手们能够把代码和过程尽可能的写详细点，谢谢！~~~
------解决方案--------------------
用VB弹出提示框，提示框内容如图
当用户点击确定按钮时则运行d:\1.exe,当用户点击取消按钮时则运行d:\2.exe，VB代码该怎么写？我是菜鸟，希望高手们能够把代码和过程尽可能的写详细点，谢谢！~~~
------解决方案--------------------
- VB code
Private Sub Command1_Click()
Dim retValue As Long
retValue = MsgBox("提示：是否立即运行应用程序？", vbQuestion + vbOKCancel, "提示")
If retValue = vbOK Then
Call Shell("d:\1.exe", vbNormalFocus)
Else
If retValue = vbCancel Then
Call Shell("d:\2.exe", vbNormalFocus)
End If
End If
End Sub