au3编写记录5_嵌入图标

admin

1. ;进度条实例
   
2. #comments-start
   
3. ProgressOn("进度条", "每秒增加10%", "0 ％ ")
   
4. For $i = 10 to 100 step 10
   
5.     sleep(1000)
   
6.     ProgressSet( $i, $i & " ％ ")
   
7. Next
   
8. ProgressSet(100 , "完成", "完成")
   
9. sleep(500)
   
10. ProgressOff()
    
11. #comments-end
    
12. 
    
13. ;运行dos
    
14. #comments-start
    
15. #include <Process.au3>
    
16. $rc = _RunDos("set /p a=")
    
17. #comments-end
    
18. 
    
19. 
    
20. #include <GUIConstants.au3>
    
21. 
    
22. ;示例1 ---------------------------
    
23. GUICreate(" 我的图标")
    
24. 
    
25. $icon = GUICtrlCreateIcon ("shell32.dll",10, 20,20)
    
26. $icon2 = GUICtrlCreateIcon ("explorer.icl",10, 20,80)
    
27. $icon3 = GUICtrlCreateIcon ("explorer.icl",6, 80,80)
    
28. $n1=GUICtrlCreateIcon (@windowsdir & "\cursors\horse.ani",-1, 20,120,32,32)
    
29. $n2=GUICtrlCreateIcon ("shell32.dll",7 ,20,160,32,32)
    
30. GUISetState ()
    
31. 
    
32. ; 运行脚本直到窗口被关闭
    
33. While 1
    
34.     $msg = GUIGetMsg()
    
35. 
    
36.     If $msg = $GUI_EVENT_CLOSE Then ExitLoop
    
37. Wend

复制代码