Question

VB6.0中Line函数的使用.

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
一样效果，还简单些。
我要的效果 是鼠标左键按下移动才出现线条 松开左键移动没效果 而且效果要是马上出现的，不能有延时。

Answer 1

Dim k As Integer
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Shape1.Left = X
Shape1.Top = Y
Line (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)
If k = 1 Then
Line (Shape1.Left, Shape1.Top)-(X, Y)
Shape1.Left = X
Shape1.Top = Y
End If
End Sub

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
k = 0
End Sub
试试这个行不行？还是有相同的设置。form1.autodraw=true等