讓 SqlDataSource 的 SelectCommand 屬性值不會消失

承上一篇「SqlDataSource 執行資料篩選」中，可以知道 SqlDataSource 的 SelectCommand 屬性值不會被保留在 ViewState 中，所以我們在 Page 中覆寫 LoadViewState 及 SaveViewState 方法來維護 SqlDataSource 的 SelectCommand 屬性值。
不過這樣每次動態設定 SelectCommand 屬性值都要這樣處理，感覺上會比較麻煩點；是否能讓 SqlDataSource 控制項的 SelectCommand 屬性值可以由控制項本身自我維護狀態呢？當然可以，而且非常簡單，只要把上篇中覆寫 LoadViewState 及 SaveViewState 方法的作法直接搬到自訂 SqlDataSource 控制項即可。
繼承 SqlDataSource 命名為 TBSqlDataSource，覆寫 LoadViewState 及 SaveViewState 方法來維護 SelectCommand 屬性，這樣就可以更方便使用 SelectCommand 屬性，而無需由每個頁面去自行處理。

Namespace WebControlsNamespace WebControls
    Public Class TBSqlDataSourceClass TBSqlDataSource
        Inherits SqlDataSource

ViewState 狀態管理#Region " ViewState 狀態管理　"

        /**/''' <summary>
        ''' 由 ViewState 還原控制項的狀態。
        ''' </summary>
        ''' <param name="savedState">要還原的控制項狀態。</param>
        Protected Overrides Sub LoadViewState()Sub LoadViewState(ByVal savedState As Object)
            If Not (savedState Is Nothing) Then
                ' Load State from the array of objects that was saved at ;
                ' SavedViewState.
                Dim myState As Object() = CType(savedState, Object())

                If Not (myState(0) Is Nothing) Then
                    MyBase.LoadViewState(myState(0))
                End If

                If Not (myState(1) Is Nothing) Then
                    Me.SelectCommand = CType(myState(1), String)
                End If
            End If
        End Sub

        /**/''' <summary>
        ''' 控制項的狀態儲存至 ViewState。
        ''' </summary>
        ''' <returns>含有控制項之目前檢視狀態的對象。</returns>
        Protected Overrides Function SaveViewState()Function SaveViewState() As Object
            Dim baseState As Object = MyBase.SaveViewState()
            Dim myState(1) As Object
            myState(0) = baseState
            myState(1) = Me.SelectCommand
            Return myState
        End Function

#End Region

    End Class
End Namespace