Posted on
2008-06-09 13:47Ext.Net
阅读(449)
评论(0)
编辑收藏举报
Sub AutoCreatePropertysControls()Sub AutoCreatePropertysControls(ByVal obj AsObject) Dim p As PropertyInfo() = obj.GetType.GetProperties() ForEach pi In p Dim lt AsNew Literal lt.Text ="<li>" ph.Controls.Add(lt) Dim pty AsString= pi.PropertyType.ToString Dim lb As Label =New Label lb.Text = pi.Name ph.Controls.Add(lb) lb.Dispose() If (pi.PropertyType IsGetType(Boolean)) Then Dim cb AsNew 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() EndIf Dim lt2 AsNew Literal lt2.Text ="</li>" Next End Sub