请教各位大哥为什么用Label作个滚动字幕老是闪烁?
请教各位大哥为什么用Label作个滚动字幕老是闪烁?
液晶显示器会出现LS所示的问题.解决这个问题最好的方法是用API或用多个Timer控件控制字幕
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不能输出透明字体……