Question

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

粗体1：＆＃34;许多关于＆＃39; Friend WithEvents的论据btnChoice As Button＆＃39;＆＃34;

粗体2：＆＃34;许多关于＆Frieff WithEvents的参数imgPicture As Button＆＃39;＆＃34;

粗体3：＆＃34;＆＃39; Friend WithEvents btnChoice As Button＆＃39;没有参数，其返回类型无法编入索引＆＃34;

大胆4-8：＆＃34;＆＃39;朋友WithEvents imgPicture作为PictureBox＆＃39;没有参数，其返回类型无法编入索引＆＃34;

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)

VB：Private Sub

1 个答案: