VB：</p> <p>大胆1：</p> <p>大胆2 " 'ボタンとして友達WITHEVENTS btnChoice' に多くの引数に"：「多くのプライベートサブの3のエラーメッセージが

Question

次のSubは、これらのエラー・メッセージが表示さ「ボタンとして友達WITHEVENTS imgPicture」に引数「

大胆3： 『『ボタンとして友達WITHEVENTS btnChoice』にはパラメータはありませんし、その戻り値の型は、インデックスを作成することができません』

大胆4-8：」「友達WITHEVENTS imgPicture PictureBoxにはパラメータがなく、戻り値の型はcannoであるためトンあなたがControls.Findメソッドを使用して自分の名前でそれらにアクセスすることができ、あなたのコントロールがimgPicture1imgPicture8に命名されていると仮定すると、「

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

をインデックス化します。

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