Question

我有一个包含50条记录的列表。我想从这些记录中创建50个按钮。我怎么能在Vb.Net中做到这一点？

任何帮助将不胜感激。

Answer 1

如果您在Winforms应用程序中工作，可以使用FlowLayoutPanel，因为它会自动为您排序按钮布局：

dim i as integer=1
for each record in Table
    dim btn as new Button
    btn.id = "btn" & i
    i+=1
    Panel1.Controls.add(btn)
next

Answer 2

假设你的意思是Winforms：

使用您的数据源（例如，一个DataTable）并循环其RowCollection。例如：

Private Sub BtnLoadButtons_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnLoadButtons.Click
    Dim source As New DataTable("MyButtonTable")
    source.Columns.Add(New DataColumn("MyButtonColumn", GetType(String)))
    For i As Int32 = 1 To 50
        Dim newRow As DataRow = source.NewRow
        newRow("MyButtonColumn") = "Button_" & i
        source.Rows.Add(newRow)
    Next
    'you are loading the above DataTable from SQL-Server, now iterate the rows...'
    For Each row As DataRow In source.Rows
        Dim btn As New Button()
        btn.Name = DirectCast(row("MyButtonColumn"), String)
        btn.Text = btn.Name
        btn.Location = New Point(0, Me.Panel1.Controls.Count * btn.Height)
        AddHandler btn.Click, AddressOf handleButton
        Me.Panel1.Controls.Add(btn)
    Next
End Sub

Private Sub handleButton(ByVal sender As Object, ByVal e As EventArgs)
    Dim btn As Button = DirectCast(sender, Button)
    'do something ...'
End Sub

从Database字段在运行时创建按钮

2 个答案: