[VB6 ] 關於用line繪圖的問題
我想要寫一個可以在圖片上畫畫的程式
可是無論怎麼改 就是會多出一條線
而不是在滑鼠點下去的那個點開始繪圖
精華區有爬過了 可是看不太懂說@@
麻煩大家幫個忙囉 謝謝:)
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
推
04/19 18:52, , 1F
04/19 18:52, 1F
→
04/19 18:53, , 2F
04/19 18:53, 2F
推
04/19 18:57, , 3F
04/19 18:57, 3F
→
04/19 18:58, , 4F
04/19 18:58, 4F
推
04/19 19:10, , 5F
04/19 19:10, 5F
Visual_Basic 近期熱門文章
PTT數位生活區 即時熱門文章
