形狀軌跡規劃方法

給妳壹個VB代碼，是實現畫板的簡單功能。希望能幫到妳。Dim aa As Integer '變量是我隨意定義的。

將bb標註為整數

將cc標註為整數

私有子窗體_MouseDown(按鈕為整數，Shift為整數，X為單值，Y為單值)

aa = X

bb = Y

cc = 1

末端接頭

private Sub Form _ MouseMove(Button為整數，Shift為整數，X為Single，Y為Single)

如果cc = 1，則

表單1。直線(aa，bb)-(X，Y)

aa = X

bb = Y

如果…就會結束

末端接頭

私有子窗體_MouseUp(Button為整數，Shift為整數，X為Single，Y為Single)

cc = 0

末端接頭

私有Sub qk_Click()'清除

表單1。Cls

末端接頭

私有Sub tc_Click()'退出

結束

末端接頭

上一篇:哪裏可以配榮威750的鑰匙

下一篇:電動車三輪車語音喇叭如何修改語音