Tham khảo tài liệu 'autoi technology curriculum book part 50', 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ả | GUISetState resize the control n GUICtrlSetPos n 50 50 200 100 Run the GUI until the dialog is closed While 1 Smsg GUIGetMsg If Smsg SGUI_EVENT_CLOSE Then ExitLoop WEnd GUIDelete EndFunc Example1 ---example 2 Func Example2 Local Smsg Sgui GUICreate test transparentpic 200 100 Spic GUICreate 68 71 10 10 SWS_POPUP BitOR SWS_EX_LAYERED WS_EX_MDICHILD Sgui GUICtrlCreatePic @SystemDir oobe images 0 0 0 0 GUISetState @SW_SHOW Spic GUISetState @SW_SHOW Sgui HotKeySet ESC main HotKeySet LEFT left HotKeySet RIGHT right HotKeySet DOWN down HotKeySet UP up SpicPos WinGetPos Spic SguiPos WinGetPos Sgui Do Smsg GUIGetMsg Until Smsg SGUI_EVENT_CLOSE EndFunc Example2 Func main SguiPos WinGetPos Sgui WinMove Sgui SguiPos 0 10 SguiPos 1 10 EndFunc main Func left SpicPos WinGetPos Spic WinMove Spic SpicPos 0 - 10 picPos 1 EndFunc left Func right SpicPos WinGetPos Spic WinMove Spic SpicPos 0 10 SpicPos 1 EndFunc right Func down SpicPos WinGetPos Spic WinMove Spic SpicPos 0 SpicPos 1 10 EndFunc down Func up SpicPos WinGetPos Spic WinMove Spic SpicPos 0 SpicPos 1 - 10 EndFunc up ---example 3 PNG work araund by Zedna include include include Include Global ShGUI ShImage ShGraphic ShImage1 Create GUI ShGUI GUICreate Show PNG 350 301 Load PNG image _GDIPlus_StartUp ShImage _GDIPlus_ImageLoadFromFile ShGraphic _GDIPlus_GraphicsCreateFromHWND ShGUI GUIRegisterMsg WM_PAINT MY_WM_PAINT GUISetState Loop until user exits do until GUIGetMsg GUI_EVENT_CLOSE Clean up resources _GDIPlus_GraphicsDispose hGraphic _GDIPlus_ImageDispose hImage _GDIPlus_ShutDown Draw PNG image Func MY_WM_PAINT hWnd Msg wParam lParam _WinAPI_RedrawWindow hGUI 0 0 RDW_UPDATENOW _GDIPlus_GraphicsDrawImage hGraphic hImage 0 0 _WinAPI_RedrawWindow hGUI 0 0 RDW_VALIDATE Return GUI_RUNDEFMSG EndFunc Function Reference GUICtrlCreateProgress tạo một Progress control cho GUI. GUICtrlCreateProgress left top width height style exStyle Parameters left
