![]() |
Tipp 0064
|
Hyperlink folgen
|
 |
|
Autor/Einsender: Datum: |
|
Detlev Schubert 23.05.2001 |
|
Entwicklungsumgebung: |
|
VB 5 |
|
|
Für heutige Programme ist es schon fast eine Selbstverständlichkeit, mit einem Link auf die
eigene Webseite zu verweisen. Dazu genügt es, die Webseite mit dem Programm zu starten, das
mit .htm- oder .html-Dateien verknüpft ist.
|
Die API-Funktion ShellExecute
ist dafür geradezu ideal, da hier mit einem Parameter die Verknüpfung übergeben und das
entsprechende Programm gestartet werden kann.
|
|
|
Option Explicit
Private Mouse0verHyperLink As Boolean
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 Form_MouseMove(Button As Integer, Shift As Integer, _
X As Single, Y As Single)
lblHyperlink.FontUnderline = False
lblHyperlink.ForeColor = &H80000012
End Sub
Private Sub lblHyperlink_Click()
Dim RetVal As Long
If Mouse0verHyperLink = True Then
RetVal = ShellExecute(Me.hwnd, vbNullString, lblHyperlink. _
Caption, vbNullString, vbNullString, vbNormalFocus)
End If
End Sub
Private Sub lblHyperlink_MouseMove(Button As Integer, _
Shift As Integer, X As Single, Y As Single)
Dim HandSymbolPfad As String
Dim YDiff As Single
YDiff = (lblHyperlink.Height - Me.TextHeight _
(lblHyperlink.Caption)) / 2
HandSymbolPfad = App.Path & "\Hand.ico"
If Y > YDiff And Y < lblHyperlink.Height - YDiff Then
Mouse0verHyperLink = True
lblHyperlink.MousePointer = vbCustom
lblHyperlink.MouseIcon = LoadPicture(HandSymbolPfad)
lblHyperlink.FontUnderline = True
lblHyperlink.ForeColor = &HFF0000
Else
Mouse0verHyperLink = False
lblHyperlink.MousePointer = vbDefault
End If
End Sub
|
|
|
|
|
Windows-Version |
95 |
 |
|
98/SE |
 |
|
ME |
 |
|
NT |
 |
|
2000 |
 |
|
XP |
 |
|
Vista |
 |
|
Win
7 |
 |
|
|
VB-Version |
VBA 5 |
 |
|
VBA 6 |
 |
|
VB 4/16 |
 |
|
VB 4/32 |
 |
|
VB 5 |
 |
|
VB 6 |
 |
|
|
|
Download (2,3
kB)
|
Downloads bisher: [ 2408 ]
|
|
|