

Kleines Beispiel:
Code: Alles auswählen
If OpenWindow(1, 353, 174, 307, 234, #PB_Window_SystemMenu | #PB_Window_TitleBar , "Test")
If CreateGadgetList(WindowID())
OpenRichEdit(WindowID(),2, 10, 10, 170, 200,"")
ListIconGadget(3, 190, 10, 110, 120, "Column1", 106)
StringGadget(4, 190, 140, 110, 70, "")
ButtonGadget(5, 190, 210, 110, 20, "Senden")
ChangeRichEditOptions(#ES_READONLY)
Endif
Endif
Repeat
EventID.l = WaitWindowEvent()
If EventID = #PB_Event_CloseWindow
Quit = 1
EndIf
Until Quit = 1
End