Public Class Oval Public Couleur As Color = Color.Green Public Position As Point Public g As Graphics Public Size As Size = New Size(50, 50) Public Sub Dessine() Dim redBrush As New SolidBrush(Couleur) Dim Rect As New Rectangle(Position, Size) g.FillPie(redBrush, Rect, 0.0F, 360.0F) End Sub Public Sub New(ByVal e As Graphics) g = e End Sub End Class Public Class Feux Public Ampoule As New List(Of Oval) Public Espace As Integer = 60 Public Sub New(ByVal e As Graphics, Pos As Point) Ampoule.Add(New Oval(e)) Ampoule.Add(New Oval(e)) Ampoule.Add(New Oval(e)) Position = Pos End Sub Public WriteOnly Property Position As Point Set(value As Point) Dim Ecart As Integer = value.Y For Each A As Oval In Ampoule A.Position = New Point(value.X, Ecart) Ecart = Ecart + Espace Next End Set End Property Public Sub Dessine() For Each Amp As Oval In Ampoule Amp.Dessine() Next End Sub End Class 'Que l'on peut utiliser de cette facon dans une Form en ajoutant un Button : Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim A As New Feux(PictureBox1.CreateGraphics, New Point(10, 50)) A.Ampoule(0).Couleur = Color.Red A.Dessine() End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionPar contre dans un "Listview" ça ne marche pas.