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
 
Weitere Links zum Thema
Webbrowser mit vorgegebener URL öffnen
Webseiten per DDE öffnen

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: [ 2409 ]

Vorheriger Tipp Zum Seitenanfang Nächster Tipp

Startseite | Projekte | Tutorials | API-Referenz | VB-/VBA-Tipps | Komponenten | Bücherecke | VB/VBA-Forum | VB.Net-Forum | DirectX-Forum | Foren-Archiv | DirectX | VB.Net-Tipps | Chat | Spielplatz | Links | Suchen | Stichwortverzeichnis | Feedback | Impressum

Seite empfehlen Bug-Report
Letzte Aktualisierung: Mittwoch, 31. August 2011