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

Question

label_click()
nResult = Shell("start.exe http://members.xoom.com/srm/", vbHide)
end sub呵呵，我看那个27分就…………

Answer 1

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

Answer 2

最可靠的做法是用api executex

Answer 3

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

Answer 4

在Label1_Click()
加
on error resume next

Answer 5

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

Answer 6

Option ExplicitDeclare 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:[email protected]"
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

Answer 7

以上所说各有偏颇最简单的办法是nResult = Shell("Explorer.exe http://yeqiufeng.363.net", ......)好好利用Explorer.exe也能直接打开网页的特性啊@_@

Answer 8

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

Answer 9

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