摘要：

    web設計中，有很多場合，頁面的控制元件要動態建立甚至只能動態建立，這樣可以增加頁面的靈活性，但是給程式設計師帶來了一些麻煩，比如要使用動態建立的控制元件，怎麼使用，都是要求解決的問題，本文基於asp.net，簡要介紹了頁面的控制元件如何動態建立，同時也介紹了怎麼使用這些動態建立的控制元件的方法。

前言：

    自從Microsoft在2000年推出了.net framework以來，給基於internet程式設計的程式設計師帶來了巨大的福音，.net framework大大簡化了web頁面設計的繁雜，可見即可得的頁面效果大大簡化了頁面設計程式設計師的工作任務，code behind

1.Microsoft控制元件

    目前用於瀏覽器的動態資料瀏覽方式主要有以下兩種，（1）.使用java applet。(2).使用可以在瀏覽器中運用的控制元件。兩種方法各有利弊，使用

    一般的，在web設計中，通常使用拖拽的方式，將空間放置到頁面，然後設定屬性就可以了，然後再後臺程式中程式設計使用就可以了。這種方式操作起來很方便，可見即可得，同時引用這些放置好的控制元件也很方便，但是在有些情況下，我們卻不得不要動態建立控制元件，比如對一一個數據庫中的某一些欄位，對於不同身份的使用者，見到的欄位數目是不一樣的；還有就是對於不同身份的使用者對於某一控制元件的使能狀態是不一樣的，我們不能再頁面設計時採用一個標準，最好的方式就是動態建立控制元件，對於不同的情況，通過程式來控制，放置在頁面上的控制元件的數目也通過程式來控制。然後通過程式來引用這些建立好的控制元件。

2.建立控制元件

    對於程式設計師來說，用例子說話是最好的方式來提供解決方案，我將在頁面上動態的放置一些標籤（label）和文字框（textbox）,這些文字框裡頭放置的是從dataset取到的資料，同時我把這些文字框放置到一個表格的相應單元格里，可以實現有序的放置，首先在頁面新增一個table。然後根據需要建立不同的列數和行數，如下為動態建立這些文字框的程式碼：

Dim i As Integer<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" />

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下除錯通過。同時也給出了web設計的一個方法，和我聯絡，歡迎批評指正。