Button -> Bild, Hilflos :'(

Page 1 of 2 1 2
09/27/2010 17:17 *scarface*#1
Code:
Local $Bild0 =  "\Casino.jpg"	;Rotationsstartbild
Local $Bild1 =  "\5 Euro.jpg"	;1. Rotationsbild!
Local $Bild2 =  "\10 Euro.jpg"	;2. Rotationsbild!
Local $Bild3 =  "\15 Euro.jpg"	;3. Rotationsbild!
Local $Bild4 =  "\5 Euro.jpg"	;5Euro Einsetz Button Bild!
Local $Bild5 =  "\10 Euro.jpg"	;10Euro Einsetz Button Bild!
Local $Bild6 =  "\15 Euro.jpg"	;15Euro Einsetz Button Bild!
Local $Bild7 =  "\Badit Hebel.jpg"	;Hebel 
Local $Bild8 =  "\10 Euro.jpg"	;Einsatz loeschen

#Region ### START Koda GUI section ### Form=C:\Documents and Settings\User\Desktop\Kevin\koda_1.7.0.1\Forms\Badit Form.kxf
$Form1 = GUICreate("Form1", 635, 447, 320, 148)
$Maschine = GUICtrlCreatePic(@ScriptDir & "\Copy of Bandit.jpg", 0, 0, 633, 425)
GuiCtrlSetState(-1,$GUI_DISABLE) 
$1_Bild = GUICtrlCreatePic(@ScriptDir & "" & $Bild0, 64, 58, 132, 100)
$2_Bild = GUICtrlCreatePic(@ScriptDir & "" & $Bild0, 214, 58, 132, 100)
$3_Bild = GUICtrlCreatePic(@ScriptDir & "" & $Bild0, 363, 58, 132, 100)
;$Hebel = GUICtrlCreatePic(@ScriptDir & "" & $Bild7, 539, 24, 90, 236)
$Hebel = GUICtrlCreateButton("Button1", 539, 24, 90, 236, $BS_BITMAP)
GUICtrlSetImage($Hebel,"C:\Documents and Settings\User\Desktop\Kevin\BAndit\Badit Hebel.jpg")

; $5_Euro= GUICtrlCreatePic(@ScriptDir & "\5 Euro.jpg",68, 213, 89, 55)
$5_Euro = GUICtrlCreateButton("", 68, 213, 89, 55, $BS_BITMAP)
GUICtrlSetImage(-1, @ScriptDir & "" & $Bild4)
	
; $10_Euro = GUICtrlCreatePic(@ScriptDir & "\10 Euro.jpg", 162, 212, 89, 55)
$10_Euro = GUICtrlCreateButton("",  162, 212, 89, 55, $BS_BITMAP)
GUICtrlSetImage(-1, @ScriptDir & "" & $Bild5)
	
; $15_Euro = GUICtrlCreatePic(@ScriptDir & "\15 Euro.jpg", 256, 212, 89, 55)
$15_Euro = GUICtrlCreateButton("", 256, 212, 89, 55, $BS_BITMAP)
GUICtrlSetImage(-1, @ScriptDir & "" & $Bild6)

;$Pic10 = GUICtrlCreatePic(@ScriptDir & "\Bandit Einsatz Clear.jpg", 550, 325, 70, 70)
$Pic10 = GUICtrlCreateButton("", 550, 325, 70, 70, $BS_BITMAP)
GUICtrlSetImage(-1,@ScriptDir & "\Bandit Einsatz Clear.jpg")

$Aktuelles_Geld = GUICtrlCreatePic(@ScriptDir & "\Bandit Label Money.jpg", 170, 370, 345, 50)
GuiCtrlSetState(-1,$GUI_DISABLE) 
$Einsetz_Geld = GUICtrlCreatePic(@ScriptDir & "\Bandit Label Money.jpg", 40, 305, 345, 50)
GuiCtrlSetState(-1,$GUI_DISABLE) 

$Label_Aktuell_Geld = GUICtrlCreateLabel("100", 250, 375, 228, 38) ;, $SS_GRAYFRAME) ; Geld Aktuell Label in dem Bild - $GREYFRAME = Durchsichtig!
GUICtrlSetFont(-1,20, 800, 0, "Arial")
GUICtrlSetBkColor(-1, 0xFFFFFF)
$Label_Einsetz_Geld = GUICtrlCreateLabel("0" ,120, 310, 228, 38) ;, $SS_GRAYFRAME) ; Geld Einsetzen Label in dem Bild - $GREYFRAME = Durchsichtig!
GUICtrlSetFont(-1,20, 800, 0, "Arial")
GUICtrlSetBkColor(-1, 0xFFFFFF)
$MenuItem3 = GUICtrlCreateMenu("&MenuItem3")
$MenuItem1 = GUICtrlCreateMenuItem("MenuItem1", $MenuItem3)
$MenuItem2 = GUICtrlCreateMenu("M&enuItem2")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		Case $5_Euro
			Msgbox(0,"","Work!")
		Case $10_Euro
			Msgbox(0,"","Work!")
		Case $15_Euro
			Msgbox(0,"","Work!")			
	EndSwitch
WEnd

So das ist mein Code, und ich will die Buttons als Bilder haben...ich habe alle Tutorials durchgelesen, allles versucht, aber es will einfach nicht... :(
Bitte helfen!

Thx *Scarface*
09/27/2010 17:20 mipez#2
Öhm ja, GuiCtrlCreatePic und Case...


Code:
...
$pic = GUICtrlCreatePic(@ScriptDir & "\5 Euro.jpg", 64, 58, 132, 100)
...

While 1
Switch GuiGetMsg()
Case $pic
...
EndSwitch
WEnd
09/27/2010 18:07 PenGuin :O#3
GDI+ ;)
09/28/2010 18:32 *scarface*#4
Das mit dem Switch und Cas in der schleife geht nicht...dann funktioniert der rest nicht :(
Was ist GDI+ ?
09/28/2010 19:11 PenGuin :O#5
GDI+ ? Wikipedia

;)

Ist aber etwas komplizierter, versuch dich mal weiter mit der Hilfe von mipez ;)
09/28/2010 19:25 *scarface*#6
Ich habs mal so wie mipez es gesagt hat versucht, genau so, aber dann isst da dieses Problem, wenn ich dann sage:

Case $Bild 1 (Also das bild von mir was ich in dieser Variable gespeichert habe)
Play() (<-Meine Funktion die beim dücken auf das Bild aufgerufen werden soll)
....

dann macht der das direkt und d8aerfhaft, also er wartet nicht bis ich das bild gedrückt habe... also geht das nicht ...

Lg Pls Help (Easy)
09/28/2010 19:26 *scarface*#7
Wo finde ich das Programm GDI+ auf meinem Pc denn die haben da ja geschrieben, das ist da drauf?! Oder verstehe ich da was falsch?
09/28/2010 20:35 mipez#8
Quote:
Originally Posted by *scarface* View Post
Wo finde ich das Programm GDI+ auf meinem Pc denn die haben da ja geschrieben, das ist da drauf?! Oder verstehe ich da was falsch?
GDI+ ist eine Funktionsgruppe...

Btw.
$BS_BITMAP ;D
Damit kannste dem Button ein Bild zuweisen^^
[Only registered and activated users can see links. Click Here To Register...]
Dann einfach GuiCtrlSetImage()
09/28/2010 22:49 Shkal#9
Quote:
Originally Posted by *scarface* View Post
Ich habs mal so wie mipez es gesagt hat versucht, genau so, aber dann isst da dieses Problem, wenn ich dann sage:

Case $Bild 1 (Also das bild von mir was ich in dieser Variable gespeichert habe)
Play() (<-Meine Funktion die beim dücken auf das Bild aufgerufen werden soll)
....

dann macht der das direkt und d8aerfhaft, also er wartet nicht bis ich das bild gedrückt habe... also geht das nicht ...

Lg Pls Help (Easy)
Poste mal bitte den Code samt der Bilder (.rar/.zip Archiv), sonst wird das hier ein ewiges Ratespiel, und jeder redet um den heißen Brei herum.

Wenn du Hilfe benötigst, dann solltest du immer davon ausgehen, dass unsere Zauberkugeln grade in der Reparatur sind, und wir deswegen leider deinen Code nicht erahnen können.

Und da hier keiner Vernünftige Hilfe bezüglich GDI+ gibt, verweise ich auf folgende Tutorials:
[Only registered and activated users can see links. Click Here To Register...]
[Only registered and activated users can see links. Click Here To Register...]
10/03/2010 18:14 *scarface*#10
Entschuldigt mich Leute, aber mein Internet hatte einige Probleme in den vergangenen Tagen.

Ich habe hier die sachen(Bilder & Script) in ein Win RAR Archiv gepackt und hochgeladen.
Hoffe ihr könnt es downloaden!

Wäre echt cool, wenn jemand ne Lösung dafür hätte und mir weiterhelfen kann!
Dankesehr!

Liebe Grüße
*scarface*


[Only registered and activated users can see links. Click Here To Register...]
10/03/2010 19:00 BlackHybrid#11
:D Ein Fehler der fast jeder macht xD

PHP Code:
#include <ButtonConstants.au3>

$Form1 = GUICreate("Form1", 635, 447, 320, 148)
$Maschine = GUICtrlCreatePic(@ScriptDir & "\Copy of Bandit.jpg", 0, 0, 633, 425,$BS_PUSHLIKE)

.....

$5_Euro = GUICtrlCreateButton("", 68, 213, 89, 55, $BS_BITMAP)
GUICtrlSetImage(-1, @scriptdir & "\5 Euro.jpg", 0) 
Wenn du in einer GUI ein Hintergrund machen möchtest musst du $BS_PUSHLIKE benutzen um Buttons zu benutzen
10/03/2010 20:26 *scarface*#12
Könntest du mal bitte den ganzen Code reinstellen?
Weil ich habe noch nicht so richtig verstanden was ich da alles jetzt genau ändern muss...ich habe jetzt das hintergrundbild mit den befehl versehen, aber die buttons sind imemrnoch keine bilder :(

Aber danke schonmal!

Lg
10/03/2010 20:44 BlackHybrid#13
Also bei mir geht es jetzt mit den Bildern auf den Buttons.

PHP Code:
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>

#Region ### START Koda GUI section ### Form=C:\Documents and Settings\User\Desktop\Kevin\koda_1.7.0.1\Forms\Badit Form.kxf
$Form1 = GUICreate("Form1", 635, 447, 320, 148)
GUICtrlCreatePic(@ScriptDir & "\Copy of Bandit.jpg", 0, 0, 633, 425, $BS_Pushlike)


$Hebel = GUICtrlCreateButton("Button1", 539, 24, 90, 236, $BS_BITMAP)
GUICtrlSetImage(-1, @DesktopDir & "\Badit Hebel.jpg")


$5_Euro = GUICtrlCreateButton("", 68, 213, 89, 55, $BS_BITMAP)
GUICtrlSetImage(-1, @ScriptDir & "\5 Euro.jpg", 0)


$10_Euro = GUICtrlCreateButton("", 162, 212, 89, 55, $BS_BITMAP)
GUICtrlSetImage(-1, @ScriptDir & "\10 Euro.jpg", 0)


$15_Euro = GUICtrlCreateButton("", 256, 212, 89, 55, $BS_BITMAP)
GUICtrlSetImage(-1, @ScriptDir & "\15 Euro.jpg", 0)


$Pic10 = GUICtrlCreateButton("", 550, 325, 70, 70, $BS_BITMAP)
GUICtrlSetImage(-1, @ScriptDir & "\Bandit Einsatz Clear.jpg", 0)

$Aktuelles_Geld = GUICtrlCreatePic(@ScriptDir & "\Bandit Label Money.jpg", 170, 370, 345, 50)
GUICtrlSetState(-1, $GUI_DISABLE)
$Einsetz_Geld = GUICtrlCreatePic(@ScriptDir & "\Bandit Label Money.jpg", 40, 305, 345, 50)
GUICtrlSetState(-1, $GUI_DISABLE)

$Label_Aktuell_Geld = GUICtrlCreateLabel("100", 250, 375, 228, 38) ;, $SS_GRAYFRAME) ; Geld Aktuell Label in dem Bild - $GREYFRAME = Durchsichtig!
GUICtrlSetFont(-1, 20, 800, 0, "Arial")
GUICtrlSetBkColor(-1, 0xFFFFFF)
$Label_Einsetz_Geld = GUICtrlCreateLabel("0", 120, 310, 228, 38) ;, $SS_GRAYFRAME) ; Geld Einsetzen Label in dem Bild - $GREYFRAME = Durchsichtig!
GUICtrlSetFont(-1, 20, 800, 0, "Arial")
GUICtrlSetBkColor(-1, 0xFFFFFF)
$MenuItem3 = GUICtrlCreateMenu("&MenuItem3")
$MenuItem1 = GUICtrlCreateMenuItem("MenuItem1", $MenuItem3)
$MenuItem2 = GUICtrlCreateMenu("M&enuItem2")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $5_Euro
            MsgBox(0, "", "Work!")
        Case $10_Euro
            MsgBox(0, "", "Work!")
        Case $15_Euro
            MsgBox(0, "", "Work!")
    EndSwitch
WEnd 
10/04/2010 15:56 *scarface*#14
Also bei mir funktioniert es nicht... :(
So ein scheiss Sry...
Vll. gibts noch ne andere lösung ?

Liebe Grüße
10/04/2010 15:59 BlackHybrid#15
Hast du auch die Bilder in dem Ordner, wo dein scrip drinnen ist weil bei mir klappt alles bis auf den GUI Hintergrund den hab ich nicht getestet
Page 1 of 2 1 2