操作系统  办公  实用知识  设计  开发  WEB开发  移动开发  数据库  软件工程  网管  安全  管理  信息化  答疑  渠道 

基于ASP.NET的Web动态控件创建

2007-10-30 网友评论 0 条 点击进入论坛

  摘要: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

  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下调试通过。

已有 0 位对此文章感兴趣的网友发布了看法    
我来评两句 用户名: 密码:
  匿名发表
今日推荐
技术文库(共有 45972 篇文章)
操作系统
办公软件
实用知识
网络管理
软件开发
WEB开发
软件工程
数据库
设计在线
信息安全
行业信息化
管理信息化
移动开发
重点推荐
电子杂志订阅
点击电子杂志名称查看样刊
输入E-mail地址即可订阅
E-mail