Question

我正在开发新的vb 6应用程序，我想显示滚动文本（选框）在新闻行文本的状态栏上我已经有两个面板，现在在第三个面板我想使用选框。

我已经完成了以下操作但是文本正在从面板中间滚动它应该是从右端到左端连续滚动。

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

Answer 1

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

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

vb 6.0中状态栏上的选取框文本

1 个答案: