如何链接网址？

[mtoad]

通过一个按钮链接到一个公司的网址？如何用代码实现？请高人指点！！谢谢

[yeenRadium]

很简单的一个

Private Sub Mhelp_zc_Click()
'链接163网站 Mhelp_zc_ 为菜单名 ~~也可以是你的 按钮之类~
Shell ("Start http://www.163.com")

End Sub

[mtoad]

to yeenRadium(百无鱼子)

我试了一下，不行呀

[boywang]

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

Dim ret&
ret& = ShellExecute(Me.hwnd, "Open", "http://ctstudio.163.net", "", App.Path, 1)

[viber]

用api函数ShellExecute的第三个参数`！~
楼上的那种方法

[spark_li]

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

在程序中

Intranet：
ShellExecute Me.hWnd, "open", "http://Intranet主机/目录", "", "", 5

比如
ShellExecute Me.hWnd, "open", "http://www.xyz.com", "", "", 5