Изменение видимости PictureBox по истечении определенного времени VB.Net - PullRequest
0 голосов
/ 02 мая 2018

В настоящее время он у меня там, где picturebox1 виден при загрузке, и я хотел бы изменить его там, где picturebox2 виден, а picturebox1 нет через 3 секунды. Я не смог заставить это заметно работать. Какие-либо предложения? Я осмотрелся и увидел Picturebox.refresh & picturebox.update, но не смог заставить их работать. Я открыт для предложений о том, как сделать это по-другому. Спасибо за помощь!

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

    PictureBox1.BackgroundImage = My.Resources.Resources._024689
    PictureBox2.BackgroundImage = My.Resources.Resources._152522206296244269
    PictureBox1.Visible = True
    PictureBox2.Visible = False

    InitializeComponent()

    'starts timer
    StartTimer.Interval = 1000
    StartTimer.Start()

End Sub

Private Sub StartTimer_Tick(sender As Object, e As EventArgs) Handles StartTimer.Tick

    time += 1
    Debug.Print("Time = " & time)

    If time = 3 Then
        PictureBox2.Visible = True
        PictureBox1.Visible = False
        StartTimer.Stop()
    End If

End Sub

1 Ответ

0 голосов
/ 02 мая 2018

Для справки, это сработало точно так, как ожидалось:

'Ensure that resources are loaded once only.
Private ReadOnly firstImage As Image = My.Resources.Capture__56x81_
Private ReadOnly secondImage As Image = My.Resources.Capture__70x264_

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    PictureBox1.Image = firstImage
    Timer1.Start()
End Sub

Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
    Timer1.Stop()
    PictureBox1.Image = secondImage
End Sub

Обратите внимание, что Interval из Timer1 было установлено на 3000 в конструкторе.

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...