(I can only reply to one post, but I can't create a new one ... that's why I always use reply)
This is my question ,,,
HOW CAN I EXECUTE COMMANDS IN A MENU ON A WINDOWS SCREEN ScreenRes Graphics mode ?
I was able to add a menu to ScreenRes, but it doesn't execute commands ... Is it impossible?' -------
This is the idea:
Dim As HMENU hMenu, hFile, hHelp
Dim As MSG msg
'Create a window:
hMenu = CreateMenu()
hFile = CreateMenu()
hHelp = CreateMenu()
MenuTitle(hMenu, hFile, "File")
MenuTitle(hMenu, hHelp, "Help")
'Create menu items:
MenuItem(hFile, 1, "New")
MenuItem(hFile, 2, "Open")
MenuItem(hFile, 3, "Save")
MenuItem(hFile, 4, "Exit")
MenuItem(hHelp, 5, "Info")
MenuItem(hFile, 6, "FIN")
Dim As hWnd hwnd = Cast(hwnd,IhWnd)
The menu works but does not execute commands, the hwnd is from Screenres.
Seems the problem is the cast of hwnd....
I compiled as a console to see the prints, but there is no screen print.
Of course I tested with window new and run ok....but I would like a Screenres window
Select Case msg.hwnd
Select Case msg.message
Case WM_COMMAND ' Menu commands
Select Case msg.wParam
Messagebox(0, "Test of menu functions", "Info", 0)