Forskellige hyperlinks i label

Det kan du ikke umiddelbart. Hvorfor kan du ikke bruge 3 labels?
Så er det jo ikke noget problem.

Jeg har mine grunde... Men det må da kunne lade sig gøre somehow...

Du kan åbne brugerens default browser sådan:

Indsæt følgende øverst i en form eller modul:
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

indsæt også følgende funktion:
Public Function ÅbenURL(ByVal URL As String) As Long
  ÅbenURL = ShellExecute(0&, vbNullString, URL, vbNullString, vbNullString, vbNormalFocus)
End Function

Nu kan du hvorsomhelst i din kode kalde den:
F.eks. i en labels Click-event:

Private Sub Label1_Click()
    Call ÅbenURL("http://www.Eksperten.dk")
End Sub

Fint nok - så er det problem da løst... Men det er altså vitalt, at ovennævnte kan lade sig gøre...

Det kunne gøres med MouseDown-eventet. Sæt formens KeyPreview til True, og find ud af hvor (i X og Y koordinater) teksterne står. Husk at tjekke formens Scalemode (Det er nemmest at regne i pixels).

Nu kan du i MouseDown-eventet tjekke hvor på formen der er blevet klikket, og kode derefter.

Noget a la:

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

    If X>15 and X<45 and Y>20 and Y<40 then
        'Kode der åbner browser med adresse 1
    End if

End Sub

(tallene er frit opfundet.)

Tja, den hvde jeg også tænkt over, men nu kommer vi så til næste problem: Teksterne flytter sig...

Du kan jo beregne koordinaterne relativt til labelens position og indhold.
Hvis du kender labelens navn, kan du jo finde -Left og -Top. Så har du øverste venstre hjørne af labelen. Herefter kan du tjekke labelens Caption, og herudfra finde placeringerne af teksterne. -Der må være et eller andet der adskiller de 3 tekster (f.eks. mellemrum). Så kan du ved at tjekke for mellemrum i teksten også finde hver teksts nøjagtige placering i formen.
Apropos så er der også en scalemode der hedder Character. Det må lige være sagen her. Jeg har dog aldrig brugt den, og ved ikke hvordan den fungerer.

Ok - lyder fornuftigt... Jeg tjekker lige op på det, og vender tilbage...

Alternativt ville TextWidth(strText) kunne bruges til bedømmelse af teksternes placering/størrelse.

Bare en kommentar - det er da fuldstændigt vildt omstændigt at beregne din labels poistion, og derefter musemarkørens position i forhold til denne når du klikker på den. Jeg undrer mig over, at det ikke vil være lettere at lave det som 3 labels, med de ulemper (?) det evt. kan give dig. Men det er jo blevet foreslået - så sorry at jeg blander mig ;o)

Luk...