Question

如何在asp.net（vb.net）中向表单动态添加链接按钮？

这是我尝试过的代码：

<form id="form1" runat="server">
    <% For index As Integer = 1 To 10 %>
        <asp:LinkButton ID="#EVAL<%=index%>" runat="server"><%=index%></asp:LinkButton>
    <% Next %>
</form>

我尝试动态使用面板，但这会在使用br标记时产生问题，然后不会给出新行。

该代码

Dim lk As LinkButton

For index As Integer = 1 To 10
    lk = New LinkButton
    lk.ID = index
    lk.Text = index
    Panel1.Controls.Add(lk)
Next

Answer 1

我建议使用面板并添加控件，而不是尝试在前端代码上循环它们。

首先，您要创建面板：

<form id="form1" runat="server">
    <ASP:Panel Runat="server" ID="Panel1" />
</form>

然后在后面的代码中，您将动态创建链接并将其添加到该面板：

    For index As Integer = 1 To 10
        Dim lk As New LinkButton
        lk.ID = index
        lk.Text = index
        Panel1.Controls.Add(lk)
    Next

如果您需要将事件连接到每个链接，您将使用AddHandler并附加正确的子：

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    For index As Integer = 1 To 10
        Dim lk As New LinkButton
        lk.ID = index
        lk.Text = index
        AddHandler lk.Click, AddressOf DoSomething
        Panel1.Controls.Add(lk)
    Next
End Sub

Sub DoSomething(ByVal sender As Object, ByVal e As EventArgs)
    'Handle click here
End Sub

要解决换行问题，只需使用＆lt; br＆gt;创建标签即可。标签：

    For index As Integer = 1 To 10
        Dim lk As New LinkButton
        lk.ID = index
        lk.Text = index
        AddHandler lk.Click, AddressOf DoSomething
        Panel1.Controls.Add(lk)

        Dim lbl as new label
        lbl.text = "<br>"
        Panel1.Controls.Add(lbl)
    Next

Answer 2

您是否在询问如何动态创建<BR/>代码？

试试这个：

Dim lk As LinkButton 
Dim br as HtmlGenericControl

 For index As Integer = 1 To 10
     lk = New LinkButton
     lk.ID = index
     lk.Text = index
     Panel1.Controls.Add(lk)

     br = New HtmlGenericControl("br")
     Panel1.Controls.Add(br)
 Next

这完全来自记忆，但这是一般的想法。

ETA：顺便说一句，我不确定index是否可以作为链接按钮ID使用。我认为ID需要以字母字符开头。

Answer 3

试试这个，

<script runat="server">
        protected void Page_Load(object sender, EventArgs e)
        {
            LinkButton lnk1 = new LinkButton();
            lnk1.Text = "testtest";

            LinkButton lnk2 = new LinkButton();
            lnk2.Text = "test";
            pnl1.Controls.Add(lnk1);
            pnl1.Controls.Add(lnk2);
        }
    </script>

<asp:Panel ID="pnl1" runat="server">
    </asp:Panel>

Answer 4

这是我如何使用之前的答案混合完成它的一个例子。还可以从mysql数据库获取数据，用按钮填充面板。

现在为此客户端设置可用的审核
它们将基于id和审核表
现在从审核表中获取数据

代码

    Dim myStrSql As String = "SELECT audit,user_id,total_questions FROM audits WHERE user_id = " & myGlobalId & ";"
    Dim mySet As New DataSet
    Dim myda As New MySql.Data.MySqlClient.MySqlDataAdapter
    Dim myAudit As String = ""
    Dim myTotalQuestions As Integer = 0

    openMySql()

    myda = New MySql.Data.MySqlClient.MySqlDataAdapter(myStrSql, myConnection)
    myda.Fill(mySet, "SOURCE")

    Dim i As Integer = 0

    If mySet.Tables("SOURCE").Rows.Count > 0 Then
        For i = 0 To mySet.Tables("SOURCE").Rows.Count - 1
            myAudit = IIf(IsDBNull(mySet.Tables("SOURCE").Rows(i).Item("audit").ToString), "", mySet.Tables("SOURCE").Rows(i).Item("audit").ToString)
            myTotalQuestions = IIf(IsDBNull(mySet.Tables("SOURCE").Rows(i).Item("total_questions").ToString), 0, CInt(mySet.Tables("SOURCE").Rows(i).Item("total_questions").ToString))
            'now create a button for each
            Dim btn As New Button()
            btn.ID = "btn_" & Replace(Replace(Replace(Replace(Replace(Replace(myAudit, ",", ""), ".", ""), ":", ""), ";", ""), ":", ""), "?", "")
            btn.Text = myAudit & " : " & myTotalQuestions & " questions."
            AddHandler btn.Click, AddressOf MenuButtonClick
            Panel1.Controls.Add(btn)
            'this puts in a new line in the panel
            Dim lbl As New Label
            lbl.Text = "<br>"
            Panel1.Controls.Add(lbl)
        Next

    End If
End If

在ASP.Net/VB.Net中动态添加链接按钮）

4 个答案: