MsgBox-Link

1. offizieller Beitrag

    Wie kann man einen Link in einer MsgBox relisieren?
    Also es soll eine MsgBox erscheinen mit Text und einem Link.
    Wenn man auf den Link klickt soll eine Webseite aufgehen!

    ;) FireTiger

    [autoit]

    Opt("GUIOnEventMode", 1)
    GUICreate("TEST", 800, 800)

    [/autoit][autoit][/autoit][autoit]

    $label = GUICtrlCreateLabel("test", 200, 200)

    [/autoit][autoit][/autoit][autoit]

    GUISetState(@SW_SHOW)

    [/autoit][autoit][/autoit][autoit]

    GUICtrlSetOnEvent($label, "seite")

    [/autoit][autoit][/autoit][autoit]

    While 1
    Sleep(100)
    WEnd

    [/autoit][autoit][/autoit][autoit]

    Func seite()
    ShellExecute("http://autoit.de")
    EndFunc ;==>seite

    [/autoit]

    gibt es noch ne andere möglichkeit ein label als link zu deklarieren? wenn ich GUIOnEventMode verwende funktionieren meine buttons nicht mehr... und jetzt alles auf diese option umschreiben will ich nicht nur weill eich einen link einfügen will...

    • Offizieller Beitrag

    Mit einer MessageLoop-Schleife sieht es dann so aus:

    [autoit]


    GUICreate("TEST", 300, 100)

    [/autoit][autoit][/autoit][autoit]

    $label = GUICtrlCreateLabel("test", 20, 20, 100, 20)
    GUICtrlSetColor(-1, 0x0000FF)
    GUICtrlSetFont(-1, 14, 600, 4, 'Arial')
    GUISetState()

    [/autoit][autoit][/autoit][autoit]

    Do
    $msg = GUIGetMsg()
    If $msg = $label Then ShellExecute("http://www.google.de")
    Until $msg = -3

    [/autoit]