急，文字平滑移动问题求助！

Question

我编写了一个文字滚动程序，我是用以下方法编写的：dim T as long
Do
    T = timeGetTime
    'T = GetTickCount
    Display
    Do While timeGetTime - T < CC
        Add
        DoEvents
    Loop
Loop
其中ＣＣ是一个常量，display函数用于在ｐｉｃｔｕｒｅｂｏｘ上显示文本，add函数用于进行文字载入和文字移动处理(文字左移一个像素点)。然后这个程序界面会通过设备显示到视频屏（１２８０＊３２，约八米长，刷新率：６０ＨＺ）上。
但是问题出现了，文字在移动过程中总会定时出现跳动，严重影响了移动的平滑性，这在视频屏上十分明显。
我调整过ＣＣ的值，但是没用用，哪个值都会有跳动，只是间隔不同。为此我非常着急。
请教高手这个问题如何解决？

Answer 1

Const strSamp = "滚动文本演示"
Dim bShow As Boolean
Dim iScroll As IntegerPrivate Sub Timer1_Timer()
    If bShow Then
        bShow = False
        Picture1.Visible = False
        Picture2.Visible = True
        Picture1.Cls
        Picture1.CurrentX = iScroll
        Picture1.CurrentY = 30
        Picture1.Print strSamp
    Else
        bShow = True
        Picture1.Visible = True
        Picture2.Visible = False
        Picture2.Cls
        Picture2.CurrentX = iScroll
        Picture2.CurrentY = 30
        Picture2.Print strSamp
    End If
    iScroll = iScroll + 30
    If iScroll > 1800 Then
        Timer1.Enabled = False
    End If
End Sub  

Answer 2

"定时出现跳动"是什么意思?
我认为你的Add和Display函数的效率对此也会产生影响.而且这种循环定时CPU占用率很高.

Answer 3

Option Explicit
Dim pm_tsOld As String
Dim LTxt As Integer
Private Sub Form_Load()
pm_tsOld = "其中ＣＣ是一个常量，display函数用于在ｐｉｃｔｕｒｅｂｏｘ上显示文本，add函数用于进行文字载入和文字移动处理(文字左移一个像素点)。然后这个程序界面会通过设备显示到视频屏（１２８０＊３２，约八米长，刷新率：６０ＨＺ）上。"
Timer1.Interval = 500
End SubPrivate Sub Timer1_Timer()
Text1 = pm_tsOld
    LTxt = Len(pm_tsOld)
    'Text1.Left = 7680 - 30 * LTxt
    'Text1.Width = 60 * LTxt
    If LTxt > 0 Then
    pm_tsOld = Mid(pm_tsOld, 2, LTxt - 1) & Mid(pm_tsOld, 1, 1)
    End If
End Sub

Answer 4

模仿DirectX....我觉得这是一个方法.楼上能给个思路吗?不想用directx编,太麻烦了.

Answer 5

如果你是做工程，建议你别太费力了，用现成的吧，这个控件包中有一个字幕控件，看是否符合你的要求：http://www.vb99.com/product/acControl/register.asp它可以实现垂直滚动、水平滚动、逐行滚动、淡入淡出、打字机效果。若修改一些属性值，还可以实现不同的效果。支持背景和前景文字纹理贴图，非常的不错。

Answer 6

直接用DIRECTX
工程引用DX7Option ExplicitDim DX As New DirectX7
Dim DD As DirectDraw7
Dim DDSPrimary As DirectDrawSurface7
Dim ddsd As DDSURFACEDESC2
Private Sub Form_Load()
    Set DD = DX.DirectDrawCreate("")
    DD.SetCooperativeLevel Me.hWnd, DDSCL_EXCLUSIVE Or DDSCL_FULLSCREEN
    DD.SetDisplayMode 1024, 768, 16, 0, 0 'DDSDM_DEFAULT    
    ddsd.lFlags = DDSD_CAPS
    ddsd.ddsCaps.lCaps = DDSCAPS_PRIMARYSURFACE
    ddsd.lWidth = 100
    ddsd.lHeight = 100    
    Set DDSPrimary = DD.CreateSurface(ddsd)
    DDSPrimary.SetFontBackColor RGB(255, 255, 255)
End Subsub DrawTextStr()
DDSPrimary.SetForeColor VBRED
DDSPrimary.DrawText 500, 300, "Hello World", True
End Sub

Answer 7

60HZ 的显示器建议用 Timer 控制在每秒刷新 30 次。
如果绘图的频率高于显示器刷新频率，那么每帧都不能显示完整画面。
还有知道播放电影用的是多少频率吗？24帧/秒，在每帧图都不一样的情况下，刷新太快肉眼反而反映不过来，会觉得眼花。

Answer 8

其实还有一些更加深入的原理,并且很多时候大家在做动态画面的时候并没有注意到,推荐大家看看这篇文章,希望对大家有所帮助:
http://blog.yesky.com/141/wallescai/1675141.shtml

Answer 9

WallesCai(女人之美,在于蠢得无怨无悔,男人之美,在于撒谎撒得白日见鬼) 
DDSPrimary.DrawText 500, 300, "Hello World", True怎么改位置呀?我改500改成1000都没变的

Answer 10

问一下：
vb 中使用MMControl播音的时候，资源被占用了，其他程序模块都需要等待播音结束才运行，如何解决