读书人

VB怎么弹出提示框

发布时间: 2012-09-19 13:43:53 作者: rapoo

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 

读书人网 >VB

热点推荐