Hyperlink i VB

Du laver en label eller et tekstfelt, hvorefter du skriver en link til stedet i OnClick eventet (der hvor der står \"Click\" i properties under fanebladet \"Events\")

FORKERT !!

Du opretter en label og skriver så bare adressen ind i den egenskab(property), som hedder HyperlinkAdress.

Er det en speciel slags label? Der er ikke en hyperlinkaddress prop i en alm. label (?)

Hej johs.

I general:
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


I en kontrol:
Private Sub labprod_Click()
  ret = ShellExecute(Me.hwnd, \"Open\", \"http://www.jkfsoft.dk\", \"\", App.Path, 1)
    \'Check om det lykkes
    If ret > 32 Then
        MsgBox \"Went på browseren og log ind.\"
        ugeskema.WindowState = 1
      Else
        x = MsgBox(\"Kunne ikke finde en standard-browser.\", 48, \"Ingen internet adgang.\")
    End If
End Sub

Hej Joen!
Det virker, selv om jeg ikke helt er med på hvad de enkelte parametre i commandoen  ShellExecute betyder.

Hvad mener du med denne linie?
  ugeskema.WindowState = 1

mailto:johs_j@hotmail.com

Hej Johs.

Jeg har - ubeskåret - klippet koden ud af et af mine projekter.  Formen hvor linket er, hedder ugeskema og formen minimeres til proceslinien, så den ikke dækker for meddelelsen om at der måske ikke er angivet standardbrowser.  Den linie skal selvfølgelig udelades fra dit projekt.
I øvrigt ser jeg at du ikke ønsker åbnet hjemmeside, men så fungerer det altså også med mailto:  Det har jeg ikke afprøvet.  Så skal der heller ikke stå noget om en browser.

Godt nok du fandt en løsning.

M.v.h.  Jørn

ShellExecuteA har jeg med skam at melde ikke selv fundet på.

Hej Jørn!
Jeg har fået det til virke både med http og mailto.
Hvad enten man selv har fundet på en function eller ej, betyder mindre - når bare det virker, og det gør det jo.

mvh
Johannes