SALVAR CONTEUDO DE ESTRUTURA TYPE COM ARRAY

RAMON 03/12/2006 12:24:12
#187657
COmo eu faria para salvar uma estrutura que tem arrays? Eu teria que criar um laço ou tem outro jeito de salvar?

exemplo

Type Estrutura
Array1(3) As Integer
array2 As Byte
End Type
Public teste(10) As Estrutura


Private Sub Form_Load()
teste(1).Array1(1) = 2
teste(2).Array1(1) = 4
teste(3).Array1(1) = 6

End Sub



Private Sub Command1_Click()
Open App.Path & "    este.txt" For Output As #1
Print #1, teste

Close #1

End Sub



soh que da erro e eu naõ queria usar um laço
USUARIO.EXCLUIDOS 03/12/2006 12:31:08
#187660
Da uma olhada, aqui deu certo!

Private Type Estrutura
Array1(0 To 3) As String
Array2(0 To 3) As String
End Type


[c]Private Sub Form_Load()
Dim Teste(0 To 10) As Estrutura

Teste(0).Array1(0) = 2

End Sub

[/c]
RAMON 03/12/2006 13:02:00
#187664
Eu quero saber como salvar todo o conteudo da estrura?
Tópico encerrado , respostas não são mais permitidas