1    /**/''' <summary>
 2    ''' 控件状态列举。
 3    ''' </summary>
 4    Public Enum EControlStatusEnum EControlStatus
 5        /**/''' <summary>
 6        ''' 不设定。
 7        ''' </summary>
 8        NotSet = 0
 9        /**/''' <summary>
10        ''' 启用。
11        ''' </summary>
12        Enable = 1
13        /**/''' <summary>
14        ''' 不启用。
15        ''' </summary>
16        Disable = 2
17    End Enum
18
19    /**/''' <summary>
20    ''' 依 FormViewMode 来设定控件状态。
21    ''' </summary>
22    < _
23    Serializable(), _
24    TypeConverter(GetType(ExpandableObjectConverter)) _
25    > _
26    Public Class TBFormViewModeStatusClass TBFormViewModeStatus
27        Private FInsertMode As EControlStatus = EControlStatus.NotSet
28        Private FEditMode As EControlStatus = EControlStatus.NotSet
29        Private FBrowseMode As EControlStatus = EControlStatus.NotSet
30
31        /**/''' <summary>
32        ''' 在新增模式(FormViewMode=Insert)的控件状态。
33        ''' </summary>
34        < _
35        NotifyParentProperty(True), _
36        DefaultValue(GetType(EControlStatus), "NotSet") _
37        > _
38        Public Property InsertMode()Property InsertMode() As EControlStatus
39            Get
40                Return FInsertMode
41            End Get
42            Set(ByVal value As EControlStatus)
43                FInsertMode = value
44            End Set
45        End Property
46
47        /**/''' <summary>
48        ''' 在编辑模式(FormViewMode=Edit)的控件状态。
49        ''' </summary>
50        < _
51        NotifyParentProperty(True), _
52        DefaultValue(GetType(EControlStatus), "NotSet") _
53        > _
54        Public Property EditMode()Property EditMode() As EControlStatus
55            Get
56                Return FEditMode
57            End Get
58            Set(ByVal value As EControlStatus)
59                FEditMode = value
60            End Set
61        End Property
62
63        /**/''' <summary>
64        ''' 在浏览模式(FormViewMode=ReadOnly)的控件状态。
65        ''' </summary>
66        < _
67        NotifyParentProperty(True), _
68        DefaultValue(GetType(EControlStatus), "NotSet") _
69        > _
70        Public Property BrowseMode()Property BrowseMode() As EControlStatus
71            Get
72                Return FBrowseMode
73            End Get
74            Set(ByVal value As EControlStatus)
75                FBrowseMode = value
76            End Set
77        End Property
78    End Class

 1Imports System
 2Imports System.ComponentModel
 3Imports System.Drawing
 4Imports System.Web
 5Imports System.Web.UI
 6Imports System.Web.UI.WebControls
 7Imports System.Security.Permissions
 8
 9Namespace WebControlsNamespace WebControls
10    < _
11    Description("文字框控件"), _
12    ToolboxData("<{0}:TBTextBox runat=server></{0}:TBTextBox>") _
13    > _
14    Public Class TBTextBoxClass TBTextBox
15        Inherits TextBox
16        Private FFormViewModeStatus As TBFormViewModeStatus
17
18        /**/''' <summary>
19        ''' 依 FormViewMode 来设定控件状态。
20        ''' </summary>
21        ''' <value></value>
22        ''' <returns></returns>
23        ''' <remarks></remarks>
24        < _
25        Description("依 FormViewMode 来设定控件状态"), _
26        NotifyParentProperty(True), _
27        DesignerSerializationVisibility(DesignerSerializationVisibility.Content), _
28        PersistenceMode(PersistenceMode.InnerProperty), _
29        DefaultValue("") _
30        > _
31        Public ReadOnly Property FormViewModeStatus()Property FormViewModeStatus() As TBFormViewModeStatus
32            Get
33                If FFormViewModeStatus Is Nothing Then
34                    FFormViewModeStatus = New TBFormViewModeStatus
35                End If
36                Return FFormViewModeStatus
37            End Get
38        End Property
39
40        /**/''' <summary>
41        ''' 处理控件状态。
42        ''' </summary>
43        ''' <param name="ControlStatus">控件状态。</param>
44        Private Sub DoControlStatus()Sub DoControlStatus(ByVal ControlStatus As EControlStatus)
45            Select Case ControlStatus
46                Case EControlStatus.Enable
47                    Me.Enabled = True
48                Case EControlStatus.Disable
49                    Me.Enabled = False
50            End Select
51        End Sub
52
53        /**/''' <summary>
54        ''' 依 FormView 的模式来处理控件状态。
55        ''' </summary>
56        Private Sub DoFormViewModeStatus()Sub DoFormViewModeStatus()
57            Dim oFormView As FormView
58
59            '若控件置于 FormView 中，则依 FormView 的模式来处理控件状态
60            If TypeOf Me.BindingContainer Is FormView Then
61                oFormView = DirectCast(Me.BindingContainer, FormView)
62                Select Case oFormView.CurrentMode
63                    Case FormViewMode.Insert
64                        DoControlStatus(Me.FormViewModeStatus.InsertMode)
65                    Case FormViewMode.Edit
66                        DoControlStatus(Me.FormViewModeStatus.EditMode)
67                    Case FormViewMode.ReadOnly
68                        DoControlStatus(Me.FormViewModeStatus.BrowseMode)
69                End Select
70            End If
71        End Sub
72
73        /**/''' <summary>
74        ''' 覆写。引发 PreRender 事件。
75        ''' </summary>
76        Protected Overrides Sub OnPreRender()Sub OnPreRender(ByVal e As EventArgs)
77            MyBase.OnPreRender(e)
78            '依 FormView 的模式来处理控件状态
79            DoFormViewModeStatus()
80        End Sub
81
82    End Class
83End Namespace

<bee:TBTextBox ID="txtEmployeeID" runat="server" Text='<%# Bind("EmployeeID") %>'>
    <FormViewModeStatus InsertMode="Enable" EditMode="Disable" />
</bee:TBTextBox>