• Home
 · 
• Internet/HTML
 · 
• Adding Hyperlink Using the Label Control *** incredibly simplified *** less than half the code as o

Adding Hyperlink Using the Label Control *** incredibly simplified *** less than half the code as o

Adding Hyperlink Using the Label Control *** incredibly simplified *** less than half the code as others

API Declarations


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



Rate Adding Hyperlink Using the Label Control *** incredibly simplified *** less than half the code as o

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

' then paste this code in
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.ForeColor = &H80000012
Label1.FontUnderline = False
End Sub

Private Sub Label1_Click()
NewUrl = Label1.Caption
ShellExecute hwnd, "open", NewUrl, vbNullString, vbNullString, conSwNormal
End Sub

Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.ForeColor = &HFF0000
Label1.FontUnderline = True
End Sub

Private Sub Text1_Change()
Label1.Caption = Text1.Text
End Sub