Seite 1 von 3
Kleines Problem mit den Fenstern
Verfasst: 22.05.2007 20:02
von 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
Verfasst: 22.05.2007 20:16
von Andreas_S
Wenn du beim TextGadget nen Text reinschreiben willst dann musst in >>>""<<< reinschreiben z.B. "Hi". Beim StringGadget ebenfalls.
Verfasst: 22.05.2007 20:47
von 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?
Verfasst: 22.05.2007 20:50
von Andreas_S
Mit > GetGadgetText(Gadget) <.
Der Parameter > Gadget < ist der Gadget von dem du es auslesen möchtest
.
//Edit: Du brauchst noch eine Hauptschleife!
Verfasst: 22.05.2007 20:54
von S3b
ohw..
kannst du mir da ein Beispiel geben?
Verfasst: 22.05.2007 20:55
von Kaeru Gaman
schau mal in die Help.
das kurze Beispiel zu WaitWindowEvent() zeigt eine funktionierende Hauptschleife.
Verfasst: 22.05.2007 20:56
von S3b
kay, wie siehts mit nem 'submit' button aus?
Verfasst: 22.05.2007 21:00
von 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
Verfasst: 22.05.2007 21:01
von Kiffi
bist Du eigentlich berechtigt, unter hund [at] tierheim.org eMails zu versenden?
Grüße ... Kiffi
Verfasst: 22.05.2007 21:07
von S3b
@Jilocasin: du bist genial
@Kiffi: wer sagt denn, dass ich soowas machen würde
