Ext.Net

Self-employed.
posts - 12, comments - 0, trackbacks - 0, articles - 0

.net 反射 实例

Posted on 2008-06-09 13:47 Ext.Net 阅读(89) 评论(0)  编辑 收藏 网摘 所属分类: vb.net

 

 Sub AutoCreatePropertysControls(ByVal obj As Object)
            Dim p As PropertyInfo() = obj.GetType.GetProperties()


            For Each pi In p
                Dim lt As New Literal
                lt.Text = "<li>"
                ph.Controls.Add(lt)

                Dim pty As String = pi.PropertyType.ToString
                Dim lb As Label = New Label
                lb.Text = pi.Name
                ph.Controls.Add(lb)
                lb.Dispose()
                If (pi.PropertyType Is GetType(Boolean)) Then
                    Dim cb As New CheckBox
                    cb.ID = "tb_" & pi.Name
                    cb.Checked = pi.GetValue(obj, Nothing)

                    ph.Controls.Add(cb)
                    cb.Dispose()
                Else
                    Dim tb As TextBox = New TextBox
                    tb.ID = "tb_" & pi.Name
                    tb.Text = pi.GetValue(obj, Nothing)

                    ph.Controls.Add(tb)
                    tb.Dispose()
                End If
               

                Dim lt2 As New Literal
                lt2.Text = "</li>"


            Next
        End Sub


Tag标签: 反射

标题  
姓名  
主页
Email (博主才能看到) 
验证码 *  看不清,换一张 [登录][注册]
内容(请不要发表任何与政治相关的内容)  
网站首页

新闻频道

社区

小组

博问

网摘

人才

找找看
  登录  使用高级评论  新用户注册  返回页首  恢复上次提交      
该文被作者在 2008-07-04 19:17 编辑过
Google站内搜索
[推荐职位]上海盛大网络招聘架构师



China-pub 计算机图书网上专卖店！6.5万品种 2-8折！
近千种 9-95 新二手计算图书火热销售中！
开发者征途系统新作：《设计模式——基于C#的工程化实现及扩展》

相关文章:


相关搜索:
反射

相关链接:

最新IT新闻:
一个美国人在上海
未来应用Web化 Windows应用将逐渐淡出
Windows 7 Beta 1 可以下载了
MySpace推出应用小工具 电视也可访问社交网络
Borland前CEO出任VMware首席运营官