滚动条信息显示.bas

vb开发的公交查询系统

Attribute VB_Name = "Module"
Public SometimeStr As String



Public Sub RollMessage(Mystr() As String, num As Integer)
Static i
Dim k, r, n As Integer

i = i + 1
k = i Mod num
SometimeStr = Mystr(k)
For r = 1 To num - 1
    If k + r <= num Then
       SometimeStr = SometimeStr & Mystr(k + r)
    Else
       n = k + r - num
       SometimeStr = SometimeStr & Mystr(n)
    End If
Next r


End Sub