Kleines Problem mit den Fenstern

[S3b]

Ist mir fast a weng peinlich, hab das Tutorial über Fenster nicht soooo (genau) gelesen..

Code: Alles auswählen

Enumeration
  #Window_0
EndEnumeration


Enumeration
  #Text_0
  #Text_1
  #String_0
  #Text_2
EndEnumeration


Procedure Open_Window_0()
  If OpenWindow(#Window_0, 216, 0, 600, 300, "New window ( 0 )",  #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_TitleBar )
    If CreateGadgetList(WindowID(#Window_0))
      TextGadget(#Text_0, 25, 10, 540, 25, "")
      TextGadget(#Text_1, 135, 65, 125, 20, "")
      StringGadget(#String_0, 285, 65, 135, 20, "")
      TextGadget(#Text_2, 80, 120, 420, 30, "")
      
    EndIf
  EndIf
EndProcedure

Wie mache ich es, dass
- bei #Text_0 ein Text angezeigt wird
- #String_0 der Input ist

[Andreas_S]

Wenn du beim TextGadget nen Text reinschreiben willst dann musst in >>>""<<< reinschreiben z.B. "Hi". Beim StringGadget ebenfalls.

[S3b]

danke, das funktioniert mit dem Text, dann bin ich jetzt so weit:

Code: Alles auswählen

Enumeration
  #Window_0
EndEnumeration


Enumeration
  #Text_0
  #Text_1
  #String_0
  #Text_2
EndEnumeration


Procedure Open_Window_0()
  If OpenWindow(#Window_0, 216, 0, 600, 300, "New window ( 0 )",  #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_TitleBar )
    If CreateGadgetList(WindowID(#Window_0))
      TextGadget(#Text_0, 25, 10, 540, 25, "Hunde Mailer By s3b")
      TextGadget(#Text_1, 135, 65, 125, 20, "email:")
      StringGadget(#String_0, 285, 65, 135, 20, "")
      TextGadget(#Text_2, 80, 120, 420, 30, "der Absender ist immer hund@tierheim.org")
      
    EndIf
  EndIf
EndProcedure

text$="Hallo"
empfaenger$=????
RunProgram("***********************.php?text="+text$+"&empfaenger="+empfaenger$,"","",#PB_Program_Hide) 

Wie mache ich es, dass das, was beim StringGadget eingegeben wird, empfaenger$ ist?

[Andreas_S]

Mit > GetGadgetText(Gadget) <.
Der Parameter > Gadget < ist der Gadget von dem du es auslesen möchtest .

//Edit: Du brauchst noch eine Hauptschleife!

[S3b]

ohw..
kannst du mir da ein Beispiel geben?

[Kaeru Gaman]

schau mal in die Help.
das kurze Beispiel zu WaitWindowEvent() zeigt eine funktionierende Hauptschleife.

[S3b]

kay, wie siehts mit nem 'submit' button aus?

[Jilocasin]

Schau dir mal das an
Wolltest du das so ungefähr machen?

Code: Alles auswählen

Enumeration
  #Window_0
EndEnumeration


Enumeration
  #Text_0
  #Text_1
  #String_0
  #Text_2
  #Button_0
EndEnumeration


Procedure Open_Window_0()
  If OpenWindow(#Window_0, 216, 0, 600, 300, "New window ( 0 )",  #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_TitleBar )
    If CreateGadgetList(WindowID(#Window_0))
      TextGadget(#Text_0, 25, 10, 540, 25, "Hunde Mailer By s3b")
      TextGadget(#Text_1, 135, 65, 125, 20, "email:")
      StringGadget(#String_0, 285, 65, 135, 20, "")
      TextGadget(#Text_2, 80, 120, 220, 30, "der Absender ist immer hund@tierheim.org")
       ButtonGadget(#Button_0, 310, 115, 64, 24, "Absenden") ; Ein einfacher Buton zum "Absenden" ;-)
    EndIf
  EndIf
EndProcedure

Open_Window_0()


Repeat
  Event = WaitWindowEvent() ; Es wird solange immer wieder geguggt, ob etwas passiert ist...
  
  If Event = #PB_Event_Gadget ; Wenn ein "Gadget" etwas macht, wie hier z.B. der Button...
    If EventGadget() = #Button_0 ; ...dann wird geprüft, welches Gadget das Event ausgelöst hat. Ist es der Button...
      text$="Hallo"
      empfaenger$=GetGadgetText(#String_0) ; ...wird der Text ausgelesen und RunProgram wird aufgeführt
      RunProgram("***********************.php?text="+text$+"&empfaenger="+empfaenger$,"","",#PB_Program_Hide)
    EndIf
  EndIf
  
Until Event = #PB_Event_CloseWindow ; ...bis man das Fenster schließt

[Kiffi]

Code: Alles auswählen

"Hunde Mailer By s3b"

bist Du eigentlich berechtigt, unter hund [at] tierheim.org eMails zu versenden?

Grüße ... Kiffi

[S3b]

@Jilocasin: du bist genial
@Kiffi: wer sagt denn, dass ich soowas machen würde