作者rikarika (rika N )
看板Visual_Basic
标题[VB6 ] 关於用line绘图的问题
时间Wed Apr 19 13:01:51 2006
我想要写一个可以在图片上画画的程式
可是无论怎麽改 就是会多出一条线
而不是在滑鼠点下去的那个点开始绘图
有爬过了 可是看不太懂说@@
麻烦大家帮个忙罗 谢谢:)
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
1F：推 hsnu920:Picture1.Line ????-(X, Y) 你没有设定初始点.. 04/19 18:52
2F：→ hsnu920:所以mousemove时 Line的起始点会在(0,0)左上角开始画 04/19 18:53
3F：推 hsnu920:至於初始点我的想法是在mousedown的时候回传XY座标 以供 04/19 18:57
4F：→ hsnu920:之後mousemove使用 ~~ 04/19 18:58
5F：推 rikarika:谢谢喔^^ 04/19 19:10