动态创建按钮及处理OnClick事件

最普通的动态创建铵钮方法，并为此铵钮处理它的OnClick的事件。为了演示效果更佳，在aspx使用Ajax，

View Code <asp:ScriptManager ID="ScriptManager1" runat="server">
    </asp:ScriptManager>
    <asp:UpdatePanel ID="UpdatePanel1" runat="server">
        <ContentTemplate>
            <asp:PlaceHolder ID="PlaceHolder1" runat="server"></asp:PlaceHolder>
        </ContentTemplate>
    </asp:UpdatePanel>

 

.aspx.cs，程序中有详注释:

View Code  protected void Page_Load(object sender, EventArgs e)
    {
        GenerateButton();
    }

    private void GenerateButton()
    {
        //new 一个Button控件。
        Button button = new Button();

        //为此button控件添加属性ID和ID的值为Button1。
        button.Attributes.Add("ID", "Button1");

        //为此button控件添加属性,设button为服务器控件。
        button.Attributes.Add("runat", "server");

        //使用Text属性来指定或确定在Button控件中显示的标题
        button.Text = "Click me";

        //为button控件添加Click事件。
        button.Click += new EventHandler(this.Button1_Click);

        //把button控件load到aspx的PlaceHolder控件里。
        this.PlaceHolder1.Controls.Add(button);
    }

    //实现Button1_Click事件
    private void Button1_Click(object sender, EventArgs e)
    {
        Insus.NET.InsusJsUtility js = new Insus.NET.InsusJsUtility();
        js.JsAlert("'Click me' 铵钮被点击，事件已经产生。");
    }

网页在运行时，会显示一个Click me的铵钮，点击铵钮后：

 

 

 于2013-05-29 14:00补充以下VB.NET代码：

Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load        GenerateButton()    End Sub    Private Sub GenerateButton()        'new 一个Button控件。        Dim button As New Button()        '为此button控件添加属性ID和ID的值为Button1。        button.Attributes.Add("ID", "Button1")        '为此button控件添加属性,设button为服务器控件。        button.Attributes.Add("runat", "server")        '使用Text属性来指定或确定在Button控件中显示的标题        button.Text = "Click me"        '为button控件添加Click事件。        AddHandler button.Click, AddressOf Me.Button1_Click        '把button控件load到aspx的PlaceHolder控件里。        Me.PlaceHolder1.Controls.Add(button)    End Sub    '实现Button1_Click事件    Private Sub Button1_Click(sender As Object, e As EventArgs)        Dim js As New Insus.NET.InsusJsUtility()        js.JsAlert("'Click me' 铵钮被点击，事件已经产生。")    End Sub

View Code