customizecolumnsform.vb

一个管理系统

        Me.btnReset.ImageAlign = CType(resources.GetObject("btnReset.ImageAlign"), System.Drawing.ContentAlignment)
        Me.btnReset.ImageIndex = CType(resources.GetObject("btnReset.ImageIndex"), Integer)
        Me.btnReset.ImeMode = CType(resources.GetObject("btnReset.ImeMode"), System.Windows.Forms.ImeMode)
        Me.btnReset.Location = CType(resources.GetObject("btnReset.Location"), System.Drawing.Point)
        Me.btnReset.Name = "btnReset"
        Me.btnReset.RightToLeft = CType(resources.GetObject("btnReset.RightToLeft"), System.Windows.Forms.RightToLeft)
        Me.btnReset.Size = CType(resources.GetObject("btnReset.Size"), System.Drawing.Size)
        Me.btnReset.TabIndex = CType(resources.GetObject("btnReset.TabIndex"), Integer)
        Me.btnReset.Text = resources.GetString("btnReset.Text")
        Me.btnReset.TextAlign = CType(resources.GetObject("btnReset.TextAlign"), System.Drawing.ContentAlignment)
        Me.btnReset.Visible = CType(resources.GetObject("btnReset.Visible"), Boolean)
        '
        'btnRemove
        '
        Me.btnRemove.AccessibleDescription = resources.GetString("btnRemove.AccessibleDescription")
        Me.btnRemove.AccessibleName = resources.GetString("btnRemove.AccessibleName")
        Me.btnRemove.Anchor = CType(resources.GetObject("btnRemove.Anchor"), System.Windows.Forms.AnchorStyles)
        Me.btnRemove.BackgroundImage = CType(resources.GetObject("btnRemove.BackgroundImage"), System.Drawing.Image)
        Me.btnRemove.CausesValidation = False
        Me.btnRemove.Dock = CType(resources.GetObject("btnRemove.Dock"), System.Windows.Forms.DockStyle)
        Me.btnRemove.Enabled = CType(resources.GetObject("btnRemove.Enabled"), Boolean)
        Me.btnRemove.FlatStyle = CType(resources.GetObject("btnRemove.FlatStyle"), System.Windows.Forms.FlatStyle)
        Me.btnRemove.Font = CType(resources.GetObject("btnRemove.Font"), System.Drawing.Font)
        Me.btnRemove.Image = CType(resources.GetObject("btnRemove.Image"), System.Drawing.Image)
        Me.btnRemove.ImageAlign = CType(resources.GetObject("btnRemove.ImageAlign"), System.Drawing.ContentAlignment)
        Me.btnRemove.ImageIndex = CType(resources.GetObject("btnRemove.ImageIndex"), Integer)
        Me.btnRemove.ImeMode = CType(resources.GetObject("btnRemove.ImeMode"), System.Windows.Forms.ImeMode)
        Me.btnRemove.Location = CType(resources.GetObject("btnRemove.Location"), System.Drawing.Point)
        Me.btnRemove.Name = "btnRemove"
        Me.btnRemove.RightToLeft = CType(resources.GetObject("btnRemove.RightToLeft"), System.Windows.Forms.RightToLeft)
        Me.btnRemove.Size = CType(resources.GetObject("btnRemove.Size"), System.Drawing.Size)
        Me.btnRemove.TabIndex = CType(resources.GetObject("btnRemove.TabIndex"), Integer)
        Me.btnRemove.Text = resources.GetString("btnRemove.Text")
        Me.btnRemove.TextAlign = CType(resources.GetObject("btnRemove.TextAlign"), System.Drawing.ContentAlignment)
        Me.btnRemove.Visible = CType(resources.GetObject("btnRemove.Visible"), Boolean)
        '
        'btnAdd
        '
        Me.btnAdd.AccessibleDescription = resources.GetString("btnAdd.AccessibleDescription")
        Me.btnAdd.AccessibleName = resources.GetString("btnAdd.AccessibleName")
        Me.btnAdd.Anchor = CType(resources.GetObject("btnAdd.Anchor"), System.Windows.Forms.AnchorStyles)
        Me.btnAdd.BackgroundImage = CType(resources.GetObject("btnAdd.BackgroundImage"), System.Drawing.Image)
        Me.btnAdd.Dock = CType(resources.GetObject("btnAdd.Dock"), System.Windows.Forms.DockStyle)
        Me.btnAdd.Enabled = CType(resources.GetObject("btnAdd.Enabled"), Boolean)
        Me.btnAdd.FlatStyle = CType(resources.GetObject("btnAdd.FlatStyle"), System.Windows.Forms.FlatStyle)
        Me.btnAdd.Font = CType(resources.GetObject("btnAdd.Font"), System.Drawing.Font)
        Me.btnAdd.Image = CType(resources.GetObject("btnAdd.Image"), System.Drawing.Image)
        Me.btnAdd.ImageAlign = CType(resources.GetObject("btnAdd.ImageAlign"), System.Drawing.ContentAlignment)
        Me.btnAdd.ImageIndex = CType(resources.GetObject("btnAdd.ImageIndex"), Integer)
        Me.btnAdd.ImeMode = CType(resources.GetObject("btnAdd.ImeMode"), System.Windows.Forms.ImeMode)
        Me.btnAdd.Location = CType(resources.GetObject("btnAdd.Location"), System.Drawing.Point)
        Me.btnAdd.Name = "btnAdd"
        Me.btnAdd.RightToLeft = CType(resources.GetObject("btnAdd.RightToLeft"), System.Windows.Forms.RightToLeft)
        Me.btnAdd.Size = CType(resources.GetObject("btnAdd.Size"), System.Drawing.Size)
        Me.btnAdd.TabIndex = CType(resources.GetObject("btnAdd.TabIndex"), Integer)
        Me.btnAdd.Text = resources.GetString("btnAdd.Text")
        Me.btnAdd.TextAlign = CType(resources.GetObject("btnAdd.TextAlign"), System.Drawing.ContentAlignment)
        Me.btnAdd.Visible = CType(resources.GetObject("btnAdd.Visible"), Boolean)
        '
        'lblAvailableFields
        '
        Me.lblAvailableFields.AccessibleDescription = resources.GetString("lblAvailableFields.AccessibleDescription")
        Me.lblAvailableFields.AccessibleName = resources.GetString("lblAvailableFields.AccessibleName")
        Me.lblAvailableFields.Anchor = CType(resources.GetObject("lblAvailableFields.Anchor"), System.Windows.Forms.AnchorStyles)
        Me.lblAvailableFields.AutoSize = CType(resources.GetObject("lblAvailableFields.AutoSize"), Boolean)
        Me.lblAvailableFields.Dock = CType(resources.GetObject("lblAvailableFields.Dock"), System.Windows.Forms.DockStyle)
        Me.lblAvailableFields.Enabled = CType(resources.GetObject("lblAvailableFields.Enabled"), Boolean)
        Me.lblAvailableFields.Font = CType(resources.GetObject("lblAvailableFields.Font"), System.Drawing.Font)
        Me.lblAvailableFields.Image = CType(resources.GetObject("lblAvailableFields.Image"), System.Drawing.Image)
        Me.lblAvailableFields.ImageAlign = CType(resources.GetObject("lblAvailableFields.ImageAlign"), System.Drawing.ContentAlignment)
        Me.lblAvailableFields.ImageIndex = CType(resources.GetObject("lblAvailableFields.ImageIndex"), Integer)
        Me.lblAvailableFields.ImeMode = CType(resources.GetObject("lblAvailableFields.ImeMode"), System.Windows.Forms.ImeMode)
        Me.lblAvailableFields.Location = CType(resources.GetObject("lblAvailableFields.Location"), System.Drawing.Point)
        Me.lblAvailableFields.Name = "lblAvailableFields"
        Me.lblAvailableFields.RightToLeft = CType(resources.GetObject("lblAvailableFields.RightToLeft"), System.Windows.Forms.RightToLeft)
        Me.lblAvailableFields.Size = CType(resources.GetObject("lblAvailableFields.Size"), System.Drawing.Size)
        Me.lblAvailableFields.TabIndex = CType(resources.GetObject("lblAvailableFields.TabIndex"), Integer)
        Me.lblAvailableFields.Text = resources.GetString("lblAvailableFields.Text")
        Me.lblAvailableFields.TextAlign = CType(resources.GetObject("lblAvailableFields.TextAlign"), System.Drawing.ContentAlignment)
        Me.lblAvailableFields.Visible = CType(resources.GetObject("lblAvailableFields.Visible"), Boolean)
        '
        'lbAvailable
        '
        Me.lbAvailable.AccessibleDescription = resources.GetString("lbAvailable.AccessibleDescription")
        Me.lbAvailable.AccessibleName = resources.GetString("lbAvailable.AccessibleName")
        Me.lbAvailable.Anchor = CType(resources.GetObject("lbAvailable.Anchor"), System.Windows.Forms.AnchorStyles)
        Me.lbAvailable.BackgroundImage = CType(resources.GetObject("lbAvailable.BackgroundImage"), System.Drawing.Image)
        Me.lbAvailable.ColumnWidth = CType(resources.GetObject("lbAvailable.ColumnWidth"), Integer)
        Me.lbAvailable.Dock = CType(resources.GetObject("lbAvailable.Dock"), System.Windows.Forms.DockStyle)
        Me.lbAvailable.Enabled = CType(resources.GetObject("lbAvailable.Enabled"), Boolean)
        Me.lbAvailable.Font = CType(resources.GetObject("lbAvailable.Font"), System.Drawing.Font)
        Me.lbAvailable.HorizontalExtent = CType(resources.GetObject("lbAvailable.HorizontalExtent"), Integer)
        Me.lbAvailable.HorizontalScrollbar = CType(resources.GetObject("lbAvailable.HorizontalScrollbar"), Boolean)
        Me.lbAvailable.ImeMode = CType(resources.GetObject("lbAvailable.ImeMode"), System.Windows.Forms.ImeMode)
        Me.lbAvailable.IntegralHeight = CType(resources.GetObject("lbAvailable.IntegralHeight"), Boolean)
        Me.lbAvailable.ItemHeight = CType(resources.GetObject("lbAvailable.ItemHeight"), Integer)
        Me.lbAvailable.Location = CType(resources.GetObject("lbAvailable.Location"), System.Drawing.Point)
        Me.lbAvailable.Name = "lbAvailable"
        Me.lbAvailable.RightToLeft = CType(resources.GetObject("lbAvailable.RightToLeft"), System.Windows.Forms.RightToLeft)
        Me.lbAvailable.ScrollAlwaysVisible = CType(resources.GetObject("lbAvailable.ScrollAlwaysVisible"), Boolean)
        Me.lbAvailable.Size = CType(resources.GetObject("lbAvailable.Size"), System.Drawing.Size)
        Me.lbAvailable.TabIndex = CType(resources.GetObject("lbAvailable.TabIndex"), Integer)
        Me.lbAvailable.Visible = CType(resources.GetObject("lbAvailable.Visible"), Boolean)
        '
        'btnCancel
        '
        Me.btnCancel.AccessibleDescription = resources.GetString("btnCancel.AccessibleDescription")
        Me.btnCancel.AccessibleName = resources.GetString("btnCancel.AccessibleName")
        Me.btnCancel.Anchor = CType(resources.GetObject("btnCancel.Anchor"), System.Windows.Forms.AnchorStyles)
        Me.btnCancel.BackgroundImage = CType(resources.GetObject("btnCancel.BackgroundImage"), System.Drawing.Image)
        Me.btnCancel.CausesValidation = False
        Me.btnCancel.DialogResult = System.Windows.Forms.DialogResult.Cancel
        Me.btnCancel.Dock = CType(resources.GetObject("btnCancel.Dock"), System.Windows.Forms.DockStyle)
        Me.btnCancel.Enabled = CType(resources.GetObject("btnCancel.Enabled"), Boolean)
        Me.btnCancel.FlatStyle = CType(resources.GetObject("btnCancel.FlatStyle"), System.Windows.Forms.FlatStyle)
        Me.btnCancel.Font = CType(resources.GetObject("btnCancel.Font"), System.Drawing.Font)
        Me.btnCancel.Image = CType(resources.GetObject("btnCancel.Image"), System.Drawing.Image)
        Me.btnCancel.ImageAlign = CType(resources.GetObject("btnCancel.ImageAlign"), System.Drawing.ContentAlignment)
        Me.btnCancel.ImageIndex = CType(resources.GetObject("btnCancel.ImageIndex"), Integer)
        Me.btnCancel.ImeMode = CType(resources.GetObject("btnCancel.ImeMode"), System.Windows.Forms.ImeMode)
        Me.btnCancel.Location = CType(resources.GetObject("btnCancel.Location"), System.Drawing.Point)
        Me.btnCancel.Name = "btnCancel"
        Me.btnCancel.RightToLeft = CType(resources.GetObject("btnCancel.RightToLeft"), System.Windows.Forms.RightToLeft)
        Me.btnCancel.Size = CType(resources.GetObject("btnCancel.Size"), System.Drawing.Size)
        Me.btnCancel.TabIndex = CType(resources.GetObject("btnCancel.TabIndex"), Integer)
        Me.btnCancel.Text = resources.GetString("btnCancel.Text")
        Me.btnCancel.TextAlign = CType(resources.GetObject("btnCancel.TextAlign"), System.Drawing.ContentAlignment)
        Me.btnCancel.Visible = CType(resources.GetObject("btnCancel.Visible"), Boolean)
        '
        'btnOK
        '
        Me.btnOK.AccessibleDescription = resources.GetString("btnOK.AccessibleDescription")
        Me.btnOK.AccessibleName = resources.GetString("btnOK.AccessibleName")
        Me.btnOK.Anchor = CType(resources.GetObject("btnOK.Anchor"), System.Windows.Forms.AnchorStyles)
        Me.btnOK.BackgroundImage = CType(resources.GetObject("btnOK.BackgroundImage"), System.Drawing.Image)
        Me.btnOK.DialogResult = System.Windows.Forms.DialogResult.OK
        Me.btnOK.Dock = CType(resources.GetObject("btnOK.Dock"), System.Windows.Forms.DockStyle)
        Me.btnOK.Enabled = CType(resources.GetObject("btnOK.Enabled"), Boolean)
        Me.btnOK.FlatStyle = CType(resources.GetObject("btnOK.FlatStyle"), System.Windows.Forms.FlatStyle)
        Me.btnOK.Font = CType(resources.GetObject("btnOK.Font"), System.Drawing.Font)
        Me.btnOK.Image = CType(resources.GetObject("btnOK.Image"), System.Drawing.Image)
        Me.btnOK.ImageAlign = CType(resources.GetObject("btnOK.ImageAlign"), System.Drawing.ContentAlignment)
        Me.btnOK.ImageIndex = CType(resources.GetObject("btnOK.ImageIndex"), Integer)
        Me.btnOK.ImeMode = CType(resources.GetObject("btnOK.ImeMode"), System.Windows.Forms.ImeMode)
        Me.btnOK.Location = CType(resources.GetObject("btnOK.Location"), System.Drawing.Point)
        Me.btnOK.Name = "btnOK"
        Me.btnOK.RightToLeft = CType(resources.GetObject("btnOK.RightToLeft"), System.Windows.Forms.RightToLeft)
        Me.btnOK.Size = CType(resources.GetObject("btnOK.Size"), System.Drawing.Size)
        Me.btnOK.TabIndex = CType(resources.GetObject("btnOK.TabIndex"), Integer)
        Me.btnOK.Text = resources.GetString("btnOK.Text")
        Me.btnOK.TextAlign = CType(resources.GetObject("btnOK.TextAlign"), System.Drawing.ContentAlignment)
        Me.btnOK.Visible = CType(resources.GetObject("btnOK.Visible"), Boolean)
        '
        'CustomizeColumnsForm
        '
        Me.AcceptButton = Me.btnOK
        Me.AccessibleDescription = resources.GetString("$this.AccessibleDescription")
        Me.AccessibleName = resources.GetString("$this.AccessibleName")
        Me.Anchor = CType(resources.GetObject("$this.Anchor"), System.Windows.Forms.AnchorStyles)
        Me.AutoScaleBaseSize = CType(resources.GetObject("$this.AutoScaleBaseSize"), System.Drawing.Size)
        Me.AutoScroll = CType(resources.GetObject("$this.AutoScroll"), Boolean)
        Me.AutoScrollMargin = CType(resources.GetObject("$this.AutoScrollMargin"), System.Drawing.Size)
        Me.AutoScrollMinSize = CType(resources.GetObject("$this.AutoScrollMinSize"), System.Drawing.Size)
        Me.BackgroundImage = CType(resources.GetObject("$this.BackgroundImage"), System.Drawing.Image)
        Me.CausesValidation = False
        Me.ClientSize = CType(resources.GetObject("$this.ClientSize"), System.Drawing.Size)
        Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.btnCancel, Me.btnOK, Me.lblColumnWidth, Me.txtColumnWidth, Me.lblDisplayedFields, Me.btnMoveDown, Me.btnMoveUp, Me.lbDisplayed, Me.btnReset, Me.btnRemove, Me.btnAdd, Me.lblAvailableFields, Me.lbAvailable})
        Me.Dock = CType(resources.GetObject("$this.Dock"), System.Windows.Forms.DockStyle)
        Me.Enabled = CType(resources.GetObject("$this.Enabled"), Boolean)
        Me.Font = CType(resources.GetObject("$this.Font"), System.Drawing.Font)
        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
        Me.ImeMode = CType(resources.GetObject("$this.ImeMode"), System.Windows.Forms.ImeMode)
        Me.Location = CType(resources.GetObject("$this.Location"), System.Drawing.Point)
        Me.MaximizeBox = False
        Me.MaximumSize = CType(resources.GetObject("$this.MaximumSize"), System.Drawing.Size)
        Me.MinimumSize = CType(resources.GetObject("$this.MinimumSize"), System.Drawing.Size)
        Me.Name = "CustomizeColumnsForm"
        Me.RightToLeft = CType(resources.GetObject("$this.RightToLeft"), System.Windows.Forms.RightToLeft)
        Me.ShowInTaskbar = False
        Me.StartPosition = CType(resources.GetObject("$this.StartPosition"), System.Windows.Forms.FormStartPosition)
        Me.Text = resources.GetString("$this.Text")
        Me.Visible = CType(resources.GetObject("$this.Visible"), Boolean)
        Me.ResumeLayout(False)

    End Sub

#End Region

    Private m_dgTableStyle As New DataGridTableStyle()


#Region " Private Classes "
    Private Enum ColumnMoveDirection
        Left = 0
        Right = 1
    End Enum

    Private Class DataGridColumnStyleReference

        Private m_RefDataGridColumnStyle As DataGridColumnStyle
        Public Width As Integer
        Private m_ResourceManager As New Resources.ResourceManager("TaskVision.Localize", System.Reflection.Assembly.GetExecutingAssembly())
        'this class was created to track desired changes to a referenced columnstyle
        'without setting the values to the columnstyle

        Public Sub New(ByVal refDataGridColumnStyle As DataGridColumnStyle)
            m_RefDataGridColumnStyle = RefDataGridColumnStyle
            Width = RefDataGridColumnStyle.Width
        End Sub

        Public ReadOnly Property RefDataGridColumnStyle() As DataGridColumnStyle