Seite 1 von 1
input problem, im fenster modus
Verfasst: 29.06.2005 11:57
von Mathias-Kwiatkowski
mal wieder ne frage, danke an alle die mir beim letzten mal geholfen haben...
nun das nächste...
wie kann man hier einen so gennanten input befehl nutzen?
If OpenWindow(0, 100, 200, 600 , 500, #PB_Window_BorderLess, "Test")
denn ich möchte in diesem fenster schreiben können
danke mal wieder im vorraus
Verfasst: 29.06.2005 13:18
von THEEX
Input() ist für Console gedacht. Am Besten schauste Dir mal ein paar Codes auf PureArea.net an, die für Windows sind, da Dir offensichtlich einige Grundlagen fehlen.
Verfasst: 29.06.2005 14:48
von Batze
Auch die Hilfe im PureBasic kann nützlich sein, da dort alle Befehle thematisch aufgelistet sind und du so schnell eine Übersicht erhälst.
Verfasst: 29.06.2005 14:55
von NicTheQuick
Wenn du in dem Fenster schreiben willst, bietet sich auch ein [c]EditorGadget()[/c] an.
Verfasst: 29.06.2005 23:17
von Mathias-Kwiatkowski
ok ok, habe so einiges versucht, nur ich bekomme es nicht hin das man im fenster schreiben kann.
es wäre nett von euch wenn mir einer ein beispielcode macht
es kann auch ein inkey befähl sein (so ein inkey ähnlicher befehl)
inkey währe mir denke ich auch lieber
Verfasst: 30.06.2005 16:57
von bobobo
Code: Alles auswählen
OpenConsole()
PrintN("Du möchtest was schreiben mit inkey?")
PrintN("")
PrintN("Ende mit ESC")
PrintN("")
While a$<>Chr(27)
a$=Left(Inkey(),1)
Print(Chr(Asc(a$)))
Wend
PrintN("")
PrintN("Schon Schluss?")
PrintN("")
PrintN("Und nun was mit input (Ende mit Entertaste")
Input()
PrintN("")
PrintN("Geht doch (hau ne Taste)")
Input()
CloseConsole()
Verfasst: 30.06.2005 17:11
von DarkDragon
bobobo hat geschrieben:Code: Alles auswählen
OpenConsole()
PrintN("Du möchtest was schreiben mit inkey?")
PrintN("")
PrintN("Ende mit ESC")
PrintN("")
While a$<>Chr(27)
a$=Left(Inkey(),1)
Print(Chr(Asc(a$)))
Wend
PrintN("")
PrintN("Schon Schluss?")
PrintN("")
PrintN("Und nun was mit input (Ende mit Entertaste")
Input()
PrintN("")
PrintN("Geht doch (hau ne Taste)")
Input()
CloseConsole()
Nein, das ist nicht was er will, er will sowas:
Code: Alles auswählen
#WindowWidth = 640
#WindowHeight = 480
#WindowFlags = #PB_Window_SizeGadget | #PB_Window_MaximizeGadget | #PB_Window_MinimizeGadget | #PB_Window_TitleBar | #PB_Window_ScreenCentered | #PB_Window_SystemMenu
hWnd = OpenWindow(0, 0, 0, #WindowWidth, #WindowHeight, #WindowFlags, "Fenster")
CreateGadgetList(hWnd)
StringGadget(0, 10, 10, 200, 20, "Test") ;Oder EditorGadget für mehrzeilige Texte
Repeat
Event = WindowEvent()
If Event = #PB_Event_Gadget And EventGadgetID() = 0 And EventType() = #PB_EventType_Change
Debug GetGadgetText(0)
EndIf
Delay(10)
Until Event = #PB_Event_CloseWindow
End