Comment utiliser un évènement d'une liste d'objets? [Résolu]
cs_JGD
- Messages postés
- 48
- Date d'inscription
- vendredi 17 janvier 2003
- Statut
- Membre
- Dernière intervention
- 6 décembre 2012
- Messages postés
- 48
- Date d'inscription
- vendredi 17 janvier 2003
- Statut
- Membre
- Dernière intervention
- 6 décembre 2012
A voir également:
- Comment utiliser un évènement d'une liste d'objets?
- Utilisation des évènements - Codes sources - C# / .NET (Réseaux & Internet)
- Savoir quel fichier est utilisé par telle application : la liste des fichiers ouverts sur le système - Codes sources - Visual Basic / VB.NET (Système)
- Savoir quel fichier est utilisé par telle application : la liste des fichiers ouverts sur le système - Codes sources - Delphi / Pascal (Système)
- Savoir quel fichier est utilisé par telle application : la liste des fichiers ouverts sur le système - Codes sources - Visual Basic / VB.NET (Système)
- Recuperer des infos ou les données d'un graphique sans utiliser les evenements dans les graphiques - Codes sources - Visual Basic / VB.NET (VBA)
10 réponses
Meilleure réponse
Bonjour,
Tu dois abonner le contrôle à un événement.
Utilise AddHandler.
Bonne prog.
Tu dois abonner le contrôle à un événement.
Utilise AddHandler.
Bonne prog.
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
193 internautes nous ont dit merci ce mois-ci
Si tu veux un petit exemple :
Option Strict On
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'on veut intégrer 11 groupbox au formulaire
For x = 10 To 0 Step -1
'nouveau groupbox
Dim box As New GroupBox
'nom position
box.Name = "box" & x.ToString
box.Left = x * 15
'abonnement à l'événement click
AddHandler box.Click, AddressOf box_click
'ajout au formulaire
Me.Controls.Add(box)
Next
MessageBox.Show("cliquer sur un groupbox")
End Sub
Private Sub box_click(ByVal sender As Object, ByVal e As EventArgs)
'il faut ici caster l'objet sender dans le bon type (qu'on connait) pour accéder
'à ses propriétés, méthodes etc...
MessageBox.Show(DirectCast(sender, GroupBox).Name & " vient d'etre cliqué")
End Sub
End Class Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
193 internautes nous ont dit merci ce mois-ci
Par contre, j'aurais voulu que lorsque je clique sur une des GroupBox de ma liste, je puisse déclancher une action sans devoir écrire cette action dans chaque GroupBox.
C'est exactement ce que je t'ai proposé dans l'exemple de code.
L'as-tu testé en cliquant sur les groupbox ?
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
193 internautes nous ont dit merci ce mois-ci
Si tu cherches à récupérer un index dans une List(Of ... , tu peux faire comme ceci :
Option Strict On
Public Class Form1
Dim Liste As New List(Of GroupBox)
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
For x = 10 To 0 Step -1
Dim box As New GroupBox
box.Name = "box" & x.ToString
box.Left = x * 15
AddHandler box.Click, AddressOf box_click
Liste.Add(box)
Me.Controls.Add(box)
Next
MessageBox.Show("cliquer sur un groupbox")
End Sub
Private Sub box_click(ByVal sender As Object, ByVal e As EventArgs)
Dim box As GroupBox = DirectCast(sender, GroupBox)
Dim index As Integer = Liste.IndexOf(box)
MessageBox.Show(index.ToString)
End Sub
End Class Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
193 internautes nous ont dit merci ce mois-ci
De rien
Jette quand même un coup d'oeil aux composants TableLayoutPanel et FlowLayoutPanel qui te permettent facilement de placer des contrôles (dynamiquement ou à la création) sur un formulaire ou d'y accéder sans se soucier des index.
Jette quand même un coup d'oeil aux composants TableLayoutPanel et FlowLayoutPanel qui te permettent facilement de placer des contrôles (dynamiquement ou à la création) sur un formulaire ou d'y accéder sans se soucier des index.
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
193 internautes nous ont dit merci ce mois-ci
- Messages postés
- 48
- Date d'inscription
- vendredi 17 janvier 2003
- Statut
- Membre
- Dernière intervention
- 6 décembre 2012
Avec l'exemple c'est un peu plus clair. Mais je ne vois pas comment intégrer l'ensemble de mes éléments GroupeBoite dans le AddHandler.
Rappels du contenu de mon programme:
Dim GroupeBoite As New List(Of GroupBox)
GroupeBoite.Add(GroupBox1)
GroupeBoite.Add(GroupBox2)
...
Est-ce que je peux écrire:
for i=0 to 29
AddHandler GroupeBoite(i).Click, AddressOf ActionSiClick
Next i
Sub ActionSiClick()
...
Merci d'avance.
GIGADEP
Rappels du contenu de mon programme:
Dim GroupeBoite As New List(Of GroupBox)
GroupeBoite.Add(GroupBox1)
GroupeBoite.Add(GroupBox2)
...
Est-ce que je peux écrire:
for i=0 to 29
AddHandler GroupeBoite(i).Click, AddressOf ActionSiClick
Next i
Sub ActionSiClick()
...
Merci d'avance.
GIGADEP
- Messages postés
- 48
- Date d'inscription
- vendredi 17 janvier 2003
- Statut
- Membre
- Dernière intervention
- 6 décembre 2012
Merci. J'en prends note. J'ai commencé à regarder les composants TableLayoutPanel et FlowLayoutPanel.
Au premier abord, ça m'a l'air un peu compliqué et je ne sais pas encore ce que je pourrais en tirer. Mais je suppose qu'après avoir regardé d'un peu plus près, ça me paraîtra plus facile et très intéressant.
GIGADEP
Au premier abord, ça m'a l'air un peu compliqué et je ne sais pas encore ce que je pourrais en tirer. Mais je suppose qu'après avoir regardé d'un peu plus près, ça me paraîtra plus facile et très intéressant.
GIGADEP