'调用浏览器需要 Private Declare Function ShellExecute Lib "shell32.dll" 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 Label1_Click() Dim Result As Integer Result = ShellExecute(0, "", "http://www.baidu.com/", "", "", 1) If Result <= 32 Then MsgBox "调用浏览器错误!", 48 End Sub
by: 发表于:2017-11-06 14:46:00 顶(0) | 踩(0) 回复
??
回复评论