cs_veler
Messages postés723Date d'inscriptiondimanche 26 novembre 2006StatutMembreDernière intervention23 janvier 2013
-
4 oct. 2007 à 20:44
cs_veler
Messages postés723Date d'inscriptiondimanche 26 novembre 2006StatutMembreDernière intervention23 janvier 2013
-
4 oct. 2007 à 22:18
Bonsoir à tous, j'utilise le code ci-dssous pour afficher un contrôle dans un propertygrid sur lequel on vient de cliqué. Il fonctionne assé bien, en fait, quand je clique sur un bouton par exemple, ça s'affiche bien dans le propertygrid, mais quand je clique sur un bouton qui se trouve dans un panel par exemple, ba y a rien, voici mon code:
For Each Ctrl As Control In Form1.Controls
AddHandler Ctrl.Click, AddressOf Me.CONCEPTEUR_DE_VUE_SELECT_CONTROL
Next
Private Sub CONCEPTEUR_DE_VUE_SELECT_CONTROL(ByVal sender As Object, ByVal e As EventArgs)
Me.PropertyGrid1.SelectedObject = ""
Me.PropertyGrid1.Update()
Me.PropertyGrid1.SelectedObject = sender
Me.PropertyGrid1.Update()
Me.TextBox1.Text = sender.Name
Call ListCtrlEvent(Me.GetType())
End Sub
Il faut faire une fonction récursive pour lister les contrôles contenus dans les contrôles listés
Private Sub ListCtrl(ByVal FormControl As Control)
For Each Ctrl As Control In FormControl.Controls
AddHandler Ctrl.Click, AddressOf Me.CONCEPTEUR_DE_VUE_SELECT_CONTROL
If Ctrl.HasChildren Then Call ListCtrl(Ctrl)
Next
End Sub, ----
(Coloration syntaxique automatique par Kenji)