Code: Alles auswählen
s=GetGadgetText(LobbyChatEingabeID) ;der Text des StringGadget
Debug Asc(Right(s,2)) ;Zeigt nur Buchstaben und Zahlen an, aber nicht Chr(13) oder Chr(10)
Code: Alles auswählen
s=GetGadgetText(LobbyChatEingabeID) ;der Text des StringGadget
Debug Asc(Right(s,2)) ;Zeigt nur Buchstaben und Zahlen an, aber nicht Chr(13) oder Chr(10)
Code: Alles auswählen
EnableExplicit
If OpenWindow(0, 0, 0, 500, 400, "Window", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
StringGadget(1, 10, 10, 480, 20, "String", 0)
AddKeyboardShortcut(0, #PB_Shortcut_Return, 1)
Repeat
Select WaitWindowEvent()
Case #PB_Event_Menu
Select EventMenu()
Case 1
If GetActiveGadget() = 1
Debug "Enter gedrückt"
EndIf
EndSelect
Case #PB_Event_CloseWindow
End
EndSelect
ForEver
EndIf