EALA FREYA FRESENA

Public Class ucGroupWithButton
    'Usercontrol
 
    Dim gp As New GroupBox
    Dim btn As New Button
 
    Public Event Clicked(sender As Object, e As EventArgs)
 
    Dim _text As String
 
 
    Public Shadows Property Text As String
        Set(value As String)
            _text = value
            gp.Text = value
            btn.Text = value
        End Set
        Get
            Return _text
        End Get
    End Property
 
 
    Private Sub ucGroupWithButton_Load(sender As System.Object, _
        e As System.EventArgs) Handles MyBase.Load
 
        With Me.gp
            .Top = 10 : .Left = 10 : .Parent = Me
        End With
 
        With Me.btn
            .Parent = gp : .Width = 150 : .Top = 40 : .Left = 20
        End With
 
        AddHandler btn.Click, AddressOf btn_Click
 
        Me.MinimumSize = New Size(200, 60)
    End Sub
 
 
    Private Sub ucGroupWithButton_Resize(sender As Object, _
        e As System.EventArgs) Handles Me.Resize
 
        gp.Width = Me.Width - 20
        gp.Height = Me.Height - 20
    End Sub
 
 
    Private Sub btn_Click(sender As Object, e As System.EventArgs)
        RaiseEvent Clicked(Me, e)
    End Sub
 
End Class
 
 
 
Public Class frmGroupSeries
    'Windows.Forms.Form / Anwendungsbeispiel
 
    Dim groups As New List(Of ucGroupWithButton)
 
    Private Sub frmGroupSeries_Load(sender As System.Object, _
                         e As System.EventArgs) Handles MyBase.Load
 
        Me.Size = New Size(500, 500)
 
        Dim groupcount As Integer = 9
 
        Dim h As Integer = 120
 
        For i As Integer = 0 To groupcount - 1
            Dim g As New ucGroupWithButton
            With g
                .Parent = Me
                .Text = "Group " & i.ToString
                .Name = .Text
                .Height = h
                .BringToFront()
                groups.Add(g)
                AddHandler .Clicked, AddressOf Group_Clicked
            End With
        Next i
 
    End Sub
 
 
    Private Sub Group_Clicked(sender As Object, e As System.EventArgs)
 
        Dim sended As ucGroupWithButton = _
                 DirectCast(sender, ucGroupWithButton)
        'MsgBox(sended.Name & " ist geclicked worden")
        sended.Visible = False
 
    End Sub
End Class