隨滑鼠方向移動的簡單語言!!!

版本 2 支援庫 iext2

該子例程將角度取到滑鼠方向，整數型別。

引數物件指示值，整數。

區域性變數：物件中心橫坐標、整數型別。

區域性變數：物件中心縱坐標、整數型別。

區域性變數：滑鼠、橫坐標、整數。

區域性變數：滑鼠、縱坐標、整數。

處理事件。

物件中心橫坐標動畫框 1取左側物體（物體指示值）動畫框1取物件的寬度（物件標記的值）2

物件中心縱坐標動畫框 1取物件的上邊緣（物件指示值）動畫框1取物體的高度（標記物體的值）2

滑鼠橫坐標取滑鼠的水平位置 （）。

滑鼠的縱坐標取滑鼠的垂直位置 （）。

判斷開始（物件中心橫坐標，滑鼠橫坐標）。

返回（動畫框 1。設定角度（物件指定值，圓角正切（（物件中心縱坐標滑鼠縱坐標）物件中心橫坐標滑鼠橫坐標））180 pi 90）））。

違約。 返回（動畫框 1。設定角度（物件指定值，圓角正切（（物件中心縱坐標滑鼠縱坐標）物件中心橫坐標滑鼠橫坐標））180 pi 90）））。

審判結束。 返回 （-1）。

..您應該能夠使用動畫框。 當物件向左、向右、向上和向下看時，它還需要進行動畫處理。

取滑鼠視窗坐標 （、動畫物件視窗坐標 （x，y）

判斷 >x 為右，反之亦然。

判斷 >y 是最重要的，反之亦然。

根據不同的呼叫，可以向不同的方向呼叫**。

記錄滑鼠在按下滑鼠的物體上的位置，然後將記錄的位置相加計算......滑鼠位置變化的位置

模擬滑鼠點選也可以，只需填寫前兩個值即可。

.版本 2

子例程 子例程 1

區域性變數 行長，整數型別。

區域性變數 j，乙個整數。

區域性變數 i，雙十進位型別。

區域性變數基元 x，整數型別。

區域性變數基元 y，整數型別。

區域性變數 x，整數。

區域性變數 y，乙個整數。

x 採用滑鼠 （） 在標籤 1 左側的水平位置寬度 2y 取滑鼠的垂直位置 （） 上邊緣 30 選項卡 1高度 2

原始 x 標籤 1左。

原裝 Y 標籤 1頂部邊緣。

線的長度為平方根 （（x original x） x original x） y original y） y original y））。

可變環頭（0，線長，1，j）。

i j 線長。

標籤 1左 x 原件 x） i 原件 x 標籤 1上緣 y 原 y） i 原 y 延遲 （5）。

處理事件。

可變環尾（）。

醫 管 局。 我只是嘗試了一下。 不錯，讓你看看**。

單擊按 Ox1，滑鼠就在那裡，視窗就在那裡。

很簡單。

時鐘元件。

最佳時期在 1 - 100 之間。

雙擊時鐘。 貼上此段落。

左 將滑鼠水平放置 （）10'新增 10 可防止視窗覆蓋滑鼠。

上邊緣採用滑鼠的垂直位置 （）10'新增 10 可防止視窗覆蓋滑鼠。

你的意思是就像點選標題欄並跟著走。

這就像製作乙個標籤並將其放置在您認為應該在的任何位置一樣簡單。

是：傳送訊息 （161,2,0）。

還有一種比較簡單的方法就是點選表單，而且有隨機移動的選真也可以達到這樣的效果！

.版本 2

元件 視窗元件 1

子程式時鐘 1 週期事件。

啟動視窗。 在左側，將滑鼠水平放置 （） 以啟動視窗。 上邊緣取滑鼠的垂直位置 （），並記住將時鐘的週期時間設定為 10-50

這需要使用美工板、主命令、按鈕和 y 軸繪製線條來移動滑鼠。

這也不是很困難，主要是時間問題，我暫時沒有時間幫你，見諒！

我不認為你可以移動滑鼠位置，他的意思是只要你移動滑鼠就會被執行，我猜你誤會了

這是經過測試且可行的：

版本 2 元件視窗元件 1

程式集變數：滑鼠垂直位置、整數。

程式集變數現在處於滑鼠垂直位置，整數型別。

程式集變數：滑鼠水平位置、整數。

程式集變數現在處於滑鼠水平位置，整數型別。

子程式時鐘 1 週期事件。

滑鼠垂直位置 取滑鼠垂直位置 （）。

滑鼠水平位置 取滑鼠水平位置 （）。

子例程 Clock 2 迴圈事件。

現在滑鼠垂直位置 取滑鼠垂直位置 （） 現在滑鼠水平位置 取滑鼠水平位置 （） 如果 （滑鼠垂直位置 滑鼠垂直位置 現在或滑鼠水平位置 現在滑鼠水平位置）。

方框1視覺上是錯誤的。

否則。 方框1視覺。

但是，應該注意的是，這兩個時鐘具有不同的時鐘週期，我設定了。

時鐘 1時鐘週期 = 1

時鐘 2時鐘週期 = 2

方框1左 = 取滑鼠的水平位置 （）。

方框1上邊緣 = 取滑鼠的垂直位置 （）。

這種方法很棒，當然也可以用滑鼠來遵循。

關鍵是要判斷滑鼠的位置是否在移動，按鍵命令：

將滑鼠水取至平坦位置 （）。

取滑鼠的垂直位置，用力破解（）。