在葉面中動態的添加控件

在實際的開發過程中,經常需要根据實際需要動態的加載一些服務器控件或用戶控件,一般又分為靜態和動態加載兩種.下面主要是講如何動態加載控件,在葉面中動態加載控件經常用PlaceHolder控件作為一個容器來裝載這些動態加載的控件.這個例子是當點”BtnAddControl”來添加一個新控件
Sub BtnAddControl_Click(Sender As object,e As eventargs)
      Dim txtBox As textbox = New Textbox         
      '先清除placeholder中的所有控制項再將生成的textbox控件加到placeholder控件中
      PlaceHolder1.Controls.Clear()
      PlaceHolder1.Controls.Add(txtBox) '這樣基本上就已經有了一個textbox控件了,當點“BtnAddControl“時就可以看到有個textbox!
      '還可以定義加載的TEXTBOX的各种屬性(注意要先添加控件,再設置它的屬性)
      txtBox.ID=“Mytextbox“
      txtBox.BackColor=System.Drawing.Color.LightGreen
      txtBox.text=“This is a textbox!“
      ViewState(“txtBoxControl“)=True
End Sub
這樣就會在點按鈕的時候動態加載一個TEXTBOX控件,但是這樣會有一個問題:就是在刷新葉面的時候這個TEXTBOX又會不見.這是因為動態加載的控件不會在葉面上自動保存他的VIEWSTATE狀態,要想不出項這种問題,就必須在PAGE_LOAD()事件中實現,具体如下:
 Sub Page_load(Sender As object,e As Eventargs)
       '判斷ViewState中是否存在先前生成的控件的ViewState,存在則重新生成控件並自動加載它先前的ViewState狀態
       If ViewState(”txtBoxControl”) <> Nothing Then
          Dim txtBox As textbox=New textbox
          PlaceHolder1.Controls.Add(txtBox)
          txtBox.ID=”MytextBox”
       End If
End Sub 
動態加載用戶控件是一樣的方法(dim Mycontrol as control=page.loadcontrol(“header.ascx“)PlaceHolder1.Controls.Add(Mycontrol)
------------------------------------------------------------------------
第一次寫文章,有點亂,還望指正!