VB: Private Sub中的3条错误消息

Question

下面的Sub显示了这些错误消息：

粗体1：“对'Friend WithEvents btnChoice As Button‘的许多参数”

粗体2：“对'Friend WithEvents imgPicture As Button‘的许多争论”

bold 3："'Friend WithEvents btnChoice As Button‘没有参数，其返回类型无法索引“

bold 4-8："'Friend WithEvents imgPicture As PictureBox‘没有参数，其返回类型无法索引“

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

    Dim intNextNumber As Integer

    For intNextNumber = 1 To 8
        btnChoice(**intNextNumber**)
        imgPicture(**intNextNumber**)
    Next

    Call MoveControls(btnChoice)
    Call MoveControls(imgPicture)

    For intNextNumber = 1 To 8
        **btnChoice**(intNextNumber).Visible = True
    Next

    Randomize()

    Dim aintRandomNumber(0 To 8) As Integer

    Call GetRandomNumbers(aintRandomNumber)

    For intNextNumber = 1 To 8
        Select Case aintRandomNumber(intNextNumber)
            Case 1, 2
                **imgPicture**(intNextNumber).Picture = Image.FromFile("C:\Users\Jonas Bakari Reitan\Desktop\Bilde1.jpg")
                **imgPicture**(intNextNumber).Tag = "Sirkel"
            Case 3, 4
                **imgPicture**(intNextNumber).Picture = Image.FromFile("C:\Users\Jonas Bakari Reitan\Desktop\Bilde2.jpg")
                **imgPicture**(intNextNumber).Tag = "Firkant"
            Case 5, 6
                **imgPicture**(intNextNumber).Picture = Image.FromFile("C:\Users\Jonas Bakari Reitan\Desktop\Bilde3.jpg")
                **imgPicture**(intNextNumber).Tag = "Diamant"
            Case 7, 8
                **imgPicture**(intNextNumber).Picture = Image.FromFile("C:\Users\Jonas Bakari Reitan\Desktop\Bilde4.jpg")
                **imgPicture**(intNextNumber).Tag = "Pil"
        End Select
    Next
End Sub

Answer 1

假设您的控件被命名为imgPicture1 to imgPicture8，您可以使用Controls.Find方法通过它们的名称来访问它们。

Dim img = Me.Controls.Find("imgPicture" & index, True)