推 hsnu920:Picture1.Line ????-(X, Y) 你沒有設定初始點.. 04/19 18:52
→ hsnu920:所以mousemove時 Line的起始點會在(0,0)左上角開始畫 04/19 18:53
推 hsnu920:至於初始點我的想法是在mousedown的時候回傳XY座標 以供 04/19 18:57
→ hsnu920:之後mousemove使用 ~~ 04/19 18:58
推 rikarika:謝謝喔^^ 04/19 19:10
我想要寫一個可以在圖片上畫畫的程式
可是無論怎麼改 就是會多出一條線
而不是在滑鼠點下去的那個點開始繪圖
精華區有爬過了 可是看不太懂說@@
麻煩大家幫個忙囉 謝謝:)
Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Picture1.AutoRedraw = True
End Sub
Private Sub Picture1_Mousemove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 0 Then
CurrentX = X
CurrentY = Y
End If
If Button = 1 Then
Picture1.Line -(X, Y)
End If
End Sub
Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Picture1.AutoRedraw = False
End Sub
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 218.171.119.10