General Array's Problem

[Wrestlecar Webmaster]

I jsut started using arrays, and have a question.

I am trying to manually add data to arrays, below is some basic code:

'When Control Button Clicked, Textboxes (Array) are reset

name(0) = ""
name(1) = ""
name(2) = ""
name(3) = ""
name(4) = ""
name(5) = ""
name(6) = ""
name(7) = ""
name(8) = ""
name(9) = ""
name(10) = ""
name(11) = ""
name(12) = ""
name(13) = ""

I continue to recieve "Wrong number of arguments or invalid property assignment" errors when using this code.

Does anyone know what the problem could be?

[HeSaidJoe]

Dim myArr(4) As String

    myArr(0) = "Hope"
    myArr(1) = "This"
    myArr(2) = "Works"
    myArr(3) = "Now"
    myArr(4) = "OK"

Dim i as integer
  For i = lBound(myArr) to uBound(myArr)
    msgbox myarr(i)
  Next i

[James Stanich]

dim c as integer

for ctxt = 1 to 13

name(ctxt)=""

next c

[James Stanich]

Dim ctxt as integer

[Wrestlecar Webmaster]

Hmmm...problem though...

name(0)
name(1)
...etc

They are text boxes. When i enter what HeSaidJoe wrote, i get a syntax error.

Any suggestions?

[HeSaidJoe]

if you are trying to call textboxes based on a name stored in a string, it won't work.
You would need a control array and reference the index

[Wrestlecar Webmaster]

How would I go about doing that?

[HeSaidJoe]

'perhaps this will let you get a grasp on it
'start a new project
'add 2 command buttons Command1 and Command2
'add a textbox Text1
'
'then right click and copy the textbox
'then right click and paste
'will ask you if you want a control array
'say yes
'then delete the one you just pasted on the form

run the job

Option Explicit

Public MaxId As Integer

Private Sub Command1_Click()
    Dim i
    For i = 0 To Text1.Count - 1
      Text1(i) = "DirtBagDog"
    Next i
End Sub

'unload the textboxes

Private Sub Command2_Click()
  Dim i As Integer
 For i = 1 To MaxId
   If MaxId < 1 Then Exit Sub   ' Keep first buttons.
   Unload Text1(i)          ' Delete last button.
   MaxId = MaxId - 1            ' Decrement button count.
   Text1(0).SetFocus       ' Reset button selection.
   Text1(0).Width = 4000
   Text1(0).Height = 400
Next
End Sub



Private Sub Form_Load()
'load 4 more textboxes
   MaxId = 4
   Dim i
   For i = 1 To MaxId
   Load Text1(i)     ' Create new button.
   
   ' Set new button under previous button.
   Text1(i).Top = Text1(i - 1).Top + 500
   Text1(i).Visible = True  ' Display new
                                 ' button.
   Text1(i).Width = 4000
   Text1(i).Text = "Command" & i + 1
   Next i

End Sub