PureBasic Forums - English

Code: Select all

If OpenWindow(1, 0, 0, 800, 640, "Window", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)

    ListViewGadget(0,10,10,780,580)
    ButtonGadget(1,10,600,100,20,"Test")
    myMessage = RegisterWindowMessage_(@"My.App.Message.1")

   

    Repeat
        Event = WaitWindowEvent()
        Select Event
          Case #PB_Event_Gadget
            Select EventGadget()
              Case 1
                 PostMessage_(#HWND_BROADCAST,myMessage,12,24)
            EndSelect
            
            Case #PB_Event_CloseWindow
                Quit = #True
            Case myMessage
                msg$ = "STRING MESSAGE (RegisterWindowMessage): "
                AddGadgetItem(0,-1,msg$+Str(Event)+" ($"+Hex(Event)+") - wParam: "+Str(EventwParam())+" ($"+Hex(EventwParam())+") - lParam: "+Str(EventlParam())+" ($"+Hex(EventlParam())+")")
        EndSelect
    Until Quit = #True
EndIf