frmcolumns.vb

数据网格数据Custom_Data_Grid_src_demo

Namespace CustomControls
    Friend Class frmColumns
        Inherits System.Windows.Forms.Form

#Region " Windows Form Designer generated code "

        Friend Sub New()
            MyBase.New()

            'This call is required by the Windows Form Designer.
            InitializeComponent()

            'Add any initialization after the InitializeComponent() call

        End Sub

        'Form overrides dispose to clean up the component list.
        Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
            If disposing Then
                If Not (components Is Nothing) Then
                    components.Dispose()
                End If
            End If
            MyBase.Dispose(disposing)
        End Sub

        'Required by the Windows Form Designer
        Private components As System.ComponentModel.IContainer

        'NOTE: The following procedure is required by the Windows Form Designer
        'It can be modified using the Windows Form Designer.  
        'Do not modify it using the code editor.
        Friend WithEvents lboxNSelected As System.Windows.Forms.ListBox
        Friend WithEvents lboxSelected As System.Windows.Forms.ListBox
        Friend WithEvents cmdSelect As System.Windows.Forms.Button
        Friend WithEvents cmdUnSelect As System.Windows.Forms.Button
        Friend WithEvents cmdSave As System.Windows.Forms.Button
        Friend WithEvents cmdCancel As System.Windows.Forms.Button
        Friend WithEvents cmdMoveUp As System.Windows.Forms.Button
        Friend WithEvents cmdMoveDown As System.Windows.Forms.Button
        <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
            Me.lboxNSelected = New System.Windows.Forms.ListBox()
            Me.lboxSelected = New System.Windows.Forms.ListBox()
            Me.cmdSelect = New System.Windows.Forms.Button()
            Me.cmdUnSelect = New System.Windows.Forms.Button()
            Me.cmdSave = New System.Windows.Forms.Button()
            Me.cmdCancel = New System.Windows.Forms.Button()
            Me.cmdMoveUp = New System.Windows.Forms.Button()
            Me.cmdMoveDown = New System.Windows.Forms.Button()
            Me.SuspendLayout()
            '
            'lboxNSelected
            '
            Me.lboxNSelected.Location = New System.Drawing.Point(8, 8)
            Me.lboxNSelected.Name = "lboxNSelected"
            Me.lboxNSelected.Size = New System.Drawing.Size(168, 160)
            Me.lboxNSelected.TabIndex = 7
            '
            'lboxSelected
            '
            Me.lboxSelected.Location = New System.Drawing.Point(280, 8)
            Me.lboxSelected.Name = "lboxSelected"
            Me.lboxSelected.Size = New System.Drawing.Size(176, 160)
            Me.lboxSelected.TabIndex = 6
            '
            'cmdSelect
            '
            Me.cmdSelect.FlatStyle = System.Windows.Forms.FlatStyle.Flat
            Me.cmdSelect.Location = New System.Drawing.Point(192, 16)
            Me.cmdSelect.Name = "cmdSelect"
            Me.cmdSelect.TabIndex = 2
            Me.cmdSelect.Text = "--->"
            '
            'cmdUnSelect
            '
            Me.cmdUnSelect.FlatStyle = System.Windows.Forms.FlatStyle.Flat
            Me.cmdUnSelect.Location = New System.Drawing.Point(192, 48)
            Me.cmdUnSelect.Name = "cmdUnSelect"
            Me.cmdUnSelect.TabIndex = 3
            Me.cmdUnSelect.Text = "<---"
            '
            'cmdSave
            '
            Me.cmdSave.DialogResult = System.Windows.Forms.DialogResult.OK
            Me.cmdSave.FlatStyle = System.Windows.Forms.FlatStyle.Flat
            Me.cmdSave.Location = New System.Drawing.Point(136, 176)
            Me.cmdSave.Name = "cmdSave"
            Me.cmdSave.TabIndex = 0
            Me.cmdSave.Text = "Save"
            '
            'cmdCancel
            '
            Me.cmdCancel.DialogResult = System.Windows.Forms.DialogResult.Cancel
            Me.cmdCancel.FlatStyle = System.Windows.Forms.FlatStyle.Flat
            Me.cmdCancel.Location = New System.Drawing.Point(240, 176)
            Me.cmdCancel.Name = "cmdCancel"
            Me.cmdCancel.TabIndex = 1
            Me.cmdCancel.Text = "Cancel"
            '
            'cmdMoveUp
            '
            Me.cmdMoveUp.FlatStyle = System.Windows.Forms.FlatStyle.Flat
            Me.cmdMoveUp.Location = New System.Drawing.Point(192, 104)
            Me.cmdMoveUp.Name = "cmdMoveUp"
            Me.cmdMoveUp.TabIndex = 4
            Me.cmdMoveUp.Text = "Move Up"
            '
            'cmdMoveDown
            '
            Me.cmdMoveDown.FlatStyle = System.Windows.Forms.FlatStyle.Flat
            Me.cmdMoveDown.Location = New System.Drawing.Point(192, 136)
            Me.cmdMoveDown.Name = "cmdMoveDown"
            Me.cmdMoveDown.TabIndex = 5
            Me.cmdMoveDown.Text = "Move Down"
            '
            'frmColumns
            '
            Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
            Me.ClientSize = New System.Drawing.Size(464, 213)
            Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.cmdMoveDown, Me.cmdMoveUp, Me.cmdCancel, Me.cmdSave, Me.cmdUnSelect, Me.cmdSelect, Me.lboxSelected, Me.lboxNSelected})
            Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
            Me.MaximizeBox = False
            Me.MinimizeBox = False
            Me.Name = "frmColumns"
            Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
            Me.Text = "Choose Columns"
            Me.ResumeLayout(False)

        End Sub

#End Region

        Private Sub LoadProperties()
            cmdSelect.Enabled = False
            cmdUnSelect.Enabled = False
        End Sub

        Private Sub cmdSelect_Click(ByVal sender As Object, ByVal e As System.EventArgs) _
                Handles cmdSelect.Click, lboxNSelected.DoubleClick
            'move the selected items from left to right
            Dim lSelItems As New ArrayList()
            Dim colName As Object
            For Each colName In lboxNSelected.SelectedItems
                lboxSelected.Items.Add(colName)
                lSelItems.Add(colName)
            Next

            Dim item As Object
            For Each item In lSelItems
                lboxNSelected.Items.Remove(item)
            Next
        End Sub

        Private Sub cmdUnSelect_Click(ByVal sender As Object, ByVal e As System.EventArgs) _
                Handles cmdUnSelect.Click, lboxSelected.DoubleClick
            Dim lSelItems As New ArrayList()
            'move the selected items from right to left
            Dim colName As Object
            For Each colName In lboxSelected.SelectedItems
                lboxNSelected.Items.Add(colName)
                lSelItems.Add(colName)
            Next

            Dim item As Object
            For Each item In lSelItems
                lboxSelected.Items.Remove(item)
            Next
            lSelItems = Nothing
        End Sub

        Private Sub cmdMoveUp_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdMoveUp.Click
            MoveUp()
        End Sub
        Private Sub cmdMoveDown_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmdMoveDown.Click
            MoveDown()
        End Sub

        Private Sub MoveUp()
            Dim sIndex As Integer

            If lboxSelected.SelectedIndices.Count = 1 Then
                sIndex = lboxSelected.SelectedIndex
                If sIndex <> 0 Then
                    Dim item1 As Object = lboxSelected.SelectedItem
                    lboxSelected.Items.Remove(lboxSelected.SelectedItem)
                    lboxSelected.Items.Insert(sIndex - 1, item1)
                    lboxSelected.SelectedIndex = sIndex - 1
                End If
            End If
        End Sub

        Private Sub MoveDown()
            Dim sIndex As Integer

            If lboxSelected.SelectedIndices.Count = 1 Then
                sIndex = lboxSelected.SelectedIndex
                If sIndex + 1 < lboxSelected.Items.Count Then
                    Dim item1 As Object = lboxSelected.SelectedItem
                    lboxSelected.Items.Remove(lboxSelected.SelectedItem)
                    lboxSelected.Items.Insert(sIndex + 1, item1)
                    lboxSelected.SelectedIndex = sIndex + 1
                End If
            End If
        End Sub

    End Class
End Namespace