Information générale
Catégorie:
Code, syntaxe and commandes
Titre:
What interface question
Versions des environnements
Im trying to write a sub that will go through a form and collect a referance to all the controls of a given type (IControlDataAction).(code below) I was hoping to make a recursve call to go through any containers with a controls cdollection tab pages and so on. I have not been able to find an interface that would work for this. any suggestions?
Private Sub RegisterCmdbtns(ByVal objControl As ContainerControl)
Dim intControlIndex As Int16
If objControl.Controls.Count() < 1 Then
Exit Sub
End If
For intControlIndex = 0 To objControl.Controls.Count() - 1
Debug.WriteLine(objControl.Controls(intControlIndex).Name)
If TypeOf objControl.Controls(intControlIndex) Is System.ComponentModel.IContainer Then
RegisterCmdbtns(objControl.Controls(intControlIndex))
End If
If TypeOf objControl.Controls(intControlIndex) Is IControlDataAction Then
RegisterDataActionControl(objControl.Controls(intControlIndex))
End If
Next
End Sub
Thanks
Brian Grant
Suivant
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement