Question

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

Answer 1

从我看到的情况来看，您的情况永远都是正确的。由于您正在检查PictureBox1.Top值是否低于Me.Height，如果是，则将其减小得更多。

您应该将If更改为：

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

请注意，由于视觉基础中使用的坐标在屏幕左上方具有其原点（x = 0，y = 0），所以您走得越高，.top值就越低，因此您仅当您的.top达到0时，它才会到达屏幕顶部。

您还应该将其他更改为：

Else
    PictureBox1.Top = 0

它应该可以工作。

带有图片框和计时器的可视化基本循环图像

1 个答案: