Пример, реализующий возможность изображения на форме прокручивающегося текста снизу вверх.
Прокручивающийся текст Для того, чтобы изобразить на форме произвольный текст, который с определенной скоростью прокручивается снизу вверх нам понадобяться следующие контролы: 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, это иногда позновательно !!! Пишите программы на VB!!!" 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 Виталий |