Визуальное базовое изображение петли с картинкой и таймером - PullRequest
Новая
       32

Визуальное базовое изображение петли с картинкой и таймером

0 голосов
/ 16 ноября 2018

Это делается в Visual Basic с использованием графического блока и таймера. Я пытаюсь заставить изображение всплывать, выходя из формы, затем возвращаясь снизу, затем снова поднимаясь, повторяя цикл. До сих пор, когда я загружаю его, форма показывает только то, что изображение идет вверх, а затем оно исчезает и не возвращается. Я не знаю, что делать во время остальной части 

 Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick, MyBase.Load
   If PictureBox1.Top < Me.Height Then
    PictureBox1.Top = PictureBox1.Top - 10
   Else
    PictureBox1 = 0
   End If
    Timer1.Enabled = True

1 Ответ

0 голосов
/ 16 ноября 2018

Из того, что я вижу, ваши условия всегда будут верными. Поскольку вы проверяете, меньше ли значение PictureBox1.Top, чем Me.Height, и если это так, вы уменьшаете указанное значение еще больше.

Вы должны изменить Если: 

If PictureBox1.Top > Me.Height Then
   PictureBox1.Top = PictureBox1.Top - 10

Обратите внимание, что, поскольку координаты, используемые в визуальных основах, имеют свое происхождение (x = 0, y = 0) в верхнем левом углу экрана, чем выше вы идете, тем ниже значение .top и, таким образом, вы достигнет верхней части экрана только тогда, когда ваш .top достигнет 0.

Вы должны также изменить свое остальное на: 

Else
    PictureBox1.Top = 0

И это должно работать.

...