Question

vb 中设置一个按钮控件，点击它怎么触发一个事件开一个浏览器窗口

那我给它传参数怎么弄呀

Answer 1

MouseMove

Answer 2

先声下面的AIP
Private Declare Function BrandExecute Lib "Shell32" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Private Sub Command1_Click()
Dim St As Long
Dim IEPath As String
IEPath = App.Path + "\Help\GetCDKey.htm" '存放网页路径也可以改成这个样子IEPath="www.baidu.com"
St = BrandExecute(Me.hWnd, "Open", IEPath, vbNullString, "", 5)
End Sub

Answer 3

Private Sub Command2_Click()
'Shell ("http://www.baidu.com")
WebBrowser1.Navigate "http://www.baidu.com"
End Sub

Answer 4

shell一个就行了。。。