Question

在vb中,用form中的line方法画线怎么没有显示啊

代码如下：Private Sub Command1_Click()
Dim x As Integer
Dim y As Integer
For n = 1 To 2000
y = Fix(200 * Sin(n) + 1560)
x = 840 + n
Line (x, y)-(x, y)
Next
End Sub
如果将Line (x, y)-(x, y)改为Line (x, y)-(x, y-1)。可以得到图像但是非常朦胧是一点一点的，哪位高手可以指点指点小弟，感激不尽。跟form的设定有关吗？
不行啊……跟线段的粗细无关啊……

Answer 1

Line (x, y)-(x, y)
线段起点坐标=线段终点坐标
当然是一个点啦
可以用Me.DrawWidth = 5 改变线段大小
试一下Line (-x, -y)-(x, y)

Answer 2

Private Sub Command1_Click()
Dim x As Integer
Dim y As Integer

For n = 1 To 2000
y = Fix(200 * Sin(n) + 1560)
x = 840 + n
If n <> 1 Then Line (x, y)-(Me.CurrentX, Me.CurrentY)
Me.CurrentX = x
Me.CurrentY = y
Next
End Sub

Answer 3

改变n试试