コードで制御配列を作成

Question

このコードは機能しませんVB6で私のForm_Loadで制御配列を作成したいのですが、スクラブルボード用に225を作成する必要があり、正確にする必要があります。私のコードは：

Private lblblocks(1 To 225) As Label 

Private Sub Form_Load() 
Dim i As Integer, j As Integer 
For i = 1 To 15 
    For j = 1 To 15 
     Dim arrnum As Integer 
     arrnum = (i - 1) * 15 + j 
     Load lblblocks(arrnum) 
     With lblblocks(arrnum) 
      .Width = 1000 
      .Height = 1000 
      .Top = (i - 1) * 1000 
      .Left = (j - 1) * 1000 
      .Visible = True 
      .BackColor = Int(Rnd(1) * 255) + &H100 * Int(Rnd(1) * 255) + &H10000 * Int(Rnd(1) * 255) 
     End With 
    Next j 
Next i 
End Sub 

私はすべての私のラベルボックスを見るためにバックカラーを使いました。このコードは機能しません。 "オブジェクト変数またはWithブロック変数が設定されていません"というエラーが表示されます。どんな助け？私は何が間違っているのか分からない。私はコントロール配列にラベルボックスを保持したいと思います。私はコントロール配列にしなくてもそれを行う方法を知っています。

Answer 1

コーディグレイは彼のコメントで正しいと思いました。 VB6ではコードでしかコントロール配列を作成することはできません。コントロールの1つのインスタンスをフォームに配置し、Indexのプロパティ値を0に設定する必要があります。これにより、インデックス0の要素が1つしかないコントロール配列が作成されます。あなたはそのようにように、所望の結果を得るためにあなたのコードを変更することができますコメントで述べたように、あなたがすることをしなかったため、配列インデックスゼロでコントロールの別のインスタンスをロードする必要はありません

Private Sub Form_Load() 
    Dim i As Integer 
    Dim j As Integer 

    For i = 0 To 14 
     For j = 0 To 14 
      Dim tileIdx As Integer 
      tileIdx = i * 15 + j 

      'If the tile index is zero, we already have that control, 
      'so there's no need to load new instance. Otherwise, use the 
      'Load method to create a new control in the array with the 
      'specified index. 
      If tileIdx > 0 Then 
       Load lblTile(tileIdx) 
      End If 

      With lblTile(tileIdx) 
       .Width = 1000 
       .Height = 1000 
       .Top = i * 1000 
       .Left = j * 1000 
       .Visible = True 
       .BackColor = Int(Rnd(1) * 255) + &H100 * Int(Rnd(1) * 255) + &H10000 * Int(Rnd(1) * 255) 
      End With 
     Next 
    Next 
End Sub 

デザインで時間。私はまた、インデックスをわずかに簡単に計算するためにゼロから始まる配列を繰り返しました。