'调用浏览器需要 |
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) 回复
??
回复评论