。裝配窗裝配1
子程序_ _開始窗口_按下鼠標左鍵，邏輯類型
。參數橫向位置，整數類型
。整型參數的垂直位置
參數功能鍵狀態，整數類型
_啟動窗口。Title =到文本(橫向)+"，"+到文本(縱向)
判斷循環頭(水平位置> 0，垂直位置> 0)
If(水平位置-25 =按鈕1。左側和垂直位置-25 =按鈕1。頂部邊緣)
跳出循環()
否則。
If(水平位置-25 >按鈕1。左)
按鈕1。左=按鈕1。左+1。
否則。
。If(水平位置-25 <按鈕1。左)
按鈕1。左=按鈕1。左-1
否則。
如果結束了
如果結束了
If(垂直位置-25 >按鈕1。頂部邊緣)
按鈕1。頂邊=按鈕1。頂邊+1。
否則。
If(垂直位置-25 <按鈕1。頂部邊緣)
按鈕1。頂邊=按鈕1。頂邊-1。
否則。
如果結束了
如果結束了
如果結束了
延遲(10)
。判斷循環的結束()
我的QQ；1054507580