[Resolvido] Matriz bidimensional

[lfranca 0]

Estou com problemas para redimensionar minha matriz gostaria de saber se e possivel fazer o que estou tentando.

 

A matriz comeca da seguinte forma

 

 

Dim matriz (0,4) as string

Redim matriz (linha, 4)

 

Onde esse linha e incrementando em um loop ou seja a matriz vai aumentando o numero de linhas conforme o tamanho do loop

 

Outra duvida e que preciso passar essa matriz pra uma sub + nao estou conseguindo, Ex.

 

Eu preencho a matriz.

 

matriz(0,0) = x

matriz(0,1) = y

 

E depois eu chamo a sub

 

EnviaEmail matriz(), linha

 

Esse sao os paramestros q preciso passar, o conteudo da matriz e a qnt de linhas, pra q depois eu possa imprimir a matriz, a subestou chamando da seguinte forma

 

Public Sub EnviaEmail (matriz(), linha)

 

conteudo

 

End sub

 

A linha chega na sub certinho a matriz chega vazio, ja tentei varias outras formas e nao consigo levar o conteudo para a sub

[scorpio 7]

Retire os () da declaração da Sub.

Public Sub EnviaEmail (matriz, linha)

conteudo

End sub

Fiz assim e funcionou:

Private Sub Form_Load()
Dim d(1, 1) As String
d(0, 0) = "oi"
x d, 1
End Sub
Public Sub x(matriz, linha)
MsgBox matriz(0, 0)
End Sub

[Mário Monteiro 179]

para nao perder os valores use preserve junto ao redim

[scorpio 7]

para nao perder os valores use preserve junto ao redim

Podiscre Mário.

 

ReDim Preserve

Aqui nem funcionou com os () no parametro

[lfranca 0]

obrigado funcionou direitinho