resgatar vetor que está em uma sub

[ASP!Vb 0]

tenho uma sub assim:

 

sub preencherMatriz()mReg(0,1) = "Alone"mReg(1,1) = 1end sub

quero resgatar o valor de mReg(0,1) nesta sub

 

sub resposta()msgbox mReg(0,1)end sub

na pratica to tentando fazer o seguinte: eu quero preencher esse vetor com informaçõe de uma recordset somente uma vez, depois de estar preenchido eu poder resgatar o valor do vetor em quaquer canto do modulo que to trabalhando, pra deixar minha aplicação mais leve e nao ta toda hora abrindo e fechando o banco de dados

 

ja tentei declarar o vetor como variavel publica mas o vb diz q não é possivel alguem temuma solução pra mim

[Dennys Lopes 0]

Tem como sim ... a variavel para ser public nesse caso tem que ser declarada num Módulo:

 

Option ExplicitPublic Vet(1, 1) As String

E no Formulário faça assim:

 

Option ExplicitSub PreencherMatriz()Vet(0, 1) = "ASDAS"Vet(1, 1) = 1End SubSub Resposta()MsgBox Vet(0, 1)End SubPrivate Sub Form_Load()Call PreencherMatrizCall RespostaEnd Sub

Ai funciona !

[ASP!Vb 0]

perfetio! http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

 

ficou bala

 

imagina só eu tenho uma tabela com 4000 registros faço a busca de uma registro no evento onchage do text

cada letra q o cara digita ele abria o banco de dados e fazia a pesquisa, aff ficava lento de mais

 

agora faço um for next no vetor que você me ajudou a preencher corretamente e pronto, uma MAGAVILHA! :D

[Dennys Lopes 0]

Realemente ... nao tinha nem como ficar abrindo o banco toda hora .... :)Qualquer coisa é só perguntar