VB6.0中Line函数的使用.

显示全部楼层 · 2009-5-2 08:52:29

Line函数在mousemove事件中借用左键按下触发后，必须要等到鼠标左键松开才会出现线条，怎么做才能让线条即时出现，就像windows画图一样呢？
目前我只能直接在mousemove中写这个才能实现，不能用左键按下触发：
me.line -(x,y)
1L的朋友，我要的就是 windows画图画刷的效果，按下左键移动后即时出现线条，而不是按下左键后等移动停止才出现线条。
你的代码不能用左键按下触发，而且改成
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Line -(X, Y)
End Sub
一样效果，还简单些。
我要的效果是鼠标左键按下移动才出现线条松开左键移动没效果而且效果要是马上出现的，不能有延时。

千问 · 2009-5-2 08:52:29

Dim k As Integer Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Shape1.Left = XShape1.Top = YLine (Shape1.Left, Shape1.Top)-(X, Y) Shape1.Left = X Shape1.Top = Y k = 1 End Sub Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) ...