Kleine Button-Frage

[AlbertH]

Hallo liebe PureBasic-Kenner

ich bin in der tat ein deftiger anfänger und blicke auch nicht richtig durch aber ich brauche unbedingt eure hilfe:

wie vergebe ich den ButtonImageGadget eine funktion wie z.b. Includefile

kennt da einer ein tutorial oder hat jemand ein beispiel mit buttons die irgendwas ausführen

wäre echt super danke im voraus!!!

[Kaeru Gaman]

> wie vergebe ich den ButtonImageGadget eine funktion wie z.b. Includefile

gar nicht!

IncludeFile ist eine Compilezeit-funktion.
d.h. damit wird zur erstellungszeit ein File in die DataSection einer EXE integriert.

auf ein button wird mittels eines Eventloops reagiert, schau mal in der Help unter WaitWindowEvent, da ist ein Beispiel.


falls du meinst, wie du ein Image mit IncludeFile einbindest und auf einen Button bringst:

Code: Alles auswählen

CatchImage(#Icon,?Icon)
;...
ButtonImageGadget(#ImageButton,0,0,26,24,ImageID(#Icon))
;...
DataSection
Icon:
IncludeBinary "Grafik.ico" ; oder .bmp
EndDataSection

[Kiffi]

wie vergebe ich den ButtonImageGadget eine funktion wie z.b. Includefile

IncludeFile würde ich jetzt nicht gerade als Beispiel nehmen, weil dieser
Befehl (in Abhängigkeit von evtl. vorhandenen Compilerdirektiven) zur
Kompilierungszeit immer durch die in IncludeFile angegebene Datei ersetzt
wird, egal, ob der Button gedrückt wurde oder nicht.

kennt da einer ein tutorial oder hat jemand ein beispiel mit buttons die irgendwas ausführen

können wir Dir gerne erklären, wenn Du uns verrätst, welche PB-Version Du
verwendest.

Grüße ... Kiffi

[ts-soft]

Includefile ist keine RunTime-Funktion, kann also nicht einem Button
zugeordnet werde, desweiteren ist in der Hilfe zu PB, zu fast jedem Gadget
ein Beispiel vorhanden, dann haste einen Einstieg! Tutorials auf PureArea.net
sowie Robsite.de, links befinden sich oben Rechts.

Gruß
Thomas

[AlbertH]

Ich nutzen Pure Basic 4.00

ich hatte davor das problem auf diese art gelöst 1.pb war einfach ein runprogram-programm

Code: Alles auswählen

  If OpenWindow(0, 0, 0, 120, 130, "Beispiel1", #PB_Window_SystemMenu | #PB_Window_ScreenCentered) And CreateGadgetList(WindowID(0))
   TextGadget(1, 10,  100, 100, 110, "  bespieltext  ", #PB_Text_Center)
    
       ButtonImageGadget(0, 10, 10, 100, 83, ImageID(ID))
       GadgetToolTip(0, "Beispieltext2")
       SetActiveGadget(0)
       Repeat
       Event = WaitWindowEvent()
          
    If Event = #PB_Event_Gadget
    
    IncludeFile("1.pb") 

TextGadget(1, 10,  100, 100, 110, "Programm gestartet.", #PB_Text_Center)
 EndIf
    Until Event = #PB_Event_CloseWindow
  EndIf

doch wenn cih versuche 2 buttons einzubaun, funktioniert es nicht, ist auch klar aber ... irgendwie auch schade ^^

[ts-soft]

Du soltest die Zeile: IncludeFile("1.pb") an den Anfang des Codes setzen,
wird sowieso während des Compilierens eingebunden, nicht zur Laufzeit!!!

[Kiffi]

Code: Alles auswählen

If Event = #PB_Event_Gadget

Das alleine wird nicht reichen, wenn Du 2 Buttons haben willst. Zusätzlich
musst Du dann noch mit EventGadget() ermitteln, welcher Button gedrückt
wurde.

Grüße ... Kiffi

[AlbertH]

Du soltest die Zeile: IncludeFile("1.pb") an den Anfang des Codes setzen,
wird sowieso während des Compilierens eingebunden, nicht zur Laufzeit!!!

meinst du es so Oo

IncludeFile("1.pb")
If OpenWindow(0, 0, 0, 120, 130, "Beispiel1", #PB_Window_SystemMenu | #PB_Window_ScreenCentered) And CreateGadgetList(WindowID(0))
TextGadget(1, 10, 100, 100, 110, " bespieltext ", #PB_Text_Center)

ButtonImageGadget(0, 10, 10, 100, 83, ImageID(ID))
GadgetToolTip(0, "Beispieltext2")
SetActiveGadget(0)
Repeat
Event = WaitWindowEvent()

If Event = #PB_Event_Gadget



TextGadget(1, 10, 100, 100, 110, "Programm gestartet.", #PB_Text_Center)
EndIf
Until Event = #PB_Event_CloseWindow
EndIf

Das alleine wird nicht reichen, wenn Du 2 Buttons haben willst. Zusätzlich
musst Du dann noch mit EventGadget() ermitteln, welcher Button gedrückt
wurde.

ehm wie geht es nochmal so?? EventGadget()=#ButtonImage_0 dann sagt er aber syntax error!

[Kaeru Gaman]

#ButtonImage_0 wäre eine konstante.
wenn du die verwenden willst, solltest du sie auch beim einrichten des buttons verwenden.
und natürlich vorher definieren.

EventGadget() ist eine Abfragefunktion. also kannst du ihr nichts zuweisen, sondern nur ihren rückgabewert vergleichen.

Code: Alles auswählen

If EventGadget()=#ButtonImage_0

würde also funktionieren.

wie ich bereits sagte, schau mal in die Help für WaitWindowEvent, da ist ein Beispiel.

[ts-soft]

Code: Alles auswählen

XIncludeFile("1.pb")

If OpenWindow(0, 0, 0, 120, 130, "Beispiel1", #PB_Window_SystemMenu | #PB_Window_ScreenCentered) And CreateGadgetList(WindowID(0))
  TextGadget(1, 10,  100, 100, 110, "  bespieltext  ", #PB_Text_Center)

  ButtonImageGadget(0, 10, 10, 100, 83, ImageID(ID))
  GadgetToolTip(0, "Beispieltext2")
  SetActiveGadget(0)

  Repeat
    Event = WaitWindowEvent()

    If Event = #PB_Event_Gadget
      Gadget = EventGadget()
      If Gadget = 1
        TextGadget(1, 10,  100, 100, 110, "Programm gestartet.", #PB_Text_Center)
      EndIf
    EndIf
  Until Event = #PB_Event_CloseWindow
EndIf