Nur als Beispielvorlage:
Code: Alles auswählen
#WM_DeineKonstante = 123456
Procedure WndProc(hwnd, uMsg, wParam, lParam)
Result = #PB_ProcessPureBasicEvents
Select uMsg
Case #WM_DeineKonstante
Debug wParam
Debug lParam
EndSelect
ProcedureReturn Result
EndProcedure
;-Main
OpenWindow(0,0,0,640,480, "Mein ComboBox-Test", #PB_Window_SystemMenu | #PB_Window_ScreenCentered | #PB_Window_SizeGadget )
SetWindowCallback(@WndProc())
ComboBoxGadget(1,10,10,180, 40,#CBS_OWNERDRAWFIXED)
AddGadgetItem(1,-1, "")
AddGadgetItem(1,-1, "")
AddGadgetItem(1,-1, "")
SendMessage_(WindowID(0), #WM_DeineKonstante, RGB(255, 0, 0), RGB(0, 0, 255))
Repeat
Until WaitWindowEvent() = #PB_Event_CloseWindow
Welcher Konstantenwert noch frei ist, kannst du mit dem Programm
Konstantia ermitteln.
Als Beispiel habe ich den Wert 123456 genommen.
Das Beispiel soll dir nur zeigen, wie du mit SendMessage_() einen oder zwei Werte an ein Callback senden kannst.