Tham khảo tài liệu 'autoi technology curriculum book part 41', công nghệ thông tin, kỹ thuật lập trình phục vụ nhu cầu học tập, nghiên cứu và làm việc hiệu quả | Run the GUI until the dialog is closed While 1 msg GUIGetMsg If msg GUI_EVENT_CLOSE Then ExitLoop WEnd GUIDelete EndFunc Example1 Second sample Func Example2 Local hGui OptionsBtn OptionsDummy OptionsContext OptionsCommon OptionsFile msg Local OptionsExit HelpBtn HelpDummy HelpContext HelpWWW HelpAbout hGui GUICreate My GUI 170 40 OptionsBtn GUICtrlCreateButton Options 10 10 70 20 BS_FLAT At first create a dummy control for the options and a contextmenu for it OptionsDummy GUICtrlCreateDummy OptionsContext GUICtrlCreateContextMenu OptionsDummy OptionsCommon GUICtrlCreateMenuItem Common OptionsContext OptionsFile GUICtrlCreateMenuItem File OptionsContext GUICtrlCreateMenuItem OptionsContext OptionsExit GUICtrlCreateMenuItem Exit OptionsContext HelpBtn GUICtrlCreateButton Help 90 10 70 20 BS_FLAT Create a dummy control and a contextmenu for the help too HelpDummy GUICtrlCreateDummy HelpContext GUICtrlCreateContextMenu HelpDummy HelpWWW GUICtrlCreateMenuItem Website HelpContext GUICtrlCreateMenuItem HelpContext HelpAbout GUICtrlCreateMenuItem About. HelpContext GUISetState While 1 msg GUIGetMsg Switch msg Case OptionsExit GUI_EVENT_CLOSE ExitLoop Case OptionsBtn ShowMenu hGui msg OptionsContext Case HelpBtn ShowMenu hGui msg HelpContext Case HelpAbout MsgBox 64 About. GUICtrlGetHandle-Sample EndSwitch WEnd GUIDelete EndFunc Example2 Show a menu in a given GUI window which belongs to a given GUI ctrl Func ShowMenu hWnd CtrlID nContextID Local arPos x y Local hMenu GUICtrlGetHandle nContextID arPos ControlGetPos hWnd CtrlID x arPos 0 y arPos 1 arPos 3 ClientToScreen hWnd x y TrackPopupMenu hWnd hMenu x y EndFunc ShowMenu Convert the client GUI coordinates to screen desktop coordinates Func ClientToScreen hWnd ByRef x ByRef y Local stPoint DllStructCreate int int DllStructSetData stPoint 1 x DllStructSetData stPoint 2 y DllCall int ClientToScreen hwnd hWnd ptr DllStructGetPtr stPoint x DllStructGetData stPoint 1 y DllStructGetData stPoint 2 release Struct not
