input problem, im fenster modus

[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

[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.

[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.

[NicTheQuick]

Wenn du in dem Fenster schreiben willst, bietet sich auch ein [c]EditorGadget()[/c] an.

[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

[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()

[DarkDragon]

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