none
Dessiner plusieurs rectangles identiques disposés aléatoirement dans un PictureBox RRS feed

  • Question

  • Bonjour,

    Tout est dans le titre...

    Comment positionner x rectangles de façon aléatoire à chaque réaffichage de la PictureBox ?

    Merci pour votre aide

    Dominique


    vdom

    samedi 23 juin 2012 16:11

Réponses

  • Bonjour,

    Public Class Form1
    
        Private rectangles(5) As Rectangle
    
        Sub New()
            ' Cet appel est requis par le concepteur.
            InitializeComponent()
    
            ' Ajoutez une initialisation quelconque après l'appel InitializeComponent().
    
            ' Initialiser un tableau avec 5 rectangles
            Dim r As Random = New Random()
    
            For i As Integer = 0 To rectangles.Length - 1
                rectangles(i) = New Rectangle(r.Next(Me.PictureBox1.Width), r.Next(Me.PictureBox1.Height), 50, 20)
            Next
        End Sub
    
        Private Sub PictureBox1_Paint(sender As System.Object, e As System.Windows.Forms.PaintEventArgs) Handles PictureBox1.Paint
            For i As Integer = 0 To rectangles.Length - 1
                e.Graphics.FillRectangle(Brushes.Aqua, rectangles(i))
            Next
        End Sub
    End Class

    Cordialement


    Gilles TOURREAU - MVP C#
    Architecte logiciel/Consultant/Formateur Freelance
    Blog : http://gilles.tourreau.fr
    - MCPD : Enterprise Developper / Windows Developper 3.5 / ASP .NET 3.5/4.0
    - MCITP : SQL Server 2008 Developper
    - MCTS : ADO .NET 3.5 / SQL Server 2008 Developper / Windows Forms 3.5 / ASP .NET 3.5/4.0

    • Proposé comme réponse Michel K mercredi 27 juin 2012 19:54
    • Marqué comme réponse vdom lundi 30 mars 2015 17:56
    dimanche 24 juin 2012 18:32
    Modérateur