EVENTO EM CLASSES

IRENKO 15/07/2011 09:22:29
#379231
Tenho 10 array de TextBox onde controlo seus eventos em um modulo classe. Bom, desse jeito funciona para o primeiro:
O nome dos TextBox é Box(1) a Box(10)

Se coloco assim:
For i = 1 To 1
Set TBs(UBound(TBs)).TargetBox = Box(i)
Next

O Evento funciona normalmente para o Box(1)

Agora se coloco:

For i = 1 To 9
Set TBs(UBound(TBs)).TargetBox = Box(i)
Next

não aciona o evento para nehum deles

onde estou errando?
KERPLUNK 15/07/2011 10:41:56
#379248
O que é esse TBs?
IRENKO 15/07/2011 10:49:12
#379250
Fica no General fo Form:
Private TBs() As New ClassCK

Sub CarregaDados()

ReDim TBs(1 To 1)
Set TBs(1) = New ClassCK

end Sub


Na sub onde Crio os objetos array:
For i = 1 To 9
Set TBs(UBound(TBs)).TargetBox = Box(i)
Next

ReDim Preserve TBs(1 To (UBound(TBs) + 1))
Set TBs(UBound(TBs)) = New ClassCK
KERPLUNK 15/07/2011 10:54:32
#379251
Não estou entendendo...
IRENKO 15/07/2011 10:57:07
#379252
Realmente essa é somente com um exemplo para enteder! Vou ver aqui.
ROBIU 15/07/2011 12:22:20
#379265
Citação:

Blz, Consegui fazer a função para usar os eventos e propriedades do frm e controles criados em tempo de execução. Eu Inserir uma propriedade semelhante ao index dos controles, pois não consegui criar array de controle via código por mais que tentasse.(Essa bendita propriedade somente leitura!). Também já codifiquei alguns controles para servir de exemplo. Estou colocando o projeto na area de Downloads do Site. Segue imagem do projeto.



Esse trecho é do tópico abaixo
Veja minhas respostas neste tópico
IRENKO 15/07/2011 13:15:46
#379269
Valeu RUBIU! O meu problema já foi resolvido, mas sua dica é viável para estudos.
Tópico encerrado , respostas não são mais permitidas
Voltar