请教！在VB中怎样打开一个IE窗口？

Question

最简单的On Error Resume Next
Shell "start.exe http://www.mp3.com/m-dj", vbHide

Answer 1

提示start.exe 这个文件找不到怎么办？

Answer 2

请教！在VB中怎样打开一个IE窗口？

Answer 3

shell "http://www.google.com"有一个api可以调用的，忘了。

Answer 4

调用API函数ShellExecute可实现private Sub command1_click()
  shellexecute o&,"open","http://www.csdn.net","",app.path,1
end sub

Answer 5

我用这种方法也是出错shell "rundll32.exe url.dll,fileprotocolhandler http://www.online.sh.cn"

Answer 6

我用过，不过忘了，可以给我email我找到回复你
[email protected]

Answer 7

'Dim dWinFolder As ShellLinkObject
    Dim dWinFolder As ShellWindows
    Set dWinFolder = New ShellWindows
     If dWinFolder.Count = 0 Then
     '没有打开的浏览器窗口，执行常规的ShellExecute 打开网页
     Else
     dWinFolder.Item(0).Navigate "http://sina.com.cn", navOpenInNewWindow, _
     "_blank", 0, 0
     End If
   Set dWinFolder = Nothing

Answer 8

'Dim dWinFolder As ShellLinkObject
    Dim dWinFolder As ShellWindows
    Set dWinFolder = New ShellWindows
     If dWinFolder.Count = 0 Then
     '没有打开的浏览器窗口，执行常规的ShellExecute 打开网页
     Else
     dWinFolder.Item(0).Navigate "http://sina.com.cn", navOpenInNewWindow, _
     "_blank", 0, 0
     End If
   Set dWinFolder = Nothing

Answer 9

'Dim dWinFolder As ShellLinkObject
    Dim dWinFolder As ShellWindows
    Set dWinFolder = New ShellWindows
     If dWinFolder.Count = 0 Then
     '没有打开的浏览器窗口，执行常规的ShellExecute 打开网页
     Else
     dWinFolder.Item(0).Navigate "http://sina.com.cn", navOpenInNewWindow, _
     "_blank", 0, 0
     End If
   Set dWinFolder = Nothing

Answer 10

解答
用API函数ShellExecute，不仅可以调用邮件编辑器撰写邮
件，还可以调用浏览器浏览网页。具体代码如下；声明：
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调用例：
ShellExecute Me.hwnd, "", _
    "http://www.263.net", _
    "", "", 1
    '用浏览器浏览网页ShellExecute Me.hwnd, "", _
    "mailto:[email protected]?subject=Help&body=OK", 
_
    "", "", 1
    '用邮件编辑器撰写邮件