怎么在form里面做一个网址的链接呀~！？

Question

点一下这个网址就去一个网址`？
回答有分~~~~

Answer 1

你先在工程中引用 Microsoft Internet Controls，然后加入代码：Dim IE As New InternetExplorerIE.Visible = True
IE.Navigate "www.microsoft.com"

Answer 2

下面两种方法都是可以的，你喜欢简单的话，就用方法二吧
'1方法一
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 conSwNormal = 1Private Sub Command1_Click()
    ShellExecute Me.hwnd, "open", "http://www.google.com", vbNullString, vbNullString, conSwNormal
End Sub
'2方法二直接shell就可以搞定了
Private Sub Command1_Click()
Shell "Explorer http://www.google.com"
End Sub

Answer 3

方法二的确很简单，我想问的是：如果我不用按钮，改用标签的话（vlick），当指针移上去，如何改成像网页一样的朝联接（指针变手）,本人初学，谢谢。

Answer 4

用mousemove事件，指针移过去的时候，标签文字变化（加下化线），标签的mousepointer属性变为自己定义的图标
label1.mouseicon = 自己定义的图标label1.mousepointer = 99

Answer 5

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 conSwNormal = 1Private Sub label1_Click()
    ShellExecute Me.hwnd, "open", "http://www.google.com", vbNullString, vbNullString, conSwNormal
End Sub适用于标签

Answer 6

对不起！
可能是我没有说明白
我的意思是把鼠标移到这个网址上的时候就像超链接一样，点一下可以进这个网站的
（别告诉我用
用mousemove事件，指针移过去的时候，标签文字变化（加下化线），标签的mousepointer属性变为自己定义的图标
label1.mouseicon = 自己定义的图标label1.mousepointer = 99
）
这个方法除了这个还有没有别的呀了`1？