Hallo,
in Info-Boxen von Programmen ist ja häufig ein Link zu einer Web-Seite zu finden. Wenn man da raufklickt, öffnet sich der Standard-Browser (oder eine neues Fenster desselben), und die Seite wird zur Anzeige gebracht.
Frage:
Ich krieg einen Text ja wunderbar blau und unterstrichen hin (in einem Label z.B.) , aber der eigentliche Link fehlt! 
)
Wie geht das?
Danke,
Kristian
hallo
folgender code in ein modul kopieren und aufrufen:
gruss,
Option Explicit
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 Const SW_SHOWNORMAL = 1
Public Sub gotoweb(ByVal a_strURL As String)
Call ShellExecute(0&, vbNullString, Trim(a_strURL), vbNullString, „C:“, SW_SHOWNORMAL)
End Sub
Public Sub sendemail(ByVal a_strEMail As String)
ShellExecute 0&, vbNullString, „mailto:“ & a_strEMail, vbNullString, „C:“, SW_SHOWNORMAL
End Sub
gruss
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Super, geht! Danke.
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 Const SW\_SHOWNORMAL = 1
Public Sub gotoweb(ByVal a\_strURL As String)
Call ShellExecute(0&, vbNullString, Trim(a\_strURL), vbNullString, "C:\", SW\_SHOWNORMAL)
End Sub
Public Sub sendemail(ByVal a\_strEMail As String)
ShellExecute 0&, vbNullString, "mailto:" & a\_strEMail, vbNullString, "C:\", SW\_SHOWNORMAL
End Sub
Sub test()
gotoweb "www.ford.de"
End Sub