Code : Tout sélectionner
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