Есть вот такой примерчик
| Код |
' Для того, чтобы изобразить на форме произвольный текст, который с определенной скоростью
' прокручивается снизу вверх нам понадобяться следующие контролы:
'
' Timer1, свойство интервал установите равным 5.
' Picture1, на который наложите Picture2, на который в свою очередь наложите Label1.
' У вас должно в итоге получиться Label1 внутри Picture2, который находится внутри Picture1.
' Если кликнуть мышкой по вершине этого бутерброда, то можно остановить движение текста, или
' вознобновить движение. Приготовления закончены, теперь сам код:
Private Sub Form_Load()
Picture1.ScaleMode = 3
Picture1.BorderStyle = 0
Picture1.Width = Me.ScaleWidth
Picture1.Height = Me.ScaleHeight
Picture1.Left = 0
Picture1.Top = 0
Picture2.BorderStyle = 0
Picture2.Top = Picture1.ScaleHeight
Label1.WordWrap = True
Label1.Left = 0
Label1.Width = Picture2.ScaleWidth
Label1.FontSize = 12
' Здесь можете ввести ваш текст
Label1.Caption = "Спасибо программерам с HiProg.com за этот пример!"
Label1.AutoSize = True
Label1.Top = 0
Picture2.Height = Label1.Height \ Screen.TwipsPerPixelY + 10
Picture2.Left = (Picture1.Width \ Screen.TwipsPerPixelX - Picture2.Width) / 2
End Sub
Private Sub Label1_Click()
Timer1.Enabled = Not Timer1.Enabled
End Sub
Private Sub Picture1_Click()
Timer1.Enabled = Not Timer1.Enabled
End Sub
Private Sub Timer1_Timer()
Picture2.Top = Picture2.Top - 1
If Picture2.Top <= -Picture2.Height Then Picture2.Top = Picture1.ScaleHeight
End Sub
|
при помощи какого ты можешь сделать то, что тебе надо.
Но возможно есть и решения по лучше. Я просто даже не смотрел, что написано выше...  (просто пример у меня завалялся) |
