SALVAR CONTEUDO DE ESTRUTURA TYPE COM ARRAY
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
soh que da erro e eu naõ queria usar um laço
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
Da uma olhada, aqui deu certo!
[/c]
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]
Eu quero saber como salvar todo o conteudo da estrura?
Tópico encerrado , respostas não são mais permitidas