ricapitolando...
nel generale scrivi il type il restodove ti serve
quindi VarDati(i).VarRigaN puoi piazzarlo dove preferisci...anche nella caption della text!codice:Type datiUtente VarRiga1 As String VarRiga2 As String VarRiga3 As String End Type Dim Path, FileOut As String intfile = FreeFile FileInput = "FileDaLeggere.txt" Path = App.Path + "\" + FileInput Open Path For Input As #intfile i = 1 While Not EOF(intfile) Line Input #intfile, VarLeggi ReDim Preserve MyArray(i) MyArray(i) = VarLeggi i = i + 1 Wend Y = UBound(MyArray()) / 3 Z = 0 For i = 1 To Y ReDim Preserve VarDati(i) VarDati(i).VarRiga1 = MyArray(1 + Z) VarDati(i).VarRiga2 = MyArray(2 + Z) VarDati(i).VarRiga3 = MyArray(3 + Z)
ciao
Originariamente inviato da fidello
Scusa ma continuo a non capirci, la prima riga che leggo dovrebbe essere scritta nella text1 la seconda nella text2 etc. Sto consultando anche lMSDN ma non ho trovato nulla


Rispondi quotando