Imports System.Drawing.Drawing2D
Public Class Form1
    Dim oPic As New List(Of PictureBox)
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        FlowLayoutPanel1.Size = New Size(400, 30)
 
        For i As Integer = 1 To 6
            Dim pic As New PictureBox
            pic.Size = New Size(60, 20)
            pic.BorderStyle = BorderStyle.FixedSingle
            pic.Margin = New Padding(3, 3, 3, 3)
 
            Me.FlowLayoutPanel1.Controls.Add(pic)
            oPic.Add(pic)
 
            AddHandler pic.Paint, AddressOf PicPaint
            AddHandler pic.Click, AddressOf PicClick
        Next
    End Sub
 
    Private Sub PicClick(ByVal sender As System.Object, ByVal e As _
      System.EventArgs)
        Dim pic = CType(sender, PictureBox)
        Dim gra As Graphics = pic.CreateGraphics
        gra.Clear(Color.Red)
    End Sub
 
    Private Sub PicPaint(ByVal sender As System.Object, ByVal e As _
      System.EventArgs)
        Dim pic = CType(sender, PictureBox)
        Dim gra As Graphics = pic.CreateGraphics
 
        With pic.ClientRectangle
            'pic.BackColor = Color.Yellow
            gra.Clear(Color.Blue)
            gra.DrawRectangle(Pens.Green, New Rectangle(0, 0, .Width - 1, _
              .Height - 1))
        End With
    End Sub
End Class

_______________________________________________________________
Jeder Mensch ist anders. Darum nimm jeden Menschen so wie er ist.

Beitrag wurde zuletzt am 14.10.11 um 21:39:39 editiert.