vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
Top-Preis! AP-Access-Tools-CD Volume 1  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Fortgeschrittene Programmierung
Re: Hyperlink in Label-Feld realisieren 
Autor: Crying Man
Datum: 14.11.01 09:41

Das geht glaub ich schonmal gar nicht, du musst ein ganzes Label als Link definieren. Das geht aber mit einer Rich-Textbox: http://www.vb-world.net/tips/tip149.html

Hiermit kannst du einen Hyperlink aus einem Label machen (beim click-Ereignis):

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 lblURL_DragDrop(Source As Control, X As Single, Y As Single)
If Source Is lblUrl Then
With lblUrl
.Font.Underline = False
.ForeColor = vbBlack
' Call ShellExecute(0&, vbNullString, "Mailto:" & .Caption, vbNullString, vbNullString, vbNormalFocus)
Call ShellExecute(0&, vbNullString, .Caption, vbNullString, vbNullString, vbNormalFocus)
End With
End If
End Sub

Private Sub lblURL_DragOver(Source As Control, X As Single, Y As Single, State As Integer)
If State = vbLeave Then
With lblUrl
.Drag vbEndDrag
.Font.Underline = False
.ForeColor = vbBlack
End With
End If
End Sub

Private Sub lblURL_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
With lblUrl
.ForeColor = vbBlue
.Font.Underline = True
.Drag vbBeginDrag
End With
End Sub


Der Code kommt von www.vbweb.co.uk
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Hyperlink in Label-Feld realisieren69benne12.11.01 17:18
Re: Hyperlink in Label-Feld realisieren576unbekannt12.11.01 18:24
Re: Hyperlink in Label-Feld realisieren55benne12.11.01 18:26
Re: Hyperlink in Label-Feld realisieren387unbekannt12.11.01 18:35
Re: Hyperlink in Label-Feld realisieren54benne12.11.01 18:38
Re: Hyperlink in Label-Feld realisieren56Crying Man14.11.01 09:41

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
 
   

Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel