Olá pessoal !

 

Tenho uma função que requer como parâmetro dois controlse, por exemplo, duas textbox

Criei uma rotina que utiliza essa função. Como faço para criar este objeto, instancia-lo e utiliza-lo como parâmetro na função sem que seja necessário criá-lo explicitamentoe no formulário?

Para criar objetos em tempo de execução segue dica:

http://www.vbweb.com.br/dicas_visual.asp?Codigo=45&Classificacao=

Para textbox faça assim (baseado na dica acima)

 

Private WithEvents Mytextbox As TextBox

Private Sub Form_Load()
Set Mytextbox = Me.Controls.Add("VB.Textbox", "textTeste")
Mytextbox.Visible = True
End Sub

 

Só q vc tem q configurar tamanho, posição etc ok?

 

t+

TEm um jeito mais fácil:

1 - Adicione o objeto que você quer no form;

2 - Configure a propriedade Index para 0

3 - Configure a propriedade Visible para False

4 - Sempre que quiser um novo objeto do mesmo tipo faça um load com um número a mais:

Load txtDados(contador)

txtDados(contador).visible = True

 

Isso na verdade é uma control array, mas é mais simples do que criar objetos dinamicamente, pois não será necessário o uso do CallByName