Vba 带图片框和计时器的visual basic循环图像_Vba_Timer_Picturebox

Vba 带图片框和计时器的visual basic循环图像

vba timer

Vba 带图片框和计时器的visual basic循环图像,vba,timer,picturebox,Vba,Timer,Picturebox,这是在Visual Basic中使用图片框和计时器完成的。我试图让一个图像浮起来，退出表单，然后从底部返回，然后再次向上，再次循环。到目前为止，当我加载它时，表单只显示图像向上移动，然后图像消失，不再返回。我不知道在其他部分该做什么 Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick, MyBase.Load If PictureBox1.Top < Me.Height Then

这是在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

Private Sub Timer1\u Tick（发送方作为对象，e作为事件参数）处理Timer1.Tick、MyBase.Load
如果图片bx1.Top

从我所看到的情况来看，您的条件总是正确的。由于您正在检查PictureBox1.Top值是否低于Me.Height，如果低于Me.Height，则会进一步降低该值

您应该更改为：

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

请注意，由于visual Basic中使用的坐标的原点（x=0，y=0）位于屏幕的左上角，因此，您的.top值越高，.top值越低，因此只有当.top达到0时，您才能到达屏幕顶部

您还应将else更改为：

Else
    PictureBox1.Top = 0

它应该会起作用