Evenements Usercontrol et collection d'objets [Résolu]
cs_ABF
- Messages postés
- 228
- Date d'inscription
- samedi 21 mai 2005
- Statut
- Membre
- Dernière intervention
- 26 avril 2012
- Messages postés
- 228
- Date d'inscription
- samedi 21 mai 2005
- Statut
- Membre
- Dernière intervention
- 26 avril 2012
A voir également:
- Vb usercontrol
- Vb.net collection - Meilleures réponses
- Usercontrol vb.net - Meilleures réponses
- Erreur 374 vb.usercontrol ✓ - Forum - Visual Basic 6
- Visual Basic / VB.NET : Usercontrol : graph cpu utilisé et mémoire physique libre - Co - Guide
- Visual Basic / VB.NET : Usercontrol gif animé - CodeS SourceS - Guide
- Visual Basic / VB.NET : Dos ping - shell dos avec un usercontrol - CodeS SourceS - Guide
- Visual Basic / VB.NET : Creation d'un control de type usercontrol et le dupliquer dynamiqument et l' - Guide
13 réponses
Meilleure réponse
- Messages postés
- 2859
- Date d'inscription
- mardi 15 avril 2003
- Statut
- Membre
- Dernière intervention
- 26 novembre 2013
Dans ton UC (partie déclarative):
Public Event ClickMiddle (sender As Object, e As System.EventArgs)
Dans la procédure qui lance l'évenement ClickMiddle
RaiseEvent ClickMiddle (Me, New System.EventArgs)
Dans ton panel :
Dim uc As New cUserControl
AddHandler uc.ClickMiddle, AdressOf UCsClickMiddle
colUC.Add(uc)
colUC(colUC.Count - 1).Top = e.Y
colUC(colUC.Count - 1).Left = e.X
Panel.Controls.Add(colUC(colUC.Count - 1))
Dans ton form :
Private Sub UCsClickMiddle (sender As Object, e As System.EventArgs)
Dim UC As cUserControl = Sender'Récupère l'objet
Dim Index As Integer = Panel.Controls.IndexOf (UC) 'Récupère l'index dans la collection de ton panel si besoin est
End Sub
Voila, je ne peux pas t'expliquer mieux que ca ^^
@+
Si le déboguage est l'art d'enlever les bogue
Public Event ClickMiddle (sender As Object, e As System.EventArgs)
Dans la procédure qui lance l'évenement ClickMiddle
RaiseEvent ClickMiddle (Me, New System.EventArgs)
Dans ton panel :
Dim uc As New cUserControl
AddHandler uc.ClickMiddle, AdressOf UCsClickMiddle
colUC.Add(uc)
colUC(colUC.Count - 1).Top = e.Y
colUC(colUC.Count - 1).Left = e.X
Panel.Controls.Add(colUC(colUC.Count - 1))
Dans ton form :
Private Sub UCsClickMiddle (sender As Object, e As System.EventArgs)
Dim UC As cUserControl = Sender'Récupère l'objet
Dim Index As Integer = Panel.Controls.IndexOf (UC) 'Récupère l'index dans la collection de ton panel si besoin est
End Sub
Voila, je ne peux pas t'expliquer mieux que ca ^^
@+
Si le déboguage est l'art d'enlever les bogue
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
197 internautes nous ont dit merci ce mois-ci
- Messages postés
- 2859
- Date d'inscription
- mardi 15 avril 2003
- Statut
- Membre
- Dernière intervention
- 26 novembre 2013
Bonjour,
2 solutions :
1\ Tu déclare les variables de contrôles WithEvents au sein du formulaire. Par la suite tu ajoute un sub avec le handle du contrôle :
Private WithEvents colUControl As New UControl
Private Sub UcontrolsclickMiddle () Handles colUControl.clickMiddle
[Code...]
End Sub
/!\ les tableaux de contrôles ne sont pas pris en charge ! /!\
2\ Tu déclare tes contrôles au sein de la procédure Load du formulaire:
Private Sub Dialog1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim MyControl As New colUControl
AddHandler (MyControl.clickMiddle, AddressOf UcontrolsclickMiddle)
Me.Controls.Add (MyControl)
End Sub
Avec un sub comme délégué :
Private Sub UcontrolsclickMiddle ()
[Code...]
End Sub
Par contre, si tu veux récupérer le contrôle qui produit l'événement il te faut alors passer "sender" en paramètre :
Dans ton contrôle :
Event clickMiddle (sender As Object, e As System.EventArg)
et appeler cette procédure comme ceci :
RaiseEvent clickMiddle (Me, New System.EventArg)
Dans ton form :
Private Sub UcontrolsclickMiddle (sender As Object, e As System.EventArg)
[Code...]
End Sub
@+ Mayzz
Si le déboguage est l'art d'enlever les bogue
2 solutions :
1\ Tu déclare les variables de contrôles WithEvents au sein du formulaire. Par la suite tu ajoute un sub avec le handle du contrôle :
Private WithEvents colUControl As New UControl
Private Sub UcontrolsclickMiddle () Handles colUControl.clickMiddle
[Code...]
End Sub
/!\ les tableaux de contrôles ne sont pas pris en charge ! /!\
2\ Tu déclare tes contrôles au sein de la procédure Load du formulaire:
Private Sub Dialog1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim MyControl As New colUControl
AddHandler (MyControl.clickMiddle, AddressOf UcontrolsclickMiddle)
Me.Controls.Add (MyControl)
End Sub
Avec un sub comme délégué :
Private Sub UcontrolsclickMiddle ()
[Code...]
End Sub
Par contre, si tu veux récupérer le contrôle qui produit l'événement il te faut alors passer "sender" en paramètre :
Dans ton contrôle :
Event clickMiddle (sender As Object, e As System.EventArg)
et appeler cette procédure comme ceci :
RaiseEvent clickMiddle (Me, New System.EventArg)
Dans ton form :
Private Sub UcontrolsclickMiddle (sender As Object, e As System.EventArg)
[Code...]
End Sub
@+ Mayzz
Si le déboguage est l'art d'enlever les bogue
- Messages postés
- 228
- Date d'inscription
- samedi 21 mai 2005
- Statut
- Membre
- Dernière intervention
- 26 avril 2012
Bonjour Mayzz,
Je suis d'accord sur tes principes mais je ne peux pas mettre en place ces solutions !
J'ai du mal m'exprimer :
Si tu préfères, mes controls sont en dynamique via un clique sur un panel de ma main form [code behind de ma form]
Dim uc As New cUserControl
colUC.Add(uc )
colUC(colUC.Count - 1).Top = e.Y
colUC(colUC.Count - 1).Left = e.X
Panel.Controls.Add(colUC(colUC.Count - 1))
Tout simplement.
Ensuite j'ai mes event des déplacement et de redimension via :
Private Sub UC_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove
Dim NewLoc As New Point
Select Case e.Button
'--déplacement
Case Windows.Forms.MouseButtons.Left
NewLoc.X = Me.Location.X + (e.X - InitLocation.X)
NewLoc.Y = Me.Location.Y + (e.Y - InitLocation.Y)
Me.Location = NewLoc
......
End select
Et donc sur ma form principale, j'ai Private colEntite As New List(Of cEntite)
Qui est la collection de mes contrôles.
Et somme, je ne vois pas du tout comment réaliser le code que tu m'a fournit soit le problème est bien là !
Merci
Je suis d'accord sur tes principes mais je ne peux pas mettre en place ces solutions !
J'ai du mal m'exprimer :
Si tu préfères, mes controls sont en dynamique via un clique sur un panel de ma main form [code behind de ma form]
Dim uc As New cUserControl
colUC.Add(uc )
colUC(colUC.Count - 1).Top = e.Y
colUC(colUC.Count - 1).Left = e.X
Panel.Controls.Add(colUC(colUC.Count - 1))
Tout simplement.
Ensuite j'ai mes event des déplacement et de redimension via :
Private Sub UC_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove
Dim NewLoc As New Point
Select Case e.Button
'--déplacement
Case Windows.Forms.MouseButtons.Left
NewLoc.X = Me.Location.X + (e.X - InitLocation.X)
NewLoc.Y = Me.Location.Y + (e.Y - InitLocation.Y)
Me.Location = NewLoc
......
End select
Et donc sur ma form principale, j'ai Private colEntite As New List(Of cEntite)
Qui est la collection de mes contrôles.
Et somme, je ne vois pas du tout comment réaliser le code que tu m'a fournit soit le problème est bien là !
Merci
- Messages postés
- 228
- Date d'inscription
- samedi 21 mai 2005
- Statut
- Membre
- Dernière intervention
- 26 avril 2012
Merci beaucoup cela fonctionne du tonnerre
Juste une chose pour ceux qui ont le même soucis :
C'est AddressOf et non AdressOf (détail :D)
En fait le principe est très simple
A oui, juste une dernière question : pourquoi passer le e en paramètre de UCsClickMiddle ?
Pour agir les les erreurs ?
++
Juste une chose pour ceux qui ont le même soucis :
C'est AddressOf et non AdressOf (détail :D)
En fait le principe est très simple
A oui, juste une dernière question : pourquoi passer le e en paramètre de UCsClickMiddle ?
Pour agir les les erreurs ?
++
- Messages postés
- 2859
- Date d'inscription
- mardi 15 avril 2003
- Statut
- Membre
- Dernière intervention
- 26 novembre 2013
Ah oui, heu... pour répondre à ta question c'est pour le Fun...
Non je plaisante, en fait c'est pour avoir un 'Standard' de procédure ainsi tu peu faire par exemple :
Dim uc As New cUserControl
AddHandler uc.ClickMiddle, AddressOf UCsClickMiddle
Dim btn As New Button
AddHandler btn.Click, AddressOf UCsClickMiddle
Les événements de deux types de contrôles différents déclanchement la même procédure, cela n'est possible que si le schema de paramètre est identique pour les deux contrôles, si tu essaye par exemple :
Dim uc As New cUserControl
AddHandler uc.ClickMiddle, AddressOf UCsClickMiddle
Dim btn As New Button
AddHandler btn.MouseMove, AddressOf UCsClickMiddle
Tu verra le resultat :)
Si le déboguage est l'art d'enlever les bogue
Non je plaisante, en fait c'est pour avoir un 'Standard' de procédure ainsi tu peu faire par exemple :
Dim uc As New cUserControl
AddHandler uc.ClickMiddle, AddressOf UCsClickMiddle
Dim btn As New Button
AddHandler btn.Click, AddressOf UCsClickMiddle
Les événements de deux types de contrôles différents déclanchement la même procédure, cela n'est possible que si le schema de paramètre est identique pour les deux contrôles, si tu essaye par exemple :
Dim uc As New cUserControl
AddHandler uc.ClickMiddle, AddressOf UCsClickMiddle
Dim btn As New Button
AddHandler btn.MouseMove, AddressOf UCsClickMiddle
Tu verra le resultat :)
Si le déboguage est l'art d'enlever les bogue
- Messages postés
- 2859
- Date d'inscription
- mardi 15 avril 2003
- Statut
- Membre
- Dernière intervention
- 26 novembre 2013
Arf !
Je me suis mal exprimer, ce que je voulais dire c'est si tu as un schéma de paramètre comme celui ci :
Public Event ClickMiddle (sender As Object)
Private Sub ControlDelegate (Sender As Object)
End Sub
et que tu essaye :
Dim btn As New Button
AddHandler btn.MouseMove, AddressOf UCsClickMiddle
Tu ne pourras pas car la procédure MouseMove requière un paramètre e de type MouseEventArgs héritant de EventArgs.
[ Mince ! Je viens juste de m'appercevoir qu'il manque un bout de ma citation :( ]
Si le déboguage est l'art d'enlever les bogue, la programmation doit être l'art de les céer.
Je me suis mal exprimer, ce que je voulais dire c'est si tu as un schéma de paramètre comme celui ci :
Public Event ClickMiddle (sender As Object)
Private Sub ControlDelegate (Sender As Object)
End Sub
et que tu essaye :
Dim btn As New Button
AddHandler btn.MouseMove, AddressOf UCsClickMiddle
Tu ne pourras pas car la procédure MouseMove requière un paramètre e de type MouseEventArgs héritant de EventArgs.
[ Mince ! Je viens juste de m'appercevoir qu'il manque un bout de ma citation :( ]
Si le déboguage est l'art d'enlever les bogue, la programmation doit être l'art de les céer.
- Messages postés
- 2859
- Date d'inscription
- mardi 15 avril 2003
- Statut
- Membre
- Dernière intervention
- 26 novembre 2013
Oulala, pardon, je recommence :
Public Event ClickMiddle (sender As Object)
Private Sub ControlDelegate (Sender As Object)
End Sub
et que tu essaye :
Dim btn As New Button
AddHandler btn.MouseMove, AddressOf ControlDelegate
Désolé 3 post pour une explication
Si le déboguage est l'art d'enlever les bogue, la programmation doit être l'art de les créer.
Public Event ClickMiddle (sender As Object)
Private Sub ControlDelegate (Sender As Object)
End Sub
et que tu essaye :
Dim btn As New Button
AddHandler btn.MouseMove, AddressOf ControlDelegate
Désolé 3 post pour une explication
Si le déboguage est l'art d'enlever les bogue, la programmation doit être l'art de les créer.
- Messages postés
- 228
- Date d'inscription
- samedi 21 mai 2005
- Statut
- Membre
- Dernière intervention
- 26 avril 2012
Haaa le mec il pourris le site de com pour gagner du points Haha
Merci pour ces infos, la migration m'est difficile mais agréable sur le fait que grâce au framework, on gagne un temps de développement fou et que le code est plus performant étant donné que les APIs win sont appelées par les méthodes de framework.
++
Merci pour ces infos, la migration m'est difficile mais agréable sur le fait que grâce au framework, on gagne un temps de développement fou et que le code est plus performant étant donné que les APIs win sont appelées par les méthodes de framework.
++