山寨机中的战斗机！	程序优化工程师到底对IT界有没有贡献

我用Label控件实现文字滚屏时，屏幕总是一闪一闪的，请问怎么解决？？

楼主smokerzhou（）2003-01-11 15:20:31 在 VB / 基础类提问

rt 问题点数：50、回复次数：12Top

1 楼feixuehenshui（飞雪恨水）回复于 2003-01-11 15:45:19 得分 1

Private Sub Timer3_Timer()
Line3.X1 = Line3.X1 + 300
Line3.X2 = Line3.X2 + 300

If Len(Label1.Caption) = Len(TheTitle) Then

Timer3.Enabled = False
Timer1.Enabled = False
Timer2.Enabled = False

Line3.Visible = False
Line2.Visible = False
Line1.Visible = False
frmload.Show
Me.Hide
Else
Label1.Caption = Mid(TheTitle, 1, Counter1)
Counter1 = Counter1 + 1
End If

End SubTop

2 楼superdullwolf（超级大笨狼,每天要自强,MVP）回复于 2003-01-11 15:56:00 得分 1

愚蠢透顶Top

3 楼liangfang（良芳&不见亦钟情）回复于 2003-01-11 16:19:18 得分 1

加上 DoEventsTop

4 楼redwrite（红妆素裹）回复于 2003-01-11 17:04:06 得分 1

upTop

5 楼czfeng（小愚）回复于 2003-01-11 17:05:32 得分 1

加上 DoEventsTop

6 楼shawls（VB Fan)(QQ:9181729）回复于 2003-01-11 17:08:36 得分 10

用api画Top

7 楼qqqdong（）回复于 2003-01-11 17:25:11 得分 1

将label放在picturebox中

Private Sub Timer1_Timer()
Label1.Left = Label1.Left - 10
If Label1.Left + Label1.Width <= 0 Then
Label1.Left = Picture1.Width
End If
End Sub
Top

8 楼smokerzhou（）回复于 2003-01-11 21:11:37 得分 0

试过了，但还是有，好像和 timer1.Interval 的值有关系

to shawls(VB Fan)(QQ:9181729)
怎么用api画
谢谢
Top

9 楼codekiwi（）回复于 2003-01-11 21:31:57 得分 1

timer+label
让他的坐标不断增加就可以了，如果文本滚动完毕后可自行设定坐标然后自动重新滚动Top

10 楼zyl910（编程的乐趣在于编程控制硬件，与用图形学实现绚丽效果）回复于 2003-01-11 21:45:10 得分 32

双缓冲！

内容太多，打字打不完的
资料一时找不到，这个凑合凑合吧：http://expert.csdn.net/Expert/topic/1255/1255117.xml?temp=.809643
Top

11 楼smokerzhou（）回复于 2003-01-12 11:59:03 得分 0

to zyl910(910：分儿，我来了！)
你能发个详细的吗？
smoker_zhou@yahoo.com.cn
谢谢!!
heheTop