熱鍵可以用標籤反饋來實現,開始與暫停需要一個變數來記錄迴圈停止時的次陣列件:標籤(1個) 程式碼如下:
.版本 2.支援庫 shellEx.支援庫 spec.程式集 視窗程式集_啟動視窗.程式集變數 集_熱鍵開始, 整數型.程式集變數 集_熱鍵停止, 整數型.子程式 __啟動視窗_建立完畢集_熱鍵開始 ＝ 註冊熱鍵 (取視窗控制代碼 (), 標籤1.取視窗控制代碼 (), 0, #F7鍵)集_熱鍵停止 ＝ 註冊熱鍵 (取視窗控制代碼 (), 標籤1.取視窗控制代碼 (), 0, #F1鍵) " 我係統中F12鍵被佔用,使用F1代替,自己替換吧.如果真 (集_熱鍵開始 ＝ 0 或 集_熱鍵停止 ＝ 0) 資訊框 (“註冊熱鍵失敗”, 0, , ).如果真結束標籤1.標題 ＝ “0” " 這裡使用標籤作為變數存放.子程式 _標籤1_反饋事件, 整數型.引數 引數一, 整數型.引數 引數二, 整數型.區域性變數 N, 整數型.區域性變數 邏輯引數, 邏輯型, 靜態.區域性變數 記錄次數, 整數型.區域性變數 迴圈次數, 整數型.區域性變數 總迴圈數, 整數型邏輯引數 ＝ 取反 (邏輯引數)總迴圈數 ＝ 20記錄次數 ＝ 到數值 (標籤1.標題).如果真 (集_熱鍵停止 ＝ 引數一) 標籤1.標題 ＝ “0”.如果真結束.如果真 (集_熱鍵開始 ＝ 引數一) 迴圈次數 ＝ 總迴圈數 － 到數值 (標籤1.標題) .計次迴圈首 (迴圈次數, N) .如果真 (邏輯引數 ＝ 假) 跳出迴圈 () .如果真結束 標籤1.標題 ＝ 到文字 (N ＋ 記錄次數) 延遲 (500) .計次迴圈尾 ().如果真結束.子程式 __啟動視窗_將被銷燬撤銷熱鍵 (取視窗控制代碼 (), 集_熱鍵開始)撤銷熱鍵 (取視窗控制代碼 (), 集_熱鍵停止)
熱鍵可以用標籤反饋來實現,開始與暫停需要一個變數來記錄迴圈停止時的次陣列件:標籤(1個) 程式碼如下:
.版本 2.支援庫 shellEx.支援庫 spec.程式集 視窗程式集_啟動視窗.程式集變數 集_熱鍵開始, 整數型.程式集變數 集_熱鍵停止, 整數型.子程式 __啟動視窗_建立完畢集_熱鍵開始 ＝ 註冊熱鍵 (取視窗控制代碼 (), 標籤1.取視窗控制代碼 (), 0, #F7鍵)集_熱鍵停止 ＝ 註冊熱鍵 (取視窗控制代碼 (), 標籤1.取視窗控制代碼 (), 0, #F1鍵) " 我係統中F12鍵被佔用,使用F1代替,自己替換吧.如果真 (集_熱鍵開始 ＝ 0 或 集_熱鍵停止 ＝ 0) 資訊框 (“註冊熱鍵失敗”, 0, , ).如果真結束標籤1.標題 ＝ “0” " 這裡使用標籤作為變數存放.子程式 _標籤1_反饋事件, 整數型.引數 引數一, 整數型.引數 引數二, 整數型.區域性變數 N, 整數型.區域性變數 邏輯引數, 邏輯型, 靜態.區域性變數 記錄次數, 整數型.區域性變數 迴圈次數, 整數型.區域性變數 總迴圈數, 整數型邏輯引數 ＝ 取反 (邏輯引數)總迴圈數 ＝ 20記錄次數 ＝ 到數值 (標籤1.標題).如果真 (集_熱鍵停止 ＝ 引數一) 標籤1.標題 ＝ “0”.如果真結束.如果真 (集_熱鍵開始 ＝ 引數一) 迴圈次數 ＝ 總迴圈數 － 到數值 (標籤1.標題) .計次迴圈首 (迴圈次數, N) .如果真 (邏輯引數 ＝ 假) 跳出迴圈 () .如果真結束 標籤1.標題 ＝ 到文字 (N ＋ 記錄次數) 延遲 (500) .計次迴圈尾 ().如果真結束.子程式 __啟動視窗_將被銷燬撤銷熱鍵 (取視窗控制代碼 (), 集_熱鍵開始)撤銷熱鍵 (取視窗控制代碼 (), 集_熱鍵停止)