|
摘要：
web设计中，有很多场合，页面的控件要动态创建甚至只能动态创建，这样可以增加页面的灵活性，但是给程序员带来了一些麻烦，比如要使用动态创建的控件，怎么使用，都是要求解决的问题，本文基于asp.net，简要介绍了页面的控件如何动态创建，同时也介绍了怎么使用这些动态创建的控件的方法。
前言：
自从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
[1] [2] 下一页
[C语言系列]NET 中C#的switch语句的语法 [聊天工具]Gmail推出新功能：Web Clip__天极Yesky
[聊天工具]Web MSN你玩了吗__天极Yesky [系统软件]托拽Explore中的文件到VB.net的窗口
[系统软件]Web Browser Express 概述 [系统软件]对Internet Explorer Web 控件做一点修改
[系统软件]Boost库在XP+Visual C++.net中的安装 [常用软件]小技巧：三步实现Web迅雷录制PPLive节目
[常用软件]新配色面板：Paint.Net3.0RC1官方下载 [常用软件]天网防火墙：打开WEB和FTP服务
| 
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
