標題: 易語言代碼賞析 [打印本頁]
作者: yfiuop5696 時間: 2017-4-19 21:39
標題: 易語言代碼賞析
事件主窗口.創建完畢()
單選框1.背景顏色 = 無色
單選框2.背景顏色 = 無色
單選框3.背景顏色 = 無色
結束事件
事件單選框1.選擇改變()
如果 單選框1.選中 = 真 則
單選框2.選中 = 假
單選框3.選中 = 假
結束 如果
結束事件
事件單選框2.選擇改變()
如果 單選框2.選中 = 真 則
單選框1.選中 = 假
單選框3.選中 = 假
結束 如果
結束事件
事件單選框3.選擇改變()
如果 單選框3.選中 = 真 則
單選框2.選中 = 假
單選框1.選中 = 假
結束 如果
結束事件'
事件主窗口.按下某鍵(鍵代碼為 整數型,傳址 屏蔽 為 邏輯型)
判斷 鍵代碼
分支 返回鍵
彈出提示("你按下了返回鍵！")'如果 鍵代碼=返回鍵 則彈出相應提示
分支 音量增鍵
彈出提示("你按下了音量增鍵！")'如果 鍵代碼=音量增鍵 則彈出相應提示
分支 音量減鍵
彈出提示("你按下了音量減鍵！")'如果 鍵代碼=音量減鍵 則彈出相應提示
分支 中鍵
彈出提示("你按下了中鍵")'如果 鍵代碼=中鍵 則彈出相應提示
結束 判斷
結束事件
事件單選框1.選擇改變()
如果 單選框1.選中 = 真 則
單選框2.選中 = 假
否則
單選框2.選中 = 真
結束 如果
結束事件
事件單選框2.選擇改變()
如果 單選框2.選中 = 真 則
單選框1.選中 = 假
否則
單選框1.選中 = 真
結束 如果
結束事件
事件按鈕1.被單擊()
如果 單選框1.選中 = 真 則
信息框("信息：","感謝您的支持,我們將做得更好！","確定")
結束 如果
結束事件
事件按鈕2.被單擊()
結束 事件
事件主窗口.按下某鍵(鍵代碼為 整數型,傳址 屏蔽 為 邏輯型)
判斷 鍵代碼
分支 返回鍵
彈出提示("你按下了返回鍵！")'如果 鍵代碼=返回鍵 則彈出相應提示
分支 音量增鍵
彈出提示("你按下了音量增鍵！")'如果 鍵代碼=音量增鍵 則彈出相應提示
分支 音量減鍵
彈出提示("你按下了音量減鍵！")'如果 鍵代碼=音量減鍵 則彈出相應提示
分支 中鍵
彈出提示("你按下了中鍵")'如果 鍵代碼=中鍵 則彈出相應提示
結束 判斷
結束事件
事件單選框1.選擇改變()
如果 單選框1.選中 = 真 則
單選框2.選中 = 假
否則
單選框2.選中 = 真
結束 如果
結束事件
事件單選框2.選擇改變()
如果 單選框2.選中 = 真 則
單選框1.選中 = 假
否則
單選框1.選中 = 真
結束 如果
結束事件
事件按鈕1.被單擊()
如果 單選框1.選中 = 真 則
信息框("信息：","感謝您的支持,我們將做得更好！","確定")
結束 如果
結束事件
事件按鈕2.被單擊()
變量 計數 為 整數型
變量 結果 為 整數型
變量循環首 計數 = 1 至 100 步進 1 '變量循環,變量"計數"從1遞增到100,每次遞增值為步進值1,步進值默認為1,這里就可以省略不寫,步進值也可以為負數,表示遞減
結果 = 結果 + 計數
變量循環尾
信息框("信息：","累加結果為："& 結果 ,"確定")
結束事件
事件按鈕3.被單擊()
變量 計次 為 整數型
判斷循環首 計次 < 10 '如果條件滿足就繼續執行循環中的語句,如果條件不滿足時則停止循環
計次 = 計次 + 1
判斷循環尾
彈出提示("共循環"& 計次 & "次")
結束事件
事件按鈕4.被單擊()
變量 文本數組 為 文本型()
變量 當前文本 為 文本型
文本數組=分割文本("項目1|項目2|項目3","|")
枚舉循環首 當前文本 從 文本數組 '將文本數組中的每一個成員枚舉出來,賦值給當前文本變量
調試輸出(當前文本)
編輯框1.內容 = 編輯框1.內容 &"\n" & 當前文本
枚舉循環尾
結束事件
| 歡迎光臨 (http://m.raoushi.com/bbs/) |
Powered by Discuz! X3.1 |