DUVIDA FOR EACH

GRMINFO 13/11/2009 11:50:56
#327643
Ola pessoal!
Estou com uma duvida e agora recorro a vocês, Tem como percorrer todos os Objetos de um Frame??


Segunda duvida, caso nao tenha como percorrer, tem como, apartir de um objeto qualquer, saber se ele esta dentro de algum Frame??

Obrigado!
ROBIU 13/11/2009 13:35:42
#327662
Pensei e tive esta idéia:

Para todos os controles de um frama, você coloca o nome do frame na propriedade Tag

Então esta sub vai controlar todos controles deste frame pela propriedade tag, no exemplo, estou preenchendo um list

Sub MeusFrames(F As Form, DentroDe As String)
    Dim i As Integer
    List1.Clear
    For i = 1 To F.Controls.Count - 1
         If F.Controls(i).Tag = DentroDe Then List1.AddItem F.Controls(i).Name
    Next i
End Sub


para chamar:

MeusFrames Me, [Ô]Fra1[Ô]


Veja o exemplo anexo
Tópico encerrado , respostas não são mais permitidas
Voltar