AU3-鍵槃控制實例子 |Autoit腳本代碼 ;============================================= ;KeyDemo1.au3 ;By baba7 ;============================================= ; 按下 Esc 將終止腳本 Global $i=1 #include HotKeySet("", "Terminate") HotKeySet("", "Kleft") HotKeySet("", "Kright") HotKeySet("", "Kup") HotKeySet("", "Kdown") GUICreate("鍵盤方向鍵控制演示",300,300) ;－－－－－－－－－－－－－－－－左 上 寬 高 默認焦點????????? $B1=GUICtrlCreateButton("???",10 ,30 ,70,70,$BS_DEFPUSHBUTTON ) $B2=GUICtrlCreateButton("???",80 ,30 ,70,70) $B3=GUICtrlCreateButton("???",150,30 ,70,70) $B4=GUICtrlCreateButton("???",10 ,100,70,70) $B5=GUICtrlCreateButton("???",80 ,100,70,70) $B6=GUICtrlCreateButton("???",150,100,70,70) $B7=GUICtrlCreateButton("???",10 ,170,70,70) $B8=GUICtrlCreateButton("???",80 ,170,70,70) $B9=GUICtrlCreateButton("???",150,170,70,70) $L1=GUICtrlCreateLabel("用鍵盤上下左右鍵隨意控制。",30,280) GUISetState(@SW_SHOW) GUICtrlSetState($B1,$GUI_FOCUS) ;;;; 這裡是程序主體 ;;;; While 1 Sleep(100) WEnd ;;;;;;;; Func Terminate() Exit 0 EndFunc Func Kleft() Switch $i Case 1 GUICtrlSetState($B1,$GUI_DEFBUTTON) GUICtrlSetState($B8,$GUI_DEFBUTTON) GUICtrlSetState($B9,$GUI_FOCUS) $i=9 Case 2 GUICtrlSetState($B2,$GUI_DEFBUTTON) GUICtrlSetState($B9,$GUI_DEFBUTTON) GUICtrlSetState($B1,$GUI_FOCUS) $i=1 Case 3 GUICtrlSetState($B3,$GUI_DEFBUTTON) GUICtrlSetState($B1,$GUI_DEFBUTTON) GUICtrlSetState($B2,$GUI_FOCUS) $i=2 Case 4 GUICtrlSetState($B4,$GUI_DEFBUTTON) GUICtrlSetState($B2,$GUI_DEFBUTTON) GUICtrlSetState($B3,$GUI_FOCUS) $i=3 Case 5 GUICtrlSetState($B5,$GUI_DEFBUTTON) GUICtrlSetState($B6,$GUI_DEFBUTTON) GUICtrlSetState($B4,$GUI_FOCUS) $i=4 Case 6 GUICtrlSetState($B6,$GUI_DEFBUTTON) GUICtrlSetState($B7,$GUI_DEFBUTTON) GUICtrlSetState($B5,$GUI_FOCUS) $i=5 Case 7 GUICtrlSetState($B7,$GUI_DEFBUTTON) GUICtrlSetState($B8,$GUI_DEFBUTTON) GUICtrlSetState($B6,$GUI_FOCUS) $i=6 Case 8 GUICtrlSetState($B8,$GUI_DEFBUTTON) GUICtrlSetState($B9,$GUI_DEFBUTTON) GUICtrlSetState($B7,$GUI_FOCUS) $i=7 Case 9 GUICtrlSetState($B9,$GUI_DEFBUTTON) GUICtrlSetState($B1,$GUI_DEFBUTTON) GUICtrlSetState($B8,$GUI_FOCUS) $i=8 EndSwitch EndFunc Func Kright() Switch $i Case 1 GUICtrlSetState($B1,$GUI_DEFBUTTON) GUICtrlSetState($B2,$GUI_FOCUS) $i=2 Case 2 GUICtrlSetState($B2,$GUI_DEFBUTTON) GUICtrlSetState($B3,$GUI_FOCUS) $i=3 Case 3 GUICtrlSetState($B3,$GUI_DEFBUTTON) GUICtrlSetState($B4,$GUI_FOCUS) $i=4 Case 4 GUICtrlSetState($B4,$GUI_DEFBUTTON) GUICtrlSetState($B5,$GUI_FOCUS) $i=5 Case 5 GUICtrlSetState($B5,$GUI_DEFBUTTON) GUICtrlSetState($B6,$GUI_FOCUS) $i=6 Case 6 GUICtrlSetState($B6,$GUI_DEFBUTTON) GUICtrlSetState($B7,$GUI_FOCUS) $i=7 Case 7 GUICtrlSetState($B7,$GUI_DEFBUTTON) GUICtrlSetState($B8,$GUI_FOCUS) $i=8 Case 8 GUICtrlSetState($B8,$GUI_DEFBUTTON) GUICtrlSetState($B9,$GUI_FOCUS) $i=9 Case 9 GUICtrlSetState($B9,$GUI_DEFBUTTON) GUICtrlSetState($B1,$GUI_FOCUS) $i=1 EndSwitch EndFunc Func Kup() GUICtrlSetState($B1,$GUI_DEFBUTTON) GUICtrlSetState($B4,$GUI_DEFBUTTON) GUICtrlSetState($B7,$GUI_DEFBUTTON) GUICtrlSetState($B2,$GUI_DEFBUTTON) GUICtrlSetState($B5,$GUI_DEFBUTTON) GUICtrlSetState($B8,$GUI_DEFBUTTON) GUICtrlSetState($B3,$GUI_DEFBUTTON) GUICtrlSetState($B6,$GUI_DEFBUTTON) GUICtrlSetState($B9,$GUI_DEFBUTTON) Switch $i Case 1 GUICtrlSetState($B7,$GUI_FOCUS) $i=7 Case 7 GUICtrlSetState($B4,$GUI_FOCUS) $i=4 Case 4 GUICtrlSetState($B1,$GUI_FOCUS) $i=1 Case 2 GUICtrlSetState($B8,$GUI_FOCUS) $i=8 Case 5 GUICtrlSetState($B2,$GUI_FOCUS) $i=2 Case 8 GUICtrlSetState($B5,$GUI_FOCUS) $i=5 Case 3 GUICtrlSetState($B9,$GUI_FOCUS) $i=9 Case 6 GUICtrlSetState($B3,$GUI_FOCUS) $i=3 Case 9 GUICtrlSetState($B6,$GUI_FOCUS) $i=6 EndSwitch EndFunc Func Kdown() GUICtrlSetState($B1,$GUI_DEFBUTTON) GUICtrlSetState($B4,$GUI_DEFBUTTON) GUICtrlSetState($B7,$GUI_DEFBUTTON) GUICtrlSetState($B2,$GUI_DEFBUTTON) GUICtrlSetState($B5,$GUI_DEFBUTTON) GUICtrlSetState($B8,$GUI_DEFBUTTON) GUICtrlSetState($B3,$GUI_DEFBUTTON) GUICtrlSetState($B6,$GUI_DEFBUTTON) GUICtrlSetState($B9,$GUI_DEFBUTTON) Switch $i Case 1 GUICtrlSetState($B4,$GUI_FOCUS) $i=4 Case 4 GUICtrlSetState($B7,$GUI_FOCUS) $i=7 Case 7 GUICtrlSetState($B1,$GUI_FOCUS) $i=1 Case 2 GUICtrlSetState($B5,$GUI_FOCUS) $i=5 Case 5 GUICtrlSetState($B8,$GUI_FOCUS) $i=8 Case 8 GUICtrlSetState($B2,$GUI_FOCUS) $i=2 Case 3 GUICtrlSetState($B6,$GUI_FOCUS) $i=6 Case 6 GUICtrlSetState($B9,$GUI_FOCUS) $i=9 Case 9 GUICtrlSetState($B3,$GUI_FOCUS) $i=3 EndSwitch EndFunc http://www.hi005.com/bbs/read.php?tid=100&page=e 回 · 發現好東西 autoit 這一篇文章封面 |
| 本站公告：〔您越需要我們，我們就越有創意〕 | 本站說明書：〔發現故鄉還有改進的地方，請來信告訴原丁們〕 |
| 觀察應用學習點數 ：〔咱的故鄉有您的參與，會使我們有更大的發揮空間，展現更豐富精彩的學習畫面〕 | 〔期待藉由無障礙網頁設計，能讓視障小朋友更愛看書、更愛寫作且更愛學習〕：盲用電腦「心得分享」 |