易語言如何實(shí)現(xiàn)不用投遞消息隨意移動(dòng)控件

小編給大家分享一下易語言如何實(shí)現(xiàn)不用投遞消息隨意移動(dòng)控件，相信大部分人都還不怎么了解，因此分享這篇文章給大家參考一下，希望大家閱讀完這篇文章后大有收獲，下面讓我們一起去了解一下吧！

不用投遞消息移動(dòng)控件的代碼

.版本 2
.程序集 窗口程序集1
.程序集變量 l, 整數(shù)型
.程序集變量 r, 整數(shù)型
.程序集變量 ml, 整數(shù)型
.程序集變量 mr, 整數(shù)型
.子程序 _取位置標(biāo)簽_鼠標(biāo)左鍵被按下, 邏輯型
.參數(shù) 橫向位置, 整數(shù)型
.參數(shù) 縱向位置, 整數(shù)型
.參數(shù) 功能鍵狀態(tài), 整數(shù)型
l ＝ 取位置標(biāo)簽.左邊
r ＝ 取位置標(biāo)簽.頂邊
ml ＝ 取鼠標(biāo)水平位置 ()
mr ＝ 取鼠標(biāo)垂直位置 ()
時(shí)鐘1.時(shí)鐘周期 ＝ 10
.子程序 _時(shí)鐘1_周期事件
.判斷開始 (取鼠標(biāo)水平位置 () ＜ _啟動(dòng)窗口.左邊)
  取位置標(biāo)簽.左邊 ＝ 0
.判斷 (取鼠標(biāo)垂直位置 () ＜ _啟動(dòng)窗口.頂邊)
  取位置標(biāo)簽.頂邊 ＝ 0
.判斷 (取鼠標(biāo)水平位置 () ＞ _啟動(dòng)窗口.寬度 ＋ _啟動(dòng)窗口.左邊)
  取位置標(biāo)簽.左邊 ＝ _啟動(dòng)窗口.寬度 － 20
.判斷 (取鼠標(biāo)垂直位置 () ＞ _啟動(dòng)窗口.高度 ＋ _啟動(dòng)窗口.頂邊)
  取位置標(biāo)簽.頂邊 ＝ _啟動(dòng)窗口.高度 － 50
.默認(rèn)
  取位置標(biāo)簽.左邊 ＝ l － ml ＋ 取鼠標(biāo)水平位置 ()
  取位置標(biāo)簽.頂邊 ＝ r － mr ＋ 取鼠標(biāo)垂直位置 ()
  返回 ()
.判斷結(jié)束
時(shí)鐘1.時(shí)鐘周期 ＝ 0
.子程序 _取位置標(biāo)簽_鼠標(biāo)左鍵被放開, 邏輯型
.參數(shù) 橫向位置, 整數(shù)型
.參數(shù) 縱向位置, 整數(shù)型
.參數(shù) 功能鍵狀態(tài), 整數(shù)型
時(shí)鐘1.時(shí)鐘周期 ＝ 0
.子程序 __啟動(dòng)窗口_鼠標(biāo)位置被移動(dòng), 邏輯型
.參數(shù) 橫向位置, 整數(shù)型
.參數(shù) 縱向位置, 整數(shù)型
.參數(shù) 功能鍵狀態(tài), 整數(shù)型
時(shí)鐘2.時(shí)鐘周期 ＝ 10
標(biāo)簽4.左邊 ＝ 取鼠標(biāo)水平位置 () － _啟動(dòng)窗口.左邊
標(biāo)簽5.頂邊 ＝ 取鼠標(biāo)垂直位置 () － _啟動(dòng)窗口.頂邊
.子程序 _時(shí)鐘2_周期事件
左邊標(biāo)簽.標(biāo)題 ＝ 到文本 (取鼠標(biāo)水平位置 () － _啟動(dòng)窗口.左邊)
頂邊標(biāo)簽.標(biāo)題 ＝ 到文本 (取鼠標(biāo)垂直位置 () － _啟動(dòng)窗口.頂邊)
.子程序 __啟動(dòng)窗口_創(chuàng)建完畢
標(biāo)簽4.高度 ＝ _啟動(dòng)窗口.高度
標(biāo)簽5.寬度 ＝ _啟動(dòng)窗口.寬度
.子程序 _取位置標(biāo)簽_鼠標(biāo)位置被移動(dòng), 邏輯型
.參數(shù) 橫向位置, 整數(shù)型
.參數(shù) 縱向位置, 整數(shù)型
.參數(shù) 功能鍵狀態(tài), 整數(shù)型
標(biāo)簽4.左邊 ＝ 取鼠標(biāo)水平位置 () － _啟動(dòng)窗口.左邊
標(biāo)簽5.頂邊 ＝ 取鼠標(biāo)垂直位置 () － _啟動(dòng)窗口.頂邊

運(yùn)行結(jié)果：

以上是“易語言如何實(shí)現(xiàn)不用投遞消息隨意移動(dòng)控件”這篇文章的所有內(nèi)容，感謝各位的閱讀！相信大家都有了一定的了解，希望分享的內(nèi)容對(duì)大家有所幫助，如果還想學(xué)習(xí)更多知識(shí)，歡迎關(guān)注億速云行業(yè)資訊頻道！