前言：
自從Microsoft在2000年推出了.net framework以來，給基於internet編程的程序員帶來了巨大的福音，.net framework大大簡化了web頁面設計的繁雜，可見即可得的頁面效果大大簡化了頁面設計程序員的工作任務，code behind技術將頁面與代碼分離，減少了web頁面的無序狀態，其中大量可以復用的控件可以無縫的被浏覽器使用，由於互聯網上95%的浏覽器均是Microsoft的Internet Explorer，程序員大可以放心的使用這些控件而不用擔心浏覽器的兼容性，本文從Microsoft的.net和com控件開始，給出具體例子說明如何在頁面上動態創建控件，以及怎麼來使用這些動態創建的控件。其中具體使用的語言是vb.Net。
1. Microsoft控件
目前用於浏覽器的動態數據浏覽方式主要有以下兩種，（1）.使用java applet。(2).使用可以在浏覽器中運用的控件。兩種方法各有利弊，使用Java applet，頁面執行較慢，編程復雜，可復用性不大，這種方式現在使用較少；越來越多的程序員較傾向於使用控件。其中我們在web中大多數時候是使用到.Net 的web control和Html control以及一些數據操作控件。
一般的，在web設計中，通常使用拖拽的方式，將空間放置到頁面，然後設置屬性就可以了，然後再後台程序中編程使用就可以了。這種方式操作起來很方便，可見即可得，同時引用這些放置好的控件也很方便，但是在有些情況下，我們卻不得不要動態創建控件，比如對一一個數據庫中的某一些字段，對於不同身份的用戶，見到的字段數目是不一樣的；還有就是對於不同身份的用戶對於某一控件的使能狀態是不一樣的，我們不能再頁面設計時采用一個標准，最好的方式就是動態創建控件，對於不同的情況，通過程序來控制，放置在頁面上的控件的數目也通過程序來控制。然後通過程序來引用這些創建好的控件。
2. 創建控件
對於程序員來說，用例子說話是最好的方式來提供解決方案，我將在頁面上動態的放置一些標簽（label）和文本框（textbox）,這些文本框裡頭放置的是從dataset取到的數據，同時我把這些文本框放置到一個表格的相應單元格裡，可以實現有序的放置，首先在頁面添加一個table。然後根據需要創建不同的列數和行數，如下為動態創建這些文本框的代碼：
Dim i As Integer
For i = 0 To IntRowCount - 1
Dim r As TableRow = New TableRow()
Dim c1 As TableCell = New TableCell()
Dim myLabel1 As Label = New Label()
‘這裡設置該label的ID，對於不同的label,必須設置成不同的ID，我這裡設置成前綴lbl1加字段名的組合，例如lbl1xlmc等。
myLabel1.ID = "Lbl1" & Trim(OleDsField.Tables("FIEld").Rows(i).Item("column_name")).ToString()
‘下面的條件語句是為了判斷數據庫中在字段的值是否為空，根據條件賦予label不同的文本。
If OleDsField.Tables("FIEld").Rows(i).Item("column_title").GetType.ToString = "System.DBNull" Then
myLabel1.Text = ""
Else
myLabel1.Text = Trim(OleDsField.Tables("FIEld").Rows(i).Item("column_title"))
End If
c1.Controls.Add(myLabel1)
r.Cells.Add(c1)
Dim c2 As TableCell = New TableCell()
Dim mytextbox As TextBox = New TextBox()
mytextbox.ID = "Txt" & Trim(OleDsField.Tables("FIEld").Rows(i).Item("column_name")).ToString()
If OleDsResult.Tables("Result").Rows(0).Item(i).GetType.ToString = "System.DBNull" Then
mytextbox.Text = ""
Else
mytextbox.Text = Trim(OleDsResult.Tables("Result").Rows(0).Item(i))
End If
If Trim(OleDsField.Tables("FIEld").Rows(i).Item("column_enable")) = "是" Then
mytextbox.Enabled = True
Else
mytextbox.Enabled = False
End If
c2.Controls.Add(mytextbox)
r.Cells.Add(c2)
Table3.Rows.Add(r)
Next
這樣就成功地添加了兩列到表裡，至於行數由變量IntRowCount決定，其中IntRowCount為取數據庫時得到的記錄的行數
3. 使用動態創建的控件
使用這些控件時，首先必須要知道這些控件的ID，對於上文所說的這些控件，由於ID名稱不定，使用時必須也要根據條件來使用。比如我要找到相應的文本框的ID，就用以下代碼可以實現：
Dim txt As TextBox
txt = Me.FindControl("txt" & OleDsField.Tables("FIEld").Rows(i).Item("column_name"))
這樣就找到了要使用的文本框的這個控件，然後就可以使用相應功能。
4. 小結
使用動態創建控件時，難點在於怎麼來操作這些動態創建的控件。本文給出了代碼，本文例子在.Net 2002+Windows 2000下調試通過。
