怎样实现通过点击label控件连接到主页

[acehq]

[jisheng]

label_click()
nResult = Shell("start.exe http://members.xoom.com/srm/", vbHide)
end sub

呵呵，我看那个27分就…………

[jzsoft]

在click事件中
shell "http://www.csdn.net"

[tiaozi2000]

最可靠的做法是用api executex

[wjq]

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()
ShellExecute vbnullstring,vbnullstring,"http://url",vbnullstring,vbnullstring,1
End sub

[xhfjy]

在Label1_Click()
加
on error resume next

[snake1122]

不就是shell吗?变相说那么多干什么,27分一个人得了还可以,这么多人一分就没意思了!
我主持公道,acehq,将分给第一个说的.呵呵,其余的不要打我,我跑!!!!!!!

[心翦]

我支持你哟

[sunisle]

Option Explicit

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 '调用浏览器或EMAIL软件
Const MailAddress = "mailto:[e-mail]"
Public Sub WriteEmail(Optional TempSubject As String)
'参数可选，缺省值是空
ShellExecute 0&, vbNullString, MailAddress + "?subject=" + TempSubject, vbNullString, vbNullString, vbNormalFocus
End Sub
Sub VisitHttp(Optional TempHttp As String = "http://sunxiao.126.com")
'参数可选，缺省值是http://sunxiao.126.com
ShellExecute 0&, vbNullString, TempHttp, vbNullString, vbNullString, vbNormalFocus
End Sub

[Ninputer]

ShellExecute的方法是更好的

[「已注销」]

以上所说各有偏颇

最简单的办法是

nResult = Shell("Explorer.exe http://yeqiufeng.363.net", ......)

好好利用Explorer.exe也能直接打开网页的特性啊

@_@

[enmity]

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,"Open","caotang.myetang.com","","",vbNormalFocus

[Ninputer]

用iexplorer直接打开的方法不好，因为用户默认的浏览器不一定是ie

[enmity]

gz