vb6.0中状态栏上的字幕文本

我正在开发新的VB6应用程序，我想显示一个滚动文本（字幕） 在状态栏（如新闻行文本）上，我已经使用了两个面板，现在在 第三个面板我想使用字幕

我已经完成了以下操作，但文本是从面板的中间滚动的，应该是这样的 从右端到左端连续滚动

Dim i As Byte
dim txtSample As String

txtSample = " - - - MARQUEE TEXT - - - "
Private Sub Timer1_Timer()
    i = i + 1
    StatusBar1.Panels(3).Text = Mid(txtSample, i)   
    If i > Len(txtSample) Then i = 1
End Sub

---

您的代码实际上是正确的，但实际上您正在以一种快速的方式减少内容，使其成为一个字幕。因此，要使其从远边开始，而不是从字符串的长度开始，您必须用空间缓冲字符串，以覆盖整个面板可见区域。。像这样的事情应该可以

txtSample = Space(150) & "- - - MARQUEE TEXT - - - "

---

我已经试过了，但在我的应用程序中，txtSample来自数据库，它是多个值的串联。因此长度是可变的，请建议保持一致性的方法。@YogendraAslekar即使字幕文本的长度不同，填充字幕面板所需的字符数也是固定的。。因此，如果最多350个字符，则可以填充整个选框面板空间。要从数据库中填充文本，

txtSample=Space（Abs（350 Len（StringFromDatabase））&StringFromDatabase