- Offizieller Beitrag
Hier mal ein Scriptbeispiel, wie man Links zu Webseiten am besten in eine Gui einbauen kann.
Mit MouseHover-Tooltip und Mouse-Hover-Icons:
Spoiler anzeigen
#include <GUIConstantsEx.au3>
Global $sLink1 = 'http://www.autoit.de'
Global $sLink2 = 'http://www.autoitscript.com'
Global $hGui = GUICreate('Test', 400, 300)
[/autoit] [autoit][/autoit] [autoit]Global $idIcon1 = GUICtrlCreateIcon('shell32.dll', -14, 20, 46, 32, 32)
Global $idLabel1 = GUICtrlCreateLabel('www.autoit.de', 60, 50, 116, 22)
GUICtrlSetFont(-1, 14, 400, 4, 'Arial', 5)
GUICtrlSetColor(-1, 0x0000CC)
GUICtrlSetCursor(-1, 0)
GUICtrlSetTip(-1, $sLink1)
Global $idIcon2 = GUICtrlCreateIcon('shell32.dll', -14, 20, 116, 32, 32)
Global $idLabel2 = GUICtrlCreateLabel('www.autoitscript.com', 60, 120, 170, 22)
GUICtrlSetFont(-1, 14, 400, 4, 'Arial', 5)
GUICtrlSetColor(-1, 0x0000CC)
GUICtrlSetCursor(-1, 0)
GUICtrlSetTip(-1, $sLink2)
GUISetState()
[/autoit] [autoit][/autoit] [autoit]Global $aCursorInfo
While True
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE ; Gui schließen
Exit
Case $idLabel1 ; Link1 angeklickt
ShellExecute($sLink1) ; Link1 aufrufen
Case $idLabel2 ; Link2 angeklickt
ShellExecute($sLink2) ; Link2 aufrufen
Case $GUI_EVENT_MOUSEMOVE ; bei einer Mausbewegung
$aCursorInfo = GUIGetCursorInfo($hGui) ; CursorInfo holen
If Not @error Then
Switch $aCursorInfo[4] ; Die ID über dessen Control-Element sich die Maus befindet
Case $idLabel1, $idIcon1
GUICtrlSetImage($idIcon1, 'shell32.dll', -15)
Case $idLabel2, $idIcon2
GUICtrlSetImage($idIcon2, 'shell32.dll', -15)
Case Else
GUICtrlSetImage($idIcon1, 'shell32.dll', -14)
GUICtrlSetImage($idIcon2, 'shell32.dll', -14)
EndSwitch
EndIf
EndSwitch
WEnd