Hyperlink auf Label

Hyperlink auf Label via ShellExecute, CallWebSite
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 Function CallWebSite(ByVal URL As String) As Long
CallWebSite = ShellExecute(0&, vbNullString, URL, _
vbNullString, vbNullString, vbMaximizedFocus)
End Function
Private Sub lbl_1_Click()
CallWebSite (lbl_1.Caption)
End Sub
Private Sub lbl_2_Click()
CallWebSite (lbl_2.Caption)
End Sub
Private Sub Form_Load()
With lbl_1
.ForeColor = &HFF0000
.Font.Underline = True
.MousePointer = 99
.Caption = "http://www.bmw.de"
.MouseIcon = LoadPicture("hand.cur") Vorher in der IDE laden
End With
With lbl_2
.ForeColor = &HFF0000
.Font.Underline = True
.MousePointer = 99
.Caption = "mailto:georgius@gmx.net"
.MouseIcon = LoadPicture("hand.cur") Vorher in der IDE laden
End With
End Sub
Sponsoren und Investoren

Sponsoren und Investoren sind jederzeit herzlich willkommen! Wenn Sie die Information(en) auf diesen Seiten interessant fanden, freuen wir uns über Ihren Förderbeitrag. Empfehlen Sie uns auch gerne in Ihren Netzwerken. Herzlichen Dank!

Nutzen Sie unsere Suchfunktion:

Nach oben Sitemap
Impressum Datenschutz

Hinweis: Diese Webseite kann Werbeanzeigen und Werbeeinblendungen oder eingebundene Links von Diensten und Inhalten Dritter enthalten. Beachten Sie dazu unsere Datenschutzerklärung.