问题描述:
问题解答:
复制以下代码,绝对好使。以默认浏览器打开
先在窗体上添加一个名为“label1”的label控件:
Private Sub Form_Load()
With Label1
.Caption = "www.baidu.com" '改成想要的内容
.Font.Underline = True
.ForeColor = vbBlue
End With
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.ForeColor = vbBlue
Me.MousePointer = 0
End Sub
Private Sub Label1_Click()
CreateObject("wscript.shell").run "http://www.baidu.com" '完整的网址
End Sub
Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.ForeColor = vbRed
Me.MousePointer = 0
End Sub