Бегущая строка

[mr.first]

Как можно(если возможно) сделать бегущую строку?

[tyomitch]

Взять Label, и по таймеру сдвигать влево.

[mr.first]

хммм...а не какой встроенной функциидля этого нет?

[Amed]

Нет

[mr.first]

ОК. Понятно. Спасибо

[SHURUP]

Код: Выделить всё

Const Len_Of_TExt = 20
Const RunSTRING = "Вот такая вот длинная строка, и если кто-то думает, что ее можно было сделать короче - тот абсолютно прав, но меня просто понесло…"
Dim Caption_text

Private Sub Form_Load()
Caption_text = Space$(Len_Of_TExt) & RunSTRING
Label1.FontName = "Courier New"
Label1.FontSize = "10"
Label1.Caption = ""
Timer1.Interval = 150
End Sub

Private Sub Timer1_Timer()
Static i
i = i + 1
If i > Len(Caption_text) Then i = 1
Label1.Caption = Mid(Caption_text, i, Len_Of_TExt)
End Sub

[mr.first]

уау, BIGСпасибо. Как tyomitch и говорил

[tyomitch]

Нет, я предлагал заменить предпоследнюю строчку на

Код: Выделить всё

Label1.Left = Label1.Left - 45


Тогда движение было бы более плавным.