Hallo, ich weiss, dass dieses bestimmt schon sehr oft gefragt wurde. Nur leider habe ich nach längerem suchen (google,SuFu) nichts gefunden. Undzwar möchte ich ein Transparentes Label machen, welches auf einen Mausklick reagiert. Hier mein Script wo ich es benötige
Spoiler anzeigen
#include <StaticConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
;Variablen deklarierung
Global $ini = @ScriptDir & "\Daten.ini", $splash = @ScriptDir & "\Millionär.jpg", $bkgr = @ScriptDir & "\a.jpg", $var = IniReadSection(@ScriptDir & "\Daten.ini", "Fragen")
Global $Antwort[5],$e
;<==
;Splash
SplashImageOn("", $splash, 320, 322, -1, -1, 1)
Sleep(1500)
SplashOff()
;<==
;Main Gui
GUICreate("Wer wird Millionär", 631, 378)
GUICtrlCreatePic($bkgr, 0, 0, 631, 378)
GUISetFont(15)
$Frage = GUICtrlCreateEdit("", 50, 235, 390, 47, $ES_READONLY, 0) ;Feld für Frage
GUICtrlSetBkColor(-1, 0xFFFFFF)
$Antwort[1] = GUICtrlCreateLabel("", 63, 300, 150, 23) ;Feld für Antwort A
GUICtrlSetBkColor(-1, 0xFFFFFF)
$A = GUICtrlCreateLabel("", 30, 294, 195, 37) ;Soll auf Klick reagieren
GUICtrlSetBkColor(-1, 0x000000)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$Antwort[2] = GUICtrlCreateLabel("", 63, 337, 150, 23) ;Feld für Antwort B
GUICtrlSetBkColor(-1, 0xFFFFFF)
$B = GUICtrlCreateLabel("", 30, 331, 195, 37) ;Soll auf Klick reagieren
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$Antwort[3] = GUICtrlCreateLabel("", 295, 300, 150, 23) ;Feld für Antwort C
GUICtrlSetBkColor(-1, 0xFFFFFF)
$C = GUICtrlCreateLabel("", 262, 294, 195, 37) ;Soll auf Klick reagieren
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$Antwort[4] = GUICtrlCreateLabel("", 295, 337, 150, 23) ;Feld für Antwort D
GUICtrlSetBkColor(-1, 0xFFFFFF)
$D = GUICtrlCreateLabel("", 262, 331, 195, 37) ;Soll auf Klick reagieren
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$question = Random(1, UBound($var) - 1, 1) ;Zufällige Frage
[/autoit] [autoit][/autoit] [autoit]$str = StringSplit($var[$question][1], '-', 1) ;Antworten splitten
GUICtrlSetData($Frage, $var[$question][0]) ;Frage Nr. 1
For $i = 1 To 4
GUICtrlSetData($Antwort[$i], $str[$i]) ;Antwortmöglichkeiten zu Frage Nr. 1
Next
GUISetState()
[/autoit] [autoit][/autoit] [autoit]Switch $str[5]
[/autoit] [autoit][/autoit] [autoit]Case 1
$e = "A"
Case 2
$e = "B"
Case 3
$e = "C"
Case 4
$e = "D"
EndSwitch
;~ MsgBox(0,"Richtige Antwort","Richtige antwort ist " & $e)
;<==
;Mainloop
While 1
$Msg = GUIGetMsg()
Switch $Msg
Case $GUI_EVENT_CLOSE
;~ $close = MsgBox(4, "Wirklich Beenden?", "Wollen sie wirklich aufhören?")
;~ Switch $close
;~ Case 6
Exit
;~ EndSwitch
Case $A
MsgBox(0,"test","Test")
EndSwitch
WEnd
;<==
Kann ja nicht so schwer sein oder ?