[vb6] passare un array di textbox ad una funzione

[maleresidente]

ciao a tutti
è possibile in vb6 passare come argomento di una funzione un array di textbox
lo faccio ma mi da errore

[oregon]

Come lo fai? Quale errore?

[maleresidente]

bè questo per esempio
ho una matrice di textbox sul form

Private Sub Command1_Click()
  sss Text1()
End Sub

Private Function sss(d() As TextBox)
  
End Function

l'errore è: tipo non corrispondente. previsti matrice o tipi definiti dall'utente

[oregon]

Private Function sss(d As Variant)
    Dim i As Integer
    For i = 0 To d.Count - 1
        d(i).Text = "ciao"
    Next i
End Function

[maleresidente]

Private Sub Command1_Click()
  sss Text1()
End Sub

stesso errore su sss text1()

[19davifumi89]

può essere che il primo indice delle tue textbox possa essere 1?

perchè se così fosse devi modificare il for che ti ha postato oregon facendolo partire da 1 fino a d.count

[oregon]

Originariamente inviato da maleresidente

Private Sub Command1_Click()
  sss Text1()
End Sub

stesso errore su sss text1()

Non mi pare ... hai visto il bene il codice suggerito? Specialmente la riga

Private Function sss(d As Variant)

[wallrider]

scusa Oregon, perchè una Function e non una Sub?

[oregon]

Non ho voluto modificare cio' che era stato impostato da chi ha aperto la discussione (pensando che avesse i suoi motivi ... magari con del codice non mostrato per cui era necessaria la funzione).

Ovviamente, in caso contrario, basta la Sub ...

[maleresidente]

Originariamente inviato da oregon
Non mi pare ... hai visto il bene il codice suggerito? Specialmente la riga

Private Function sss(d As Variant)

certo ho provato con variant ma mi da lo stesso errore

@ wallrider era un esempio fatto a caso