如何在vb.net 2.0中编写显示多个picturebox的通用代码？ 导入System.Threading.Thread 公开课表格1 Dim延迟为整数=200 尺寸i为整数=1 私有子按钮1\u单击（发送者作为对象，e作为事件参数）处理按钮1。单击 当iPrivate子按钮2时，单击（发送者作为对象，e作为事件参数）处理按钮2。单击 而I0和其他类型的匹配（0）则是PictureBox pic=DirectCast（匹配项（0），PictureBox） pic.Visible=True 图:刷新() 等待（延迟） pic.Visible=False 如果结束 i=i+1 如果i=6，那么 i=1 如果结束 结束时 端接头

这个代码是正确的。。。对不起，我第一次写错代码了。。现在它是正确的。。谢谢大家。

“不工作”不会告诉我们任何事情。如果我单击按钮1，我将获得正确的输出。但是如果我按下按钮2，我就不会得到相同的输出。。实际上我想最小化按钮1编码。所以我用了按钮2编码。请帮帮我，你做了很多根本错误的事情。调用Sleep（）和运行永不退出的循环对显示UI的程序是有害的。是的，它看起来像是“不工作”，用户界面将停止更新，没有任何进展的迹象。教育自己，而不是随机尝试代码，这只是不容易猜测。非常抱歉。。。我写错代码了。。。对不起…谢谢大家。。。如果matches.Length>0且匹配类型（0）为PictureBox，则更正代码matches=Me.Controls.Find（“PictureBox”&i.ToString（），True）

Imports System.Threading.Thread
Public Class Form1
Dim delay As Integer = 200
Dim i As Integer = 1

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    While i <= 5

        PictureBox1.Visible = True
        PictureBox1.Refresh()
        Sleep(delay)
        PictureBox1.Visible = False


        PictureBox2.Visible = True
        PictureBox2.Refresh()
        Sleep(delay)
        PictureBox2.Visible = False


        PictureBox3.Visible = True
        PictureBox3.Refresh()
        Sleep(delay)
        PictureBox3.Visible = False


        PictureBox4.Visible = True
        PictureBox4.Refresh()
        Sleep(delay)
        PictureBox4.Visible = False


        PictureBox5.Visible = True
        PictureBox5.Refresh()
        Sleep(delay)
        PictureBox5.Visible = False

        i = i + 1
        If i = 6 Then
            i = 1
        End If

    End While
End Sub

  Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
    While i <= 5
        Dim pic As PictureBox
        Dim matches() As Control

        matches = Me.Controls.Find("PictureBox" & i.ToString(), True)
        If matches.Length > 0 AndAlso TypeOf matches(0) Is Label Then
            pic = DirectCast(matches(0), PictureBox)
            pic.Visible = True
            pic.Refresh()
            Sleep(delay)
            pic.Visible = False
        End If

        i = i + 1
        If i = 6 Then
            i = 1
        End If
    End While
End Sub
  End Class

 Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
    While i <= 5
        Dim pic As PictureBox
        Dim matches() As Control

        matches = Me.Controls.Find("PictureBox" & i.ToString(), True)
        If matches.Length > 0 AndAlso TypeOf matches(0) Is PictureBox Then
            pic = DirectCast(matches(0), PictureBox)
            pic.Visible = True
            pic.Refresh()
            Wait(delay)
            pic.Visible = False
        End If

        i = i + 1
        If i = 6 Then
            i = 1
        End If
    End While
End Sub