易語(yǔ)言不用投遞消息隨意移動(dòng)控件的代碼

更新時(shí)間：2018年11月27日 08:56:37 作者：易語(yǔ)言源碼教程

今天小編就為大家分享一篇關(guān)于易語(yǔ)言不用投遞消息隨意移動(dòng)控件的代碼，小編覺(jué)得內(nèi)容挺不錯(cuò)的，現(xiàn)在分享給大家，具有很好的參考價(jià)值，需要的朋友一起跟隨小編來(lái)看看吧

不用投遞消息移動(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_周期事件
.判斷開(kāi)始 (取鼠標(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)左鍵被放開(kāi), 邏輯型
.參數(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é)果：