Question

在VB中画直线，怎样使画下一条直线时，上一条直线保留？

求回答啊，对的话我会加分的。。。

Answer 1

只要你不添加"me.cls"你画的线会自动的保留，但你必须是用line方法画的，不是用的直线控件

追问

但是若是在mousemove事件中不添加这一句会出现这样的效果。。。

追答

不添加这句的话会一直画，所以就有了你这种现象。你是要显示鼠标运动的 轨迹吗？
一般属性只有AutoRedraw会有影响，但是只是窗体刚打开或者被盖住后重画的时候会不显示。

追问

是要显示轨迹的，求再详细~

Answer 2

Dim a As Single, b As Single

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
a = X: b = Y
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
Me.Cls
Me.Line (a, b)-(X, Y)
End If
End Sub

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.Cls
Me.AutoRedraw = True
Me.Line (a, b)-(X, Y)
Me.AutoRedraw = False
End Sub

Answer 3

把autoredraw属性设置为true

追问

这个有关系么。。。。。

追答

在点击第2个点绘制真正的直线的那句上面添加me.autoredraw=true下面添加me.autoredraw=false