- Код: Выделить всё
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 = "Произвольный текст который будет прокручиваться"
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
Обьясните пожалуйста в чем проблемма,в принципе все работает и без того куска кода.(прочесть,как это будет звучать- высота картинки равна ..... итд)