stringgadget auslesen ?
Verfasst: 19.03.2008 19:55
hi ich möchte den string aus einem string gadget auslesen um ihn mit printn darzustellen, wie mache ich das, welchen befehl brauche ich?
Code: Alles auswählen
#IDM_ReturnKey = 101
OpenWindow(0,0,0,320,240,"void",#PB_Window_SystemMenu | #PB_Window_ScreenCentered)
CreateGadgetList(WindowID(0))
StringGadget(0,5,5,200,20,"")
StringGadget(1,5,30,200,20,"")
ButtonGadget(2,5,60,200,25,"untitled")
Repeat
EventID = WaitWindowEvent()
If EventID = #PB_Event_Gadget And GadgetType(#PB_GadgetType_String)
If EventType() = #PB_EventType_Focus
AddKeyboardShortcut(0,#PB_Shortcut_Return,#IDM_ReturnKey)
ElseIf EventType() = #PB_EventType_LostFocus
RemoveKeyboardShortcut(0,#PB_Shortcut_Return)
EndIf
EndIf
If EventID = #PB_Event_Menu
Select EventMenu()
Case #IDM_ReturnKey
Debug "RETURN KEY PRESSED"
EndSelect
EndIf
Until EventID = #PB_Event_CloseWindow
Code: Alles auswählen
OpenWindow(0, 0, 0, 800, 600, "Fenster", #PB_Window_SystemMenu|#PB_Window_ScreenCentered)
AddKeyboardShortcut(0, #PB_Shortcut_Return, 1)
CreateGadgetList(WindowID(0))
StringGadget(1, 10, 10, 200, 30, "")
StringGadget(2, 10, 50, 200, 30, "")
Repeat
Event = WaitWindowEvent()
Select Event
Case #PB_Event_CloseWindow
End
Case #PB_Event_Menu
If EventMenu() = 1
Select GetActiveGadget()
Case 1 : Debug "Enter gedückt im StringGadget 1"
Case 2 : Debug "Enter gedückt im StringGadget 2"
EndSelect
EndIf
EndSelect
ForEver
Code: Alles auswählen
#IDM_ReturnKey = 101
OpenWindow(0,0,0,320,240,"void",#PB_Window_SystemMenu | #PB_Window_ScreenCentered)
CreateGadgetList(WindowID(0))
StringGadget(0,5,5,200,20,"")
StringGadget(1,5,30,200,20,"")
ButtonGadget(2,5,60,200,25,"untitled")
AddKeyboardShortcut(0,#PB_Shortcut_Return,#IDM_ReturnKey)
Repeat
EventID = WaitWindowEvent()
If EventID = #PB_Event_Menu
Select EventMenu()
Case #IDM_ReturnKey
Select GetActiveGadget()
Case 0
Debug "Stringgadget 1:" + GetGadgetText(0)
Case 1
Debug "Stringgadget 2:" + GetGadgetText(1)
EndSelect
EndSelect
EndIf
Until EventID = #PB_Event_CloseWindow