溫馨提示×
您好，登錄后才能下訂單哦！
點擊 登錄注冊 即表示同意《億速云用戶服務條款》
您好，登錄后才能下訂單哦！
小編給大家分享一下易語言如何實現不用投遞消息隨意移動控件，相信大部分人都還不怎么了解，因此分享這篇文章給大家參考一下，希望大家閱讀完這篇文章后大有收獲，下面讓我們一起去了解一下吧！
不用投遞消息移動控件的代碼
.版本 2 .程序集 窗口程序集1 .程序集變量 l, 整數型 .程序集變量 r, 整數型 .程序集變量 ml, 整數型 .程序集變量 mr, 整數型 .子程序 _取位置標簽_鼠標左鍵被按下, 邏輯型 .參數 橫向位置, 整數型 .參數 縱向位置, 整數型 .參數 功能鍵狀態, 整數型 l ＝ 取位置標簽.左邊 r ＝ 取位置標簽.頂邊 ml ＝ 取鼠標水平位置 () mr ＝ 取鼠標垂直位置 () 時鐘1.時鐘周期 ＝ 10 .子程序 _時鐘1_周期事件 .判斷開始 (取鼠標水平位置 () ＜ _啟動窗口.左邊) 取位置標簽.左邊 ＝ 0 .判斷 (取鼠標垂直位置 () ＜ _啟動窗口.頂邊) 取位置標簽.頂邊 ＝ 0 .判斷 (取鼠標水平位置 () ＞ _啟動窗口.寬度 ＋ _啟動窗口.左邊) 取位置標簽.左邊 ＝ _啟動窗口.寬度 － 20 .判斷 (取鼠標垂直位置 () ＞ _啟動窗口.高度 ＋ _啟動窗口.頂邊) 取位置標簽.頂邊 ＝ _啟動窗口.高度 － 50 .默認 取位置標簽.左邊 ＝ l － ml ＋ 取鼠標水平位置 () 取位置標簽.頂邊 ＝ r － mr ＋ 取鼠標垂直位置 () 返回 () .判斷結束 時鐘1.時鐘周期 ＝ 0 .子程序 _取位置標簽_鼠標左鍵被放開, 邏輯型 .參數 橫向位置, 整數型 .參數 縱向位置, 整數型 .參數 功能鍵狀態, 整數型 時鐘1.時鐘周期 ＝ 0 .子程序 __啟動窗口_鼠標位置被移動, 邏輯型 .參數 橫向位置, 整數型 .參數 縱向位置, 整數型 .參數 功能鍵狀態, 整數型 時鐘2.時鐘周期 ＝ 10 標簽4.左邊 ＝ 取鼠標水平位置 () － _啟動窗口.左邊 標簽5.頂邊 ＝ 取鼠標垂直位置 () － _啟動窗口.頂邊 .子程序 _時鐘2_周期事件 左邊標簽.標題 ＝ 到文本 (取鼠標水平位置 () － _啟動窗口.左邊) 頂邊標簽.標題 ＝ 到文本 (取鼠標垂直位置 () － _啟動窗口.頂邊) .子程序 __啟動窗口_創建完畢 標簽4.高度 ＝ _啟動窗口.高度 標簽5.寬度 ＝ _啟動窗口.寬度 .子程序 _取位置標簽_鼠標位置被移動, 邏輯型 .參數 橫向位置, 整數型 .參數 縱向位置, 整數型 .參數 功能鍵狀態, 整數型 標簽4.左邊 ＝ 取鼠標水平位置 () － _啟動窗口.左邊 標簽5.頂邊 ＝ 取鼠標垂直位置 () － _啟動窗口.頂邊
運行結果：
以上是“易語言如何實現不用投遞消息隨意移動控件”這篇文章的所有內容，感謝各位的閱讀！相信大家都有了一定的了解，希望分享的內容對大家有所幫助，如果還想學習更多知識，歡迎關注億速云行業資訊頻道！
免責聲明：本站發布的內容（圖片、視頻和文字）以原創、轉載和分享為主，文章觀點不代表本網站立場，如果涉及侵權請聯系站長郵箱：is@yisu.com進行舉報，并提供相關證據，一經查實，將立刻刪除涉嫌侵權內容。
