Discussion :

[armin]

Bonjour

Je programme sous Vb express 2010

J'ai developé un programme qui fait de l'affichage graphique qui est realisé en GDI+, et qui fonctionne tres bien. Je vais simplifier l'explication a l'extrème, car mon problème est tres simple :

Il y a la definition d'une classe qui s'appelle ClassDessin
Dans le programme principale on declare un tableau de cette classe ( dont le nombre evolue souvent) : Public Dessins(nbObjets) as classdessin.

Je voudrais maintenant remonter au programm principale des informations, quand des evenements se produisent dans la classe.
Si ça serait une instance simple d'une classe, je sais comment declarer des evenements, et commant les gerer.

Mais avec un tableau de classes, on ne peut pas declarer des eventements ??

Comment remonter une info ( cad declencher un qque chose du genre SubTraitementEvenements(pListeParams) dans le programm principal )?

merci de vos lumières

Armin

[Rainui]

Bonjour,

Pourquoi ne pas vous créer une classe "ClassDessinListe" qui implémente IList(Of ClassDessin) dans laquelle vous ajoutez des événements?

Cordialement.

PS: Pour tester mes dires, j'ai fait ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
 
Public Class Form1
 
    Dim DessinClassList As New TabClassDessin
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
 
        For i As Integer = 0 To 10
            Dim CD As New ClasDessin
            CD.BlaBla = "Classe " & i
            DessinClassList.Add(CD)
        Next
    End Sub
 
End Class
 
Public Class ClasDessin
    Property BlaBla As String
End Class
 
Public Class TabClassDessin
    Implements IList(Of ClasDessin)
 
    Private lst As New List(Of ClasDessin)
 
    Public Sub Add(item As ClasDessin) Implements ICollection(Of ClasDessin).Add
        lst.Add(item)
        RaiseEvent ItemAdded()
    End Sub
 
    Public Sub Clear() Implements ICollection(Of ClasDessin).Clear
        lst.Clear()
    End Sub
 
    Public Function Contains(item As ClasDessin) As Boolean Implements ICollection(Of ClasDessin).Contains
        Return lst.Contains(item)
    End Function
 
    Public Sub CopyTo(array() As ClasDessin, arrayIndex As Integer) Implements ICollection(Of ClasDessin).CopyTo
        lst.CopyTo(array, arrayIndex)
    End Sub
 
    Public ReadOnly Property Count As Integer Implements ICollection(Of ClasDessin).Count
        Get
            Return lst.Count
        End Get
    End Property
 
    Public ReadOnly Property IsReadOnly As Boolean Implements ICollection(Of ClasDessin).IsReadOnly
        Get
            Return False
        End Get
    End Property
 
    Public Function Remove(item As ClasDessin) As Boolean Implements ICollection(Of ClasDessin).Remove
        Return lst.Remove(item)
    End Function
 
    Public Function GetEnumerator() As IEnumerator(Of ClasDessin) Implements IEnumerable(Of ClasDessin).GetEnumerator
        Return lst.GetEnumerator()
    End Function
 
    Public Function IndexOf(item As ClasDessin) As Integer Implements IList(Of ClasDessin).IndexOf
        Return lst.IndexOf(item)
    End Function
 
    Public Sub Insert(index As Integer, item As ClasDessin) Implements IList(Of ClasDessin).Insert
        lst.Insert(index, item)
    End Sub
 
    Default Public Property Item(index As Integer) As ClasDessin Implements IList(Of ClasDessin).Item
        Get
            Return lst.Item(index)
        End Get
        Set(value As ClasDessin)
            lst.Item(index) = value
        End Set
    End Property
 
    Public Sub RemoveAt(index As Integer) Implements IList(Of ClasDessin).RemoveAt
        lst.RemoveAt(index)
    End Sub
 
    Public Function GetEnumerator1() As IEnumerator Implements IEnumerable.GetEnumerator
        Return lst.GetEnumerator()
    End Function
 
    Event ItemAdded()
 
    Public Sub ItemAjouté() Handles Me.ItemAdded
        MessageBox.Show("Item ajouté")
    End Sub
End Class

[armin]

Merci

Je ne connaissait pas ce type de liste, c'est genial, ça va beaucoup me servir.

Mais pour revenir a mon souci : la problematique était commant remonter un event de la classe classedessin jusqu'au formulaire, et non pas de la classe classtabdessin.

Je ne vois pas encore exactement commant faire.

C'est aussi possible avec un event ?

merci d'avance

Armin

[Rainui]

Bonjour,
Vous pouvez regarder les deux exemples de MSDN sur Event, je pense que le premier exemple peux vous servir.

Cordialement.

[armin]

Salut

desolé, question un peu idiot : comment trouver ces exemples ?

Armin

[wallace1]

Bonjour,

Event MSDN VBNET

[rv26t]

Bonjour,

Si ça serait une instance simple d'une classe, je sais comment declarer des evenements, et commant les gerer.

La classe TabClassDessin présenté par Rainui est équivalent à ce que tu appeles une classe simple.

Mais pour revenir a mon souci : la problematique était commant remonter un event de la classe classedessin jusqu'au formulaire, et non pas de la classe classtabdessin.

Je ne vois pas encore exactement commant faire.

C'est aussi possible avec un event ?

Vu ce que tu as indiqué dans ton post1, normalement tu sais faire.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Public Class TabClassDessin
    Implements IList(Of ClasDessin)
 
    Public Event EventclsDessin(s As String)
    Private lst As New List(Of ClasDessin)
 
    Public Sub Add(item As ClasDessin) Implements ICollection(Of ClasDessin).Add
        lst.Add(item)
        RaiseEvent EventclsDessin(item.BlaBla & " ajouté")
    End Sub
 
    Public Sub Insert(index As Integer, item As ClasDessin) Implements IList(Of ClasDessin).Insert
        lst.Insert(index, item)
        RaiseEvent EventclsDessin(item.BlaBla & " inséré en position " & index)
    End Sub
 
    Public Sub RemoveAt(index As Integer) Implements IList(Of ClasDessin).RemoveAt
        RaiseEvent EventclsDessin(Me.Item(index).BlaBla & " supprimé")
        lst.RemoveAt(index)
    End Sub

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Public Class frmIList
 
    Dim DessinClassList As New TabClassDessin
    Dim HistoriqueEvent As System.Text.StringBuilder = New System.Text.StringBuilder
 
    Private Sub frmIList_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Dim CD As ClasDessin
 
        AddHandler DessinClassList.EventclsDessin, AddressOf Me.fonctionAExecuter
 
        For i As Integer = 0 To 10
            CD = New ClasDessin
            CD.BlaBla = "Classe " & i
            DessinClassList.Add(CD)
        Next
 
        DessinClassList.RemoveAt(8)
 
        CD = New ClasDessin
        CD.BlaBla = "Classe insert"
        DessinClassList.Insert(5, CD)
 
        MessageBox.Show(HistoriqueEvent.ToString)
    End Sub
 
    Sub fonctionAExecuter(s As String)
        HistoriqueEvent.AppendLine(s)
    End Sub
 
End Class

[armin]

Bonjour,

super, j'ai compris.

dans le cas d'un tableau, il faut seulement indiquer pour chaque element du tableau quel sub gère le remonté de l'eventement, et le tour est joué.

le truc qui me manquait était : AddHandler Obj.Ev_Event, AddressOf EventHandler

merci de votre aide

Armin