GERAR CONTROLES DINAMICAMENTE
[txt-size=3]Como vai amigos ?
Criei um formulário que gera Controles dinamicamente em tempo de execução, porém não estou conseguindo fazer funcionar corretamente os eventos desses controles. (VB6)
Poderiam me ajudar ?
Estou encaminhando o arquivo em anexo para que possam solucionar.
Se puderem dar uma olhada, pois estou precisando dessa ajuda com certa urgência.
Esse .VBP já está rodando, só falta fazer os eventos funcionarem pra todos os botões gerados.
Agradeço.
Att.
skype: erasmosud[/txt-size]
Criei um formulário que gera Controles dinamicamente em tempo de execução, porém não estou conseguindo fazer funcionar corretamente os eventos desses controles. (VB6)
Poderiam me ajudar ?
Estou encaminhando o arquivo em anexo para que possam solucionar.
Se puderem dar uma olhada, pois estou precisando dessa ajuda com certa urgência.
Esse .VBP já está rodando, só falta fazer os eventos funcionarem pra todos os botões gerados.
Agradeço.
Att.
skype: erasmosud[/txt-size]
POR FAVOR ALGUéM ME AJUDE. 
Dá uma procurada no site do Macoratti, deve ter o que vc está procurando
www.macoratti.net
www.macoratti.net
JÃ olhei não tem.
Da uma pesquisada aqui mesmo no site, por [Ô]dinamico[Ô] ou [Ô]controle[Ô] ou [Ô]criar[Ô] que certamente achara resposta.
ENTÃO EU PROCUREI, DESSE JEITO COMO ESTà MONTADO NÃO TEM . ALGUéM PODERIA OLHAR O ARQUIVO ZIP E DAR UMA RESPOSTA ?
Cara, até hoje, eu só vi fazerem isso com um array de controles, junto com o comando [Ô]load[Ô].
http://www.macoratti.net/faz_ctrl.htm
Cara fiz umas alterações no projeto, vê se te atende, em relação ao command button ainda não ficou bom, mas sei que tem procedimentos para selecionar o botão pelo mouse antes de clicar no mesmo.
Alterei novamente, agora todos os eventos estão funcionando teste ai...
OLOCO
EU QUERO LHE AGRADECER POIS VOCÊ REALMENTE OLHOU O CÓDIGO E REALMENTE TESTOU O CÓDIGO, ESSA SOLUÇÃO CHEGOU BEM PRÓXIMO DO IDEAL, MAS INFELISMENTE OS PADRÕES DE DESENVOLVIMENTO ME OBRIGA A USAR OS EVENTOS VALIDADE, GOTFOCUS E LOSTFOCUS DOS BOTÕES DAS CAIXAS DE TEXTO. ETC.
INCLUSIVE QUANDO CRIEI ESSE PROJETO CRIEI USANDO O EXEMPLO DO SITE DO MARCORETI NO LINK http://www.macoratti.net/faz_ctrl.htm MAS ELE NÃO ENCERRA SE VOCÊ FOR DAR UMA OLHADA.
REALMENTE OS CONTROLES DEVERIAM FUNCIONAR INDEPENDENTEMENTE CONFORME ABAIXO,
Private Sub cmd_Botao1_Click()
MsgBox [Ô]This is dynamically added control [Ô] & cmd_Botao.Name
End Sub
Private Sub cmd_Botao2_Click()
MsgBox [Ô]This is dynamically added control [Ô] & cmd_Botao.Name
End Sub
Private Sub cmd_Botao3_Click()
MsgBox [Ô]This is dynamically added control [Ô] & cmd_Botao.Name
End Sub
Private Sub cmd_Botao4_Click()
MsgBox [Ô]This is dynamically added control [Ô] & cmd_Botao.Name
End Sub
OBRIGADO POR SUA TéCNICA FOI BRILHANTE E PELA DISPOSIÇÃO, PORéM REALMENTE TEREI QUE CONTINUAR TENTANDO, SE SOUBER ALGUMA COISA. E PUDER PASSAR SEREI ETERNAMENTE GRATO.
OBRIGADO OLOCO
ESTOU POSTANDO NOVAMETE O ORIGINAL DE MODO QUE TODOS POSSAM REVER. CASO ALGUéM POSSA ME AJUDAR SEREI ETERNAMENTE GRATO.
EU QUERO LHE AGRADECER POIS VOCÊ REALMENTE OLHOU O CÓDIGO E REALMENTE TESTOU O CÓDIGO, ESSA SOLUÇÃO CHEGOU BEM PRÓXIMO DO IDEAL, MAS INFELISMENTE OS PADRÕES DE DESENVOLVIMENTO ME OBRIGA A USAR OS EVENTOS VALIDADE, GOTFOCUS E LOSTFOCUS DOS BOTÕES DAS CAIXAS DE TEXTO. ETC.
INCLUSIVE QUANDO CRIEI ESSE PROJETO CRIEI USANDO O EXEMPLO DO SITE DO MARCORETI NO LINK http://www.macoratti.net/faz_ctrl.htm MAS ELE NÃO ENCERRA SE VOCÊ FOR DAR UMA OLHADA.
REALMENTE OS CONTROLES DEVERIAM FUNCIONAR INDEPENDENTEMENTE CONFORME ABAIXO,
Private Sub cmd_Botao1_Click()
MsgBox [Ô]This is dynamically added control [Ô] & cmd_Botao.Name
End Sub
Private Sub cmd_Botao2_Click()
MsgBox [Ô]This is dynamically added control [Ô] & cmd_Botao.Name
End Sub
Private Sub cmd_Botao3_Click()
MsgBox [Ô]This is dynamically added control [Ô] & cmd_Botao.Name
End Sub
Private Sub cmd_Botao4_Click()
MsgBox [Ô]This is dynamically added control [Ô] & cmd_Botao.Name
End Sub
OBRIGADO POR SUA TéCNICA FOI BRILHANTE E PELA DISPOSIÇÃO, PORéM REALMENTE TEREI QUE CONTINUAR TENTANDO, SE SOUBER ALGUMA COISA. E PUDER PASSAR SEREI ETERNAMENTE GRATO.
OBRIGADO OLOCO
ESTOU POSTANDO NOVAMETE O ORIGINAL DE MODO QUE TODOS POSSAM REVER. CASO ALGUéM POSSA ME AJUDAR SEREI ETERNAMENTE GRATO.
Tópico encerrado , respostas não são mais permitidas