关于打开网页的问题

[bestchuan]

用VB建立了一个UserControl窗体，在上面添加了一按钮，如何在单击了这按钮后打开某网页？
我知道可以用
Shell ("C:\Program Files\Internet Explorer\iexplore.exe http:\\www.google.com"), vbNormalFocus
来打开，但怎样用当前正在显示的浏览器打开而不是新开一个窗口。

[vansoft]

引用Microsoft Internet Explorer

[射天狼]

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(Index As Integer)
On Error GoTo Errhandle
'Shell "C:\Program Files\Internet Explorer\IEXPLORE.EXE mailto:[e-mail]", vbMinimizedFocus
ShellExecute Me.hwnd, "open", "http:\\www.google.com", vbNullString, vbNullString, 1
Exit Sub
Errhandle:
MsgBox Err.Description & "！", vbInformation
End Sub

[bestchuan]

编译的时候出错了，它指在上面那条FUNCTION上，说是"compile error:Only comments only appear after end sub,end function,or end property"，这是什么原因？

[射天狼]

把Label1_Click事件里的参数去掉,我用的是控件数组.
这些小错误你自己都调不了.

[bestchuan]

是指那个(index as integer)吗，已经去掉了，还是不对。

[bestchuan]

程序一开始编译它就报错，还没点击按钮。

[junki]

是些 什么错误呢?

[bestchuan]

就是"compile error:Only comments only appear after end sub,end function,or end property"

[射天狼]

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()
On Error GoTo Errhandle
'Shell "C:\Program Files\Internet Explorer\IEXPLORE.EXE mailto:[e-mail]", vbMinimizedFocus
ShellExecute Me.hwnd, "open", "http:\\www.google.com", vbNullString, vbNullString, 1
Exit Sub
Errhandle:
MsgBox Err.Description & "！", vbInformation
End Sub

[bestchuan]

还是不对啊，一运行就出现那句话，是不是要引用什么东西

[CrazyHosptial]

不用啊,这样吧.
用Shell 函数

例子: 例如你想打开 网易163 吧.

Private Sub Command1_Click()

Shell "Explorer , http://www.163.com"

End Sub

我试过了~~~可以.

[CrazyHosptial]

对不起,没有看清问题,如果是你说的,还是参看cuizm(射天狼) 的吧
小弟很菜....看的不是很懂...