2

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
4

4 に答える 4

0

これは、以前の回答を組み合わせて使用​​した方法の例です。また、mysql データベースからデータを取得して、パネルにボタンを追加します。

  • このクライアントで利用可能な監査を設定します
  • ID と audits テーブルに基づいています。
  • audits テーブルからデータを取得するようになりました

コード

    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
于 2014-09-18T07:21:49.497 に答える