LzmTW.uSystem.uWindows.uForms + uBindingNavigator

Author：水如烟  

Imports System.ComponentModel

Namespace LzmTW.uSystem.uWindows.uForms

    <System.Drawing.ToolboxBitmap(GetType(BindingNavigator))> _
    Public Class uBindingNavigator
      
        Private WithEvents gSourceManager As New TablesManager
        Private WithEvents gComboBox As ComboBox

        <Browsable(False)> _
        Public ReadOnly Property SourceManager() As TablesManager
            Get
                Return gSourceManager
            End Get
        End Property

        Private Sub gSourceManager_CollectionChanged() Handles gSourceManager.CollectionChanged
            Me.gTableNamesItem.ComboBox.DataSource = gSourceManager.Keys
        End Sub

        Private Sub UpdateToolStripItemEnabled(ByVal currentIsNotNothing As Boolean)
            Me.gUpdateItem.Enabled = currentIsNotNothing
            Me.gRefleshItem.Enabled = currentIsNotNothing

            If currentIsNotNothing Then
                Me.gUpdateItem.Enabled = Me.gSourceManager.Current.DataAdapter IsNot Nothing
                Me.gRefleshItem.Enabled = Me.gSourceManager.Current.DataAdapter IsNot Nothing
            End If

        End Sub

        Private Sub gSourceManager_CurrentChanged(ByVal send As Object, ByVal e As String) Handles gSourceManager.CurrentChanged
            Me.gBindingSource.DataSource = Nothing

            Dim mCurrentIsNotNothing As Boolean = Not String.IsNullOrEmpty(e)

            If mCurrentIsNotNothing Then
                UpdateToolStripItemEnabled(mCurrentIsNotNothing)
                Me.gBindingSource.DataSource = gSourceManager.Current.Table
            End If

            UpdateDataGridViewDataSource()
        End Sub

        Private Sub UpdateDataGridViewDataSource()
            If Me.DataGridview IsNot Nothing Then
                Me.DataGridview.DataSource = Nothing
                Me.DataGridview.DataSource = Me.BindingSource
            End If
        End Sub

        Private Sub gComboBox_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles gComboBox.SelectedIndexChanged
            Me.gSourceManager.Select(Me.gTableNamesItem.Text)
        End Sub

        Public Class TablesManager

            Public Event CurrentChanged(ByVal send As Object, ByVal e As String)
            Public Event CollectionChanged()

            Private gInformations As New System.Collections.Generic.Dictionary(Of String, TableInformation)
            Private gCurrent As TableInformation

            Public ReadOnly Property Keys() As String()
                Get
                    Dim mKeys(gInformations.Count - 1) As String
                    gInformations.Keys.CopyTo(mKeys, 0)
                    Return mKeys
                End Get
            End Property

            Public ReadOnly Property Count() As Integer
                Get
                    Return gInformations.Count
                End Get
            End Property

            Public ReadOnly Property Current() As TableInformation
                Get
                    Return gCurrent
                End Get
            End Property

            Public Sub [Select](ByVal keyName As String)
                If gCurrent IsNot Nothing Then
                    If gCurrent.KeyName = keyName Then
                        Exit Sub
                    End If
                End If

                If Not gInformations.ContainsKey(keyName) Then
                    Exit Sub
                End If

                gCurrent = gInformations(keyName)
                RaiseEvent CurrentChanged(Nothing, keyName)
            End Sub

            Public Sub Clear()
                gInformations.Clear()
                RaiseEvent CollectionChanged()

                If gCurrent IsNot Nothing Then
                    gCurrent = Nothing
                    RaiseEvent CurrentChanged(Nothing, Nothing)
                End If
            End Sub

            Public Sub Add(ByVal item As TableInformation)
                If gInformations.ContainsKey(item.KeyName) Then
                    Exit Sub
                    ' Throw New Exception("此键值已存在")
                End If

                gInformations.Add(item.KeyName, item)
                RaiseEvent CollectionChanged()
            End Sub

            Public Sub Remove(ByVal keyName As String)
                If Not gInformations.ContainsKey(keyName) Then
                    Exit Sub
                End If

                gInformations.Remove(keyName)
                RaiseEvent CollectionChanged()

                If gCurrent Is Nothing Then Exit Sub

                If gCurrent.KeyName = keyName Then
                    gCurrent = Nothing

                    If gInformations.Count > 0 Then
                        Me.Select(Me.Keys(0))
                    Else
                        RaiseEvent CurrentChanged(Nothing, Nothing)
                    End If
                End If

            End Sub
        End Class

        Public Class TableInformation

            Private Shared gIndex As Integer = 1

            Private gKeyName As String
            Private gDataAdapter As Data.Common.DbDataAdapter
            Private gTable As DataTable

            Sub New()
                gTable = New DataTable(String.Format("Table{0}", gIndex))
                gIndex += 1
            End Sub

            Sub New(ByVal tableName As String)
                gKeyName = tableName
                gTable = New DataTable(tableName)
            End Sub

            Sub New(ByVal tableName As String, ByVal keyName As String)
                gKeyName = keyName
                gTable = New DataTable(tableName)
            End Sub

            Sub New(ByVal table As DataTable, ByVal keyName As String)
                gTable = table
                gKeyName = keyName
            End Sub

            Public Property KeyName() As String
                Get
                    Return gKeyName
                End Get
                Set(ByVal value As String)
                    gKeyName = value
                End Set
            End Property

            Public Property DataAdapter() As Data.Common.DbDataAdapter
                Get
                    Return gDataAdapter
                End Get
                Set(ByVal value As Data.Common.DbDataAdapter)
                    gDataAdapter = value
                End Set
            End Property

            Public ReadOnly Property Table() As DataTable
                Get
                    Return gTable
                End Get
            End Property

            Public Function Fill() As Integer
                gTable.Clear()
                Return Me.gDataAdapter.Fill(gTable)
            End Function

            Public Function Update() As Integer
                Dim mCount As Integer = Me.gDataAdapter.Update(gTable)
                gTable.AcceptChanges()
                Return mCount
            End Function
        End Class

    End Class

End Namespace

 

Namespace LzmTW.uSystem.uWindows.uForms
    <System.ComponentModel.Designer(GetType(System.Windows.Forms.Design.ControlDesigner))> _
    Partial Class uBindingNavigator
        Inherits BindingNavigator

        <System.Diagnostics.DebuggerNonUserCode()> _
        Public Sub New(ByVal Container As System.ComponentModel.IContainer)
            MyClass.New()

            'Windows.Forms 类撰写设计器支持所必需的
            Container.Add(Me)

        End Sub

        <System.Diagnostics.DebuggerNonUserCode()> _
        Public Sub New()
            MyBase.New(False)

            '组件设计器需要此调用。

            InitializeComponent()

            AddStandardItems()
            gComboBox = Me.gTableNamesItem.ComboBox

        End Sub

        Public Overrides Sub AddStandardItems()
            Me.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.gFirstItem, Me.gMovePreviousItem, Me.s_MovePreviousItem, Me.gPositionItem, Me.gCountItem, Me.s_CountItem, Me.gMoveNextItem, Me.gMoveLastItem, Me.s_MoveLastItem, Me.gAddNewItem, Me.gDeleteItem, Me.gCancelItem, Me.gCancelAllItem, Me.s_CancelAllItem, Me.gUpdateItem, Me.s_UpdateItem, Me.gRefleshItem, Me.s_RefleshItem, Me.gTableNamesItem, Me.gGridItem, Me.gExportItem})

            Me.AddNewItem = Me.gAddNewItem
            Me.CountItem = Me.gCountItem
            Me.DeleteItem = Me.gDeleteItem
            Me.MoveFirstItem = Me.gFirstItem
            Me.MoveLastItem = Me.gMoveLastItem
            Me.MoveNextItem = Me.gMoveNextItem
            Me.MovePreviousItem = Me.gMovePreviousItem
            Me.PositionItem = Me.gPositionItem

        End Sub


        'Component 重写 Dispose，以清理组件列表。
        <System.Diagnostics.DebuggerNonUserCode()> _
        Protected Overrides Sub Dispose(ByVal disposing As Boolean)
            If disposing AndAlso components IsNot Nothing Then
                components.Dispose()
            End If
            MyBase.Dispose(disposing)
        End Sub

        '组件设计器所必需的
        Private components As System.ComponentModel.IContainer

        '注意: 以下过程是组件设计器所必需的
        '可使用组件设计器修改它。
        '不要使用代码编辑器修改它。
        <System.Diagnostics.DebuggerStepThrough()> _
        Private Sub InitializeComponent()
            Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(uBindingNavigator))
            Me.gBindingSource = New BindingSource
            Me.gAddNewItem = New System.Windows.Forms.ToolStripButton
            Me.gCountItem = New System.Windows.Forms.ToolStripLabel
            Me.gDeleteItem = New System.Windows.Forms.ToolStripButton
            Me.gFirstItem = New System.Windows.Forms.ToolStripButton
            Me.gMovePreviousItem = New System.Windows.Forms.ToolStripButton
            Me.s_MovePreviousItem = New System.Windows.Forms.ToolStripSeparator
            Me.gPositionItem = New System.Windows.Forms.ToolStripTextBox
            Me.s_CountItem = New System.Windows.Forms.ToolStripSeparator
            Me.gMoveNextItem = New System.Windows.Forms.ToolStripButton
            Me.gMoveLastItem = New System.Windows.Forms.ToolStripButton
            Me.s_MoveLastItem = New System.Windows.Forms.ToolStripSeparator
            Me.gCancelItem = New System.Windows.Forms.ToolStripButton
            Me.s_CancelAllItem = New System.Windows.Forms.ToolStripSeparator
            Me.gUpdateItem = New System.Windows.Forms.ToolStripButton
            Me.s_UpdateItem = New System.Windows.Forms.ToolStripSeparator
            Me.gRefleshItem = New System.Windows.Forms.ToolStripButton
            Me.s_RefleshItem = New System.Windows.Forms.ToolStripSeparator
            Me.gTableNamesItem = New System.Windows.Forms.ToolStripComboBox
            Me.gCancelAllItem = New System.Windows.Forms.ToolStripButton
            Me.gGridItem = New System.Windows.Forms.ToolStripButton
            Me.gExportItem = New System.Windows.Forms.ToolStripButton

            CType(Me.gBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
            CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()

            Me.SuspendLayout()
            '
            'gAddNewItem
            '
            Me.gAddNewItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
            Me.gAddNewItem.Image = LzmTW.ResourceBitmap.GetMagenta(GetType(BindingNavigator), "BindingNavigator.AddNew.bmp")
            Me.gAddNewItem.Name = "gAddNewItem"
            Me.gAddNewItem.RightToLeftAutoMirrorImage = True
            Me.gAddNewItem.Size = New System.Drawing.Size(23, 20)
            Me.gAddNewItem.Text = "新添"
            '
            'gCountItem
            '
            Me.gCountItem.Name = "gCountItem"
            Me.gCountItem.Size = New System.Drawing.Size(53, 12)
            Me.gCountItem.Text = "共 {0,4}项"
            Me.gCountItem.ToolTipText = "总项数"
            '
            'gDeleteItem
            '
            Me.gDeleteItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
            Me.gDeleteItem.Image = LzmTW.ResourceBitmap.GetMagenta(GetType(BindingNavigator), "BindingNavigator.Delete.bmp")
            Me.gDeleteItem.Name = "gDeleteItem"
            Me.gDeleteItem.RightToLeftAutoMirrorImage = True
            Me.gDeleteItem.Size = New System.Drawing.Size(23, 20)
            Me.gDeleteItem.Text = "删除"
            '
            'gFirstItem
            '
            Me.gFirstItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
            Me.gFirstItem.Image = LzmTW.ResourceBitmap.GetMagenta(GetType(BindingNavigator), "BindingNavigator.MoveFirst.bmp")
            Me.gFirstItem.Name = "gFirstItem"
            Me.gFirstItem.RightToLeftAutoMirrorImage = True
            Me.gFirstItem.Size = New System.Drawing.Size(23, 22)
            Me.gFirstItem.Text = "移到第一条记录"
            '
            'gMovePreviousItem
            '
            Me.gMovePreviousItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
            Me.gMovePreviousItem.Image = LzmTW.ResourceBitmap.GetMagenta(GetType(BindingNavigator), "BindingNavigator.MovePrevious.bmp")
            Me.gMovePreviousItem.Name = "gMovePreviousItem"
            Me.gMovePreviousItem.RightToLeftAutoMirrorImage = True
            Me.gMovePreviousItem.Size = New System.Drawing.Size(23, 22)
            Me.gMovePreviousItem.Text = "移到上一条记录"
            '
            's_MovePreviousItem
            '
            Me.s_MovePreviousItem.Name = "s_MovePreviousItem"
            Me.s_MovePreviousItem.Size = New System.Drawing.Size(6, 25)
            '
            'gPositionItem
            '
            Me.gPositionItem.AccessibleName = "位置"
            Me.gPositionItem.AutoSize = False
            Me.gPositionItem.Name = "gPositionItem"
            Me.gPositionItem.Size = New System.Drawing.Size(50, 21)
            Me.gPositionItem.Text = "0"
            Me.gPositionItem.ToolTipText = "当前位置"
            '
            's_CountItem
            '
            Me.s_CountItem.Name = "s_CountItem"
            Me.s_CountItem.Size = New System.Drawing.Size(6, 25)
            '
            'gMoveNextItem
            '
            Me.gMoveNextItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
            Me.gMoveNextItem.Image = LzmTW.ResourceBitmap.GetMagenta(GetType(BindingNavigator), "BindingNavigator.MoveNext.bmp")
            Me.gMoveNextItem.Name = "gMoveNextItem"
            Me.gMoveNextItem.RightToLeftAutoMirrorImage = True
            Me.gMoveNextItem.Size = New System.Drawing.Size(23, 20)
            Me.gMoveNextItem.Text = "移到下一条记录"
            '
            'gMoveLastItem
            '
            Me.gMoveLastItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
            Me.gMoveLastItem.Image = LzmTW.ResourceBitmap.GetMagenta(GetType(BindingNavigator), "BindingNavigator.MoveLast.bmp")
            Me.gMoveLastItem.Name = "gMoveLastItem"
            Me.gMoveLastItem.RightToLeftAutoMirrorImage = True
            Me.gMoveLastItem.Size = New System.Drawing.Size(23, 20)
            Me.gMoveLastItem.Text = "移到最后一条记录"
            '
            's_MoveLastItem
            '
            Me.s_MoveLastItem.Name = "s_MoveLastItem"
            Me.s_MoveLastItem.Size = New System.Drawing.Size(6, 25)
            '
            'gCancelItem
            '
            Me.gCancelItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
            Me.gCancelItem.Image = CType(SR.GetObject("CancelItem"), Image)
            Me.gCancelItem.Name = "gCancelItem"
            Me.gCancelItem.Size = New System.Drawing.Size(23, 20)
            Me.gCancelItem.Text = "放弃当前记录编辑"
            '
            's_CancelAllItem
            '
            Me.s_CancelAllItem.Name = "s_CancelAllItem"
            Me.s_CancelAllItem.Size = New System.Drawing.Size(6, 25)
            '
            'gUpdateItem
            '
            Me.gUpdateItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
            Me.gUpdateItem.Image = LzmTW.ResourceBitmap.GetMagenta(GetType(ToolStripMenuItem), "SaveFileDialog.bmp")
            Me.gUpdateItem.Name = "gUpdateItem"
            Me.gUpdateItem.Size = New System.Drawing.Size(23, 20)
            Me.gUpdateItem.Text = "更新"
            Me.gUpdateItem.ToolTipText = "更新至数据库"
            '
            's_UpdateItem
            '
            Me.s_UpdateItem.Name = "s_UpdateItem"
            Me.s_UpdateItem.Size = New System.Drawing.Size(6, 25)
            '
            'gRefleshItem
            '
            Me.gRefleshItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
            Me.gRefleshItem.Image = LzmTW.ResourceBitmap.GetMagenta(GetType(ToolStripMenuItem), "OpenFileDialog.bmp")
            Me.gRefleshItem.Name = "gRefleshItem"
            Me.gRefleshItem.Size = New System.Drawing.Size(23, 20)
            Me.gRefleshItem.Text = "重新加载"
            '
            's_RefleshItem
            '
            Me.s_RefleshItem.Name = "s_RefleshItem"
            Me.s_RefleshItem.Size = New System.Drawing.Size(6, 25)
            '
            'gTableNamesItem
            '
            Me.gTableNamesItem.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
            Me.gTableNamesItem.Name = "gTableNamesItem"
            Me.gTableNamesItem.Size = New System.Drawing.Size(121, 20)
            '
            'gCancelAllItem
            '
            Me.gCancelAllItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
            Me.gCancelAllItem.Image = CType(SR.GetObject("CancelAllItem"), Image)
            Me.gCancelAllItem.Name = "gCancelAllItem"
            Me.gCancelAllItem.Size = New System.Drawing.Size(23, 20)
            Me.gCancelAllItem.Text = "放弃所有编辑"
            '
            'gGridItem
            '
            Me.gGridItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
            Me.gGridItem.Image = LzmTW.ResourceBitmap.GetMagenta(GetType(DataGridView), "DataGridView.bmp")
            Me.gGridItem.Name = "gGridItem"
            Me.gGridItem.Size = New System.Drawing.Size(23, 20)
            Me.gGridItem.Text = "网格属性"
            '
            'gExportItem
            '
            Me.gExportItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
            Me.gExportItem.Image = LzmTW.ResourceBitmap.GetMagenta(GetType(ToolStripMenuItem), "print.bmp")
            Me.gExportItem.Name = "gExportItem"
            Me.gExportItem.Size = New System.Drawing.Size(23, 20)
            Me.gExportItem.Text = "输出"
            '

            '
            'uBindingNavigator
            '

            Me.AllowMerge = False
            Me.CountItemFormat = "共 {0}项"
            Me.Stretch = True
            Me.GripStyle = System.Windows.Forms.ToolStripGripStyle.Hidden
            MyBase.BindingSource = Me.gBindingSource

            CType(Me.gBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
            CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
            Me.ResumeLayout(False)

        End Sub
        Private WithEvents gCancelItem As System.Windows.Forms.ToolStripButton
        Private WithEvents s_CancelAllItem As System.Windows.Forms.ToolStripSeparator
        Private WithEvents gUpdateItem As System.Windows.Forms.ToolStripButton
        Private WithEvents gRefleshItem As System.Windows.Forms.ToolStripButton
        Private WithEvents s_RefleshItem As System.Windows.Forms.ToolStripSeparator
        Private WithEvents gTableNamesItem As System.Windows.Forms.ToolStripComboBox
        Private WithEvents s_UpdateItem As System.Windows.Forms.ToolStripSeparator
        Private WithEvents gAddNewItem As System.Windows.Forms.ToolStripButton
        Private WithEvents gCountItem As System.Windows.Forms.ToolStripLabel
        Private WithEvents gDeleteItem As System.Windows.Forms.ToolStripButton
        Private WithEvents s_CountItem As System.Windows.Forms.ToolStripSeparator
        Private WithEvents gMoveNextItem As System.Windows.Forms.ToolStripButton
        Private WithEvents gMoveLastItem As System.Windows.Forms.ToolStripButton
        Private WithEvents s_MoveLastItem As System.Windows.Forms.ToolStripSeparator
        Private WithEvents gFirstItem As System.Windows.Forms.ToolStripButton
        Private WithEvents gMovePreviousItem As System.Windows.Forms.ToolStripButton
        Private WithEvents s_MovePreviousItem As System.Windows.Forms.ToolStripSeparator
        Private WithEvents gPositionItem As System.Windows.Forms.ToolStripTextBox
        Private WithEvents gCancelAllItem As System.Windows.Forms.ToolStripButton
        Private WithEvents gGridItem As System.Windows.Forms.ToolStripButton
        Private WithEvents gExportItem As System.Windows.Forms.ToolStripButton

        Private WithEvents gDataGridView As DataGridView
        Private WithEvents gBindingSource As BindingSource

    End Class

End Namespace

 

 

Namespace LzmTW.uSystem.uWindows.uForms
    Partial Class uBindingNavigator

        Private Sub gGridItem_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles gGridItem.Click
            If Me.gDataGridView Is Nothing Then Exit Sub
            Dim f As New GridPropertyForm
            f.Show(Me.gDataGridView)
        End Sub

        Private Sub gUpdateItem_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles gUpdateItem.Click
            Me.gSourceManager.Current.Update()
        End Sub

        Private Sub gRefleshItem_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles gRefleshItem.Click
            Me.gSourceManager.Current.Fill()
        End Sub

        Private Sub gCancelAllItem_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles gCancelAllItem.Click
            CType(Me.BindingSource.DataSource, DataTable).RejectChanges()
        End Sub

        Private Sub gCancelItem_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles gCancelItem.Click
            Dim mRow As DataRow = CType(Me.BindingSource.Current, DataRowView).Row
            mRow.RejectChanges()

        End Sub
    End Class
End Namespace

 

Imports System.ComponentModel

Namespace LzmTW.uSystem.uWindows.uForms
    Partial Class uBindingNavigator
        <Browsable(False)> _
              Public Overloads ReadOnly Property BindingSource() As BindingSource
            Get
                Return MyBase.BindingSource
            End Get
        End Property

        <Browsable(False)> _
        Public Overloads ReadOnly Property Items() As ToolStripItemCollection
            Get
                Return MyBase.Items
            End Get
        End Property

        <Browsable(False)> _
        Public Overloads Property AddNewItem() As ToolStripItem
            Get
                Return MyBase.AddNewItem
            End Get
            Protected Set(ByVal value As ToolStripItem)
                MyBase.AddNewItem = value
            End Set
        End Property


        <Browsable(False)> _
        Public Overloads Property DeleteItem() As ToolStripItem
            Get
                Return MyBase.DeleteItem
            End Get
            Protected Set(ByVal value As ToolStripItem)
                MyBase.DeleteItem = value
            End Set
        End Property

        <Browsable(False)> _
        Public Overloads Property CountItem() As ToolStripItem
            Get
                Return MyBase.CountItem
            End Get
            Protected Set(ByVal value As ToolStripItem)
                MyBase.CountItem = value
            End Set
        End Property

        <Browsable(False)> _
        Public Overloads Property PositionItem() As ToolStripItem
            Get
                Return MyBase.PositionItem
            End Get
            Protected Set(ByVal value As ToolStripItem)
                MyBase.PositionItem = value
            End Set
        End Property

        <Browsable(False)> _
        Public Overloads Property MoveFirstItem() As ToolStripItem
            Get
                Return MyBase.MoveFirstItem
            End Get
            Protected Set(ByVal value As ToolStripItem)
                MyBase.MoveFirstItem = value
            End Set
        End Property

        <Browsable(False)> _
        Public Overloads Property MoveLastItem() As ToolStripItem
            Get
                Return MyBase.MoveLastItem
            End Get
            Protected Set(ByVal value As ToolStripItem)
                MyBase.MoveLastItem = value
            End Set
        End Property

        <Browsable(False)> _
        Public Overloads Property MoveNextItem() As ToolStripItem
            Get
                Return MyBase.MoveNextItem
            End Get
            Protected Set(ByVal value As ToolStripItem)
                MyBase.MoveNextItem = value
            End Set
        End Property

        <Browsable(False)> _
        Public Overloads Property MovePreviousItem() As ToolStripItem
            Get
                Return MyBase.MovePreviousItem
            End Get
            Protected Set(ByVal value As ToolStripItem)
                MyBase.MovePreviousItem = value
            End Set
        End Property

        <System.ComponentModel.DesignerSerializationVisibility(System.ComponentModel.DesignerSerializationVisibility.Visible)> _
        Public Property DataGridview() As DataGridView
            Get
                Return Me.gDataGridView
            End Get
            Set(ByVal value As DataGridView)
                Me.gDataGridView = value
            End Set
        End Property
    End Class
End Namespace