首页 > 解决方案 > 按顺序制作幻灯片

问题描述

我制作了一个需要图像自动幻灯片共享的程序,问题是我使用“随机”变量完成了它,我想按“1、2、1、2、1、2”的顺序滑动

做任何你需要的改变。有紧急情况,谢谢。

我尝试过使用 For 循环,但作为初学者,我不太了解。

Public Class Form4
Private rer As New Random
Dim pos As Integer = 0
Private Sub PictureBox1_Click(sender As Object, e As EventArgs) Handles PictureBox5.Click
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    Timer1.Start()
End Sub
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
    Dim i As Integer = +1
    PictureBox5.Image = My.Resources.ResourceManager.GetObject("boxpu" & rer.Next(i, 3))
End Sub
End Class

我希望我的 Auto Slideshare 按顺序而不是随机滑动图片。

标签: vb.net

解决方案


推荐阅读