【VB编程】关于超级链接的一些代码

[逍遥鼠]

'欢迎访问逍遥空间,此代码由逍遥空间整理提供

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 Sub Command1_Click()

s = "http://groups.google.com/group/xykongjian?hl=zh-CN"

ShellExecute Me.hwnd, "open", s, "", "", 5

End Sub

'------------------

'--------------------

Private Sub lbls_Click(Index As Integer) '超级连接标签

DimUrl As String

If Index = 0 Then ' 如果是 申请号码 标签

Url = "http://groups.google.com/group/xykongjian?hl=zh-CN/"

Else ' 如果是 忘记密码 标签

Url = "http://groups.google.com/group/xykongjian?hl=zh-CN/"

End If

 '打开连接

 Call ShellExecute(Me.hwnd, "Open", Url, "", App.Path, 1)

End Sub

'模仿超级连接的样式

Private Sub lbls_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)

If Index = 0 Then

 lbls(0).ForeColor = vbRed '字体颜色 - 红

 lbls(0).FontUnderline = True ' 下划线

ElseIf Index = 1 Then

 lbls(1).ForeColor = vbRed

 lbls(1).FontUnderline = True

End If

End Sub

Private Sub Form_Load()

Label1.ForeColor = vbBlue

lbls(0).ForeColor = vbBlue

lbls(1).ForeColor = vbBlue

End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

If Label1.ForeColor = vbYellow Then Label1.ForeColor = vbBlue

If lbls(0).ForeColor = vbRed Then lbls(0).ForeColor = vbBlue  '字体颜色 - 红

If lbls(0).FontUnderline = True Then lbls(0).FontUnderline = False ' 下划线

lbls(1).ForeColor = vbBlue

lbls(1).FontUnderline = False

End Sub

Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

Label1.ForeColor = vbYellow

End Sub