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

Question

以下 Sub 显示这些错误消息：

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

粗体 2：“对于 'Friend WithEvents imgPicture As Button' 的许多参数”

粗体3：“‘Friend WithEvents btnChoice As Button’没有参数，返回类型不能被索引”

粗体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 到 imgPicture8，您可以使用 Controls.Find 方法按名称访问它们。

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