VB窗体上在设计时画了几条线，用下面的代码运行了一个跑动的线段，但所有的线段都闪动，如何不闪动。

Dim x1 As Single
Dim y1 As Single
Dim x2 As Single
Dim y2 As Single

Private Sub Form_Load()
x1 = 1900
x2 = 1900
y1 = 0
y2 = 100
End Sub

Private Sub Timer1_Timer()
Me.DrawWidth = 10
If y2 <= 4000 Then
y1 = y1 + 200
y2 = y2 + 200
Me.Cls
Line (x1, y1)-(x2, y2), RGB(0, 0, 250)
Else
y1 = 0
y2 = 100
End If

End Sub
运行时整个窗体界面的线条都在闪动，让它不闪动，代码如何改进？
谢谢。我想主要是代码me.cls的原因所致，有没有不清屏只清除线段的代码？

我猜是因为线段运动的太快了。如果你只要它运动而不闪的话方法有二
一、 把timer1的interval 值增大（具体多大你自己试试就晓得了），我试了一下，把它设为100 。
二、 改代码 把Y曾值减小
y1 = y1 + 200 改为 y1 = y1 + 10 （具体自己试试）
y2 = y2 + 200 同上
希望是你想要的答案

不明白，你可以timer1.interval=1000，减慢运行频率

你好！ 不太明白你的意思 ，你给的代码就是一个跑到的线段，不用在窗体上再进行设计的。 我的回答你还满意吗~~

调整步进距离和时间间隔，多试试，就可以找到移动但不闪烁的搭配。

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息