Question

我有一个用户控件，它以编程方式多次包含第二个用户控件，但最终结果是根本没有为控件生成HTML。

Default.aspx的

<%@ Page Language="vb" AutoEventWireup="false" CodeBehind="Default.aspx.vb" Inherits="TestApplication._Default" %>
<%@ Register TagName="Ten" TagPrefix="me" Src="~/Ten.ascx" %>

<html>
<head runat="server"></head>
<body>
    <form id="form1" runat="server">
        <me:Ten ID="thisTen" runat="server" />
    </form>
</body>
</html>

Ten.ascx

<%@ Control Language="vb" AutoEventWireup="false" CodeBehind="Ten.ascx.vb" Inherits="TestApplication.Ten" %>

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

Ten.ascx.vb

Public Class Ten
    Inherits System.Web.UI.UserControl
    Protected Sub Page_Init() Handles Me.Init
        For I As Integer = 0 To 11
            List.Controls.Add(New One(I.ToString))
        Next
    End Sub
End Class

One.ascx

<%@ Control Language="vb" AutoEventWireup="false" CodeBehind="One.ascx.vb" Inherits="TestApplication.One" %>

<asp:Button ID="OneButton" Text="Press ME!" runat="server" />

One.ascx.vb

Public Class One
    Inherits System.Web.UI.UserControl
    Private _number As String
    Sub New(ByVal number As String)
        _number = number
    End Sub
    Protected Sub OneButton_Click(ByVal sender As Object, ByVal e As EventArgs) Handles OneButton.Click
        Dim script As String = "<script type=""text/javascript"">" +
                               "alert('Button " + _number + "');" +
                               "</script>"
        ScriptManager.RegisterStartupScript(Me, Me.GetType(), "ServerControlScript", script, True)
    End Sub
End Class

修改

使用负载控制（Ten.aspx）

Dim p() As String = {I.ToString}
Dim o As One = Me.LoadControl(New One("").GetType, p)
List.Controls.Add(o)

编辑2：

Dim o As One = Me.LoadControl("~/One.ascx")
o._number = I.ToString
List.Controls.Add(o)

Answer 1

我不会在OnInit事件中执行此操作，但这可能与您的问题有关，也可能与您无关。相反，我会在OnLoad事件中加载控件。

但是，使用new关键字通常不会加载用户控件的方式。对不起，但我只知道C＃并且不知道确切的翻译：

在C＃中：

One one = (One)this.LoadControl("~/Controls/One.ascx");

这在VB.NET中是否正确？

Dim one As One = Me.LoadControl("~/Controls/One.ascx")

您可能必须删除构造函数，并在加载控件后设置属性。

以编程方式嵌套ASP.NET用户控件

1 个答案: