FUNCAO COM MATRIZ

EPISCOPAL 04/12/2010 23:05:13
#358812
Olá pessoal, eu tenho uma função assim:

TableInsert(ByVal Rows As Integer, ByVal Columns As Integer, ByRef Width() As Long)


Para utiliza-la .... os valores que inseri ta dando erro:

Dim i() as long

i(1) = 100
i(2) = 200
i(3) = 300

TableInsert 4, 3, i () <<<<< O PROBLEMA ESTA AQUI. NAO SEI PASSAR OS VALORES DA MATRIZ PARA A FUNÇÃO

ALGUMA DICA AI????????? VALEUUU!!!
MARCELO.TREZE 05/12/2010 11:40:26
#358827
existem varios erros ao meu ver, então vamos ao principio

primeiro, vc não pode deixar o valor de uma array vazio, ou seja sem dimensiona-lo

ex:

[txt-color=#e80000]Errado: [/txt-color] Dim i() As Long

[txt-color=#007100]Certo:[/txt-color] Dim i(3) As Long

porém se vc deixar o valor vazio vc terá de redimensiona-la desta forma

Dim R As Integer


Private Sub Command1_Click()
Dim i() As Long
R = R + 1
Redim Preserve i(R) As Long
i(R) = txtValorDe_i.Text
End Sub


acima um exemplo bem básico, ou seja, toda vez que vc clicar no botão será somado 1 a R, e vc colocará os valores, ficando assim

i(1) = 100
i(2) = 200

e assim por diante

vc possui a função [txt-color=#0000f0]TableInsert(ByVal Rows As Integer, ByVal Columns As Integer, ByRef Width() As Long)
[/txt-color]

posta o código desta função pois acredito que também esteja sendo feita da maneira errada.
EPISCOPAL 05/12/2010 12:23:32
#358833
Marcelo, nao tem nada a ver com o codigo dentro da função, mas como sim se passa os valores na função. Obrigaduuuu


LVFIOROT ..... com certeza esta funcionando ai ......... eu errei na sintaxe, veja:

TableInsert 4, 3, i () [txt-color=#e80000]<<<< ERRADO[/txt-color]

TableInsert 4, 3, i [txt-color=#007100]<<<< CERTO[/txt-color]


Eu usei o parenteses depois do i .......... valeu mesmoooooo
Tópico encerrado , respostas não são mais permitidas
Voltar