Besoin de testeur sur un problème de code
Publié : sam. 09/mars/2013 19:24
Pouvez vous essayer ce code dans les deux modes x86 et x64, dans le premier cas, j'ai deux messages qui apparaissent dans la listview et dans l'autre cas, j'ai un message.
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