新手问题~~~~~ 谢谢各位~~~~~~

Question

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 0, "open", "http://zyl910.yeah.net", vbNullString, vbNullString, 3

Answer 1

首先在窗体的声明段中输入如下代码：Option Explicit 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 Const WEB = "http://newvb.126.com"然后在标签的Click事件中输入下面的代码：Private Sub Label1_Click() Dim HyperJump HyperJump = ShellExecute(0&, vbNullString, WEB, vbNullString, 
vbNullString, vbNormalFocus) End Sub运行程序，用鼠标点击该标签，就会自动弹出一个浏览器把你带到http://newvb.126.com。你还可以将标签的Mousepointer属性设为99，MouseIcon设为一个手一样的图标，
鼠标移动到标签上时就会变成一个手的形状，这就更象超级链接了。

Answer 2

call ShellExecute(0&, vbNullString, "http://www.ah163.net", , vbNullString,vbNullString, vbNormalFocus) 

Answer 3

告诉你一个最简单有效的办法：一定要给分的哦
LABEL1一个
PRIVATE SUB LABEL1—CLICK（）
SHELL“RUNDLL32。EXE URL。DLL，FILEPROTOCOHANDLE HTTP：//WWW。CSDN。NET”
’你可以把你想要的连接替换
END SUB
这个方法再简单不过了，没有那么多代码--爽
上面的朋友写的太复杂了，手不累吗？：-）

Answer 4

告诉你一个最简单有效的办法：一定要给分的哦
LABEL1一个
PRIVATE SUB LABEL1—CLICK（）
SHELL“RUNDLL32。EXE URL。DLL，FILEPROTOCOHANDLE HTTP：//WWW。CSDN。NET”
’你可以把你想要的连接替换
END SUB
这个方法再简单不过了，没有那么多代码--爽
上面的朋友写的太复杂了，手不累吗？：-）

Answer 5

zyl910(910：分儿，我来了！) (L2002) 只有他的我能用，其他的都有错误，不是这儿错，就是那儿错。~~~~~~~