اضافة Buttons بعدد السجلات الموجودة في قاعدة البيانات

إذا قمت بإنشاء نسخه جديده من الفئه Button و من ثم قمت بإضافتها داخل الفورم سيظهر الزر على الفورم و بالنسبه للـ Handler الخاص بالحدث Click قم بإستخدام AddHandler و قم بتوجيهه لداله خاصه بك ليتم تنفيذها عند الضغط على الزر.

مثال

    Sub From_Load(ByVal sender As Object, ByVal e As EventArgs) Handles Me.Load
        For i As Integer = 1 To 4
            Dim btn As New Button()

            With btn
                .Text = "btn" + i.ToString()
                .Top = i * btn.Height + i * 10
                .Left = 20
                AddHandler .Click, AddressOf MyClickHandler
            End With

            Me.Controls.Add(btn)
        Next
    End Sub

    Sub MyClickHandler(ByVal sender As Object, ByVal e As EventArgs)
        MsgBox(DirectCast(sender, Button).Text)
    End Sub

قم بوضع الكود التالى داخل فورم فارغه و قم بتشغيلها و سترى النتيجه.

بالنسبه لحالتك فعملية برمجة الأزرار و استدعائها ستعتمد على كيفية احضارك للبيانات من داخل قاعدة البيانات.

و الله ولى التوفيق

الله يعطيك العافية

ولكن عند اضافة عدد كبير من Buttons تختفي من الفورم

كيف اقدر اقسمها علي الفورم مثلا كل 3 ازرار مع بعض

مرفق

هذا الكود يقوم بإضافة 15 زر على أداة Panel

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Panel1.AutoScroll = True
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim buttonCount As Integer = 15
        Dim rowLength As Integer = 3
        Dim rowCounter As Integer

        Me.Panel1.Controls.Clear()
        Dim x, y As Integer
        For i As Integer = 1 To buttonCount
            Dim btn As New Button
            btn.Location = New Point(x, y)
            btn.Size = New Size(50, 25)
            Me.Panel1.Controls.Add(btn)

            x += 55
            rowCounter += 1
            If rowCounter = rowLength Then
                rowCounter = 0
                y += 30
                x = 0
            End If
        Next
    End Sub

    Private Sub OnButtonClick(ByVal sender As Object, ByVal e As EventArgs)

    End Sub

End Class