Wenn ich jetzt z.B dieses Gui habe:
[autoit]#include <GUIConstantsEx.au3>
[/autoit][autoit][/autoit][autoit]Opt('MustDeclareVars', 1)
[/autoit][autoit][/autoit][autoit]Example1()
[/autoit][autoit][/autoit][autoit]Func Example1()
Local $msg
GUICreate("My GUI")
GUISetState(@SW_SHOW)
While 1
$msg = GUIGetMsg()
If $msg = $GUI_EVENT_CLOSE Then ExitLoop
WEnd
GUIDelete()
EndFunc
Wie kann ich mein eigenes Bild ca. 30x30 dort einfügen und man drauf klicken kann damit irg etwas passiert
benutz doch koda dafür
was ist das?
Hier, mit überrollefekt und Mausklickefekt
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <Misc.au3>
Dim $file[3]
$file[0] = @ScriptDir & "\Test.gif"
$file[1] = @ScriptDir & "\Test_O.gif"
$file[2] = @ScriptDir & "\Test_C.gif"
$Titel = "Test"
#Region ### START Koda GUI section ### Form=
$Form2 = GUICreate($Titel, 212, 120, 515, 423)
$Pic1 = GUICtrlCreatePic($file[0], 72, 39, 75, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
$fStatus = False
Global $Sec = "61"
$fStatus = False
While 1
If $Sec <= @SEC Then
ToolTip ("")
$Sec = "61"
EndIf
_Test(_Overroll($Form2, $Pic1, "_Test"))
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Pic1
GUICtrlSetImage($Pic1, $file[2])
ToolTip ("Pic1 wurde angeklickt!")
While _IsPressed("01")
Sleep(10)
WEnd
GUICtrlSetImage($Pic1, $file[0])
$fStatus = False
_Test(_Overroll($Form2, $Pic1, "_Test"))
$Sec = @SEC +2
EndSwitch
WEnd
Func _Test($FuncArt)
If $FuncArt = "1" Then
GUICtrlSetImage($Pic1, $file[1])
ElseIf $FuncArt = "0" Then
GUICtrlSetImage($Pic1, $file[0])
EndIf
EndFunc ;==>_Test
Func _Overroll($fGui,$fObjekt,$fFunc)
Local $fPos = GUIGetCursorInfo ($fGui)
If $fPos[4] = $fObjekt Then
If $fStatus = False Then
$fStatus = True
Return "1"
EndIf
Else
If $fStatus = True Then
$fStatus = False
Return "0"
EndIf
EndIf
Return "-1"
EndFunc
EDIT:
Koda ist ein Programm um sich Guis zu erstellen ohne das man alles schreiben muss! Drücke im Scite mal Alt+M oder gehe in das Menü Tool und da Koda
Koda ist ein grapgischer GUI-Editor / Ersteller Download mit google.at suchen!
Alles anzeigenHier, mit überrollefekt und Mausklickefekt
Spoiler anzeigen
[autoit]#include <GUIConstantsEx.au3>
[/autoit] [autoit][/autoit] [autoit]
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <Misc.au3>Dim $file[3]
[/autoit] [autoit][/autoit] [autoit]
$file[0] = @ScriptDir & "\Test.gif"
$file[1] = @ScriptDir & "\Test_O.gif"
$file[2] = @ScriptDir & "\Test_C.gif"
$Titel = "Test"
#Region ### START Koda GUI section ### Form=
$Form2 = GUICreate($Titel, 212, 120, 515, 423)
$Pic1 = GUICtrlCreatePic($file[0], 72, 39, 75, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###$fStatus = False
[/autoit]
Global $Sec = "61"
$fStatus = False
While 1
If $Sec <= @SEC Then
ToolTip ("")
$Sec = "61"
EndIf
_Test(_Overroll($Form2, $Pic1, "_Test"))
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Pic1
GUICtrlSetImage($Pic1, $file[2])
ToolTip ("Pic1 wurde angeklickt!")
While _IsPressed("01")
Sleep(10)
WEnd
GUICtrlSetImage($Pic1, $file[0])
$fStatus = False
_Test(_Overroll($Form2, $Pic1, "_Test"))
$Sec = @SEC +2
EndSwitch
WEnd
Func _Test($FuncArt)
If $FuncArt = "1" Then
GUICtrlSetImage($Pic1, $file[1])
ElseIf $FuncArt = "0" Then
GUICtrlSetImage($Pic1, $file[0])
EndIf
EndFunc ;==>_Test
Func _Overroll($fGui,$fObjekt,$fFunc)
Local $fPos = GUIGetCursorInfo ($fGui)
If $fPos[4] = $fObjekt Then
If $fStatus = False Then
$fStatus = True
Return "1"
EndIf
Else
If $fStatus = True Then
$fStatus = False
Return "0"
EndIf
EndIf
Return "-1"
EndFuncEDIT:
Koda ist ein Programm um sich Guis zu erstellen ohne das man alles schreiben muss! Drücke im Scite mal Alt+M oder gehe in das Menü Tool und da Koda
bei mir kommt kein bild soll ich mir irg eins holen und bestimmten namen geben ?
Die drei Bilder die Ich angehängt habe musst du dir laden und in @ScriptDir machen
