Code Snippets

VB.NET Source Code

Welcome to Dream.In.Code
	Become a VB.NET Expert! Join 149,183 VB.NET Programmers for FREE! Get instant access to thousands of VB.NET experts, tutorials, code snippets, and more! There are 1,788 people online right now. Registration is fast and FREE... Join Now! Chat LIVE With a VB.NET Expert

Create Control Arrays at runtime in VB 2005 with Events

This code will add number of nuppe buttons in a panel. When you click any of the button, it will tell his number with msgbox. This snippet can be used as an example of verios things

Submitted By: m2s87

Actions:

Rating:

Views: 12,266

Language: VB.NET

Last Modified: January 21, 2007

Snippet

'
'Written by Margus Martsepp aka m2s87
'
Const Nuppe As Integer = 20
Dim Nupud(Nuppe) As Button
Dim Nupp As Button
Private Sub Form1_Load(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles MyBase.Load
'
'Panel1
'
Dim Panel1 As New System.Windows.Forms.Panel
Panel1.Parent = Me
Panel1.AutoScroll = True
Panel1.Location = New System.Drawing.Point(12, 12)
Panel1.Name = "Panel1"
Panel1.Size = New System.Drawing.Size(152, 235)
Panel1.TabIndex = 2
'
'Nupud
'
Const laius As Integer = 120
Const kÃµrgus As Integer = 25
For i As Integer = 1 To Nuppe
Nupp = New Button
Nupp.Parent = Panel1
Nupp.Size = New Size(laius, kÃµrgus)
Nupp.Text = CType(i, String)
Nupp.Top = CType((i - 1) * 30, Integer)
Nupp.BackColor = Color.Blue
Nupp.Visible = True
AddHandler Nupp.Click, AddressOf Nupp_Click
Nupud(i) = Nupp
Next i
End Sub
Private Sub Nupp_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs)
MsgBox("You clicked on button: " & CType(sender.Text, String))
End Sub

Copy & Paste

'
    'Written by Margus Martsepp aka m2s87
    '    
    Const Nuppe As Integer = 20
    Dim Nupud(Nuppe) As Button
    Dim Nupp As Button

Private Sub Form1_Load(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles MyBase.Load
        '
        'Panel1
        '
        Dim Panel1 As New System.Windows.Forms.Panel
        Panel1.Parent = Me
        Panel1.AutoScroll = True
        Panel1.Location = New System.Drawing.Point(12, 12)
        Panel1.Name = "Panel1"
        Panel1.Size = New System.Drawing.Size(152, 235)
        Panel1.TabIndex = 2
        '
        'Nupud
        '
        Const laius As Integer = 120
        Const kõrgus As Integer = 25

For i As Integer = 1 To Nuppe
            Nupp = New Button
            Nupp.Parent = Panel1
            Nupp.Size = New Size(laius, kõrgus)
            Nupp.Text = CType(i, String)
            Nupp.Top = CType((i - 1) * 30, Integer)
            Nupp.BackColor = Color.Blue
            Nupp.Visible = True
            AddHandler Nupp.Click, AddressOf Nupp_Click
            Nupud(i) = Nupp
        Next i

End Sub

Private Sub Nupp_Click(ByVal sender As System.Object, _
    ByVal e As System.EventArgs)
        MsgBox("You clicked on button: " & CType(sender.Text, String))
    End Sub