请教各位大哥为什么用Label作个滚动字幕老是闪烁？

在定时器内调用LockWindowUpdate,应该会好不少.但这不是最好的解决办法
private sub Timer1_timer
LockWindowUpdate(me.hwnd)
...
LockWindowUpdate(NULL)
end sub

我改了可还是会闪烁

最好的办法还是把Timer的inverval修改大一些,滚动字幕时位置移动大些

液晶显示器会出现LS所示的问题.解决这个问题最好的方法是用API或用多个Timer控件控制字幕

用TextOut会好一些

[此贴子已经被作者于2007-2-16 11:12:18编辑过]

TextOut 无法作透明字幕

Option Explicit
Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long

Private Sub Form_Load()
Me.ScaleMode = vbPixels
Picture1.ScaleMode = vbPixels
Picture1.Visible = False

Me.Show
Dim intY As Integer, lngK As Long
Dim intX2 As Integer, intY2 As Integer
intX2 = (Me.ScaleWidth - Picture1.ScaleWidth) / 2
intY2 = (Me.ScaleHeight - Picture1.ScaleHeight) / 2
Do
intY = Picture1.ScaleHeight
Do
Picture1.CurrentY = intY
intY = intY - 1
Picture1.ForeColor = vbYellow
Picture1.Font.Size = 16
Picture1.Print "Hello"
Picture1.ForeColor = vbRed
Picture1.Print "Welcome to vb World"
Picture1.ForeColor = vbBlue
Picture1.Font.Size = 14
Picture1.Print "good luck!"
Picture1.Font.Size = 10
Picture1.ForeColor = vbRed
Picture1.Print Tab(20);
Picture1.Print "2007-3-22"
If Picture1.CurrentY < 0 Then Exit Do
BitBlt Me.hDC, intX2, intY2, Picture1.ScaleWidth, Picture1.ScaleHeight, Picture1.hDC, 0, 0, vbSrcCopy
Picture1.Cls
DoEvents
For lngK = 1 To 100000
'//
Next
Loop
Loop
End Sub

Private Sub Form_Unload(Cancel As Integer)
End
End Sub

第一次听说TextOut不能输出透明字体……

的确是这样,我用label控件写滚动字幕也老是闪烁,但是用Picturebox就好多了