LzmTW.uSystem.uWindows.uForms + GridPropertyForm

Author：水如烟  

Namespace LzmTW.uSystem.uWindows.uForms
    Friend Class GridPropertyForm

        Private Sub HScrollBar_Scroll(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ScrollEventArgs) Handles HScrollBar.Scroll
            Me.Opacity = HScrollBar.Value / 100
        End Sub

        Private WithEvents gDataGridView As DataGridView
        Private gCurrentRow As DataGridViewRow
        Private gFormatString As String = ""

        Public Overloads Sub Show(ByVal datagridview As DataGridView)
            Me.gDataGridView = datagridview
            Me.Show(datagridview.FindForm)
        End Sub

        Private Sub gDataGridView_CurrentCellChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles gDataGridView.CurrentCellChanged
            If gDataGridView.CurrentRow Is Nothing Then Exit Sub
            If gDataGridView.Columns.Count = 0 Then Exit Sub

            If gDataGridView.CurrentRow.Equals(gCurrentRow) Then Exit Sub
            gCurrentRow = gDataGridView.CurrentRow
            ShowRowInformation()
        End Sub

        Private Sub ShowRowInformation()
            Me.RichTextBox.Clear()
            Converter.Input(gCurrentRow)
            Me.RichTextBox.Text = Converter.ToString
        End Sub

        Private Sub TabControl1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles TabControl1.SelectedIndexChanged
            If Me.TabControl1.SelectedIndex = 0 Then Exit Sub
            If Me.gDataGridView.Columns.Count = 0 Then Exit Sub

            Me.TreeView1.Nodes.Clear()

            Dim mRoot As TreeNode = New TreeNode("DataGrid")

            With mRoot

                For Each c As DataGridViewColumn In Me.gDataGridView.Columns
                    .Nodes.Add(c.DataPropertyName)
                Next

            End With

            Me.TreeView1.Nodes.Add(mRoot)

        End Sub

        Private Sub TreeView1_AfterSelect(ByVal sender As Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles TreeView1.AfterSelect
            If e.Node Is Nothing Then Exit Sub

            If e.Node.Equals(Me.TreeView1.Nodes(0)) Then
                Me.PropertyGrid1.SelectedObject = Me.gDataGridView
            Else
                Me.PropertyGrid1.SelectedObject = Me.gDataGridView.Columns(e.Node.Text)
            End If
        End Sub


        Private Class Converter
            Private Shared gDataGridViewRow As DataGridViewRow
            Private Shared gRowString As String = ""

            Public Shared Sub Input(ByVal datagridviewrow As DataGridViewRow)
                gDataGridViewRow = datagridviewrow
                GetString()
            End Sub

            Private Shared Sub GetString()
                Dim mCount As Integer = gDataGridViewRow.DataGridView.Columns.Count
                Dim mMaxLen As Integer = 0
                Dim mName As String = ""

                For index As Integer = 0 To mCount - 1
                    mName = gDataGridViewRow.DataGridView.Columns(index).Name
                    mMaxLen = Math.Max(mMaxLen, uString.Length(mName))
                Next

                Dim b As New System.Text.StringBuilder
                For index As Integer = 0 To mCount - 1
                    b.AppendLine(uString.PadLeft(gDataGridViewRow.DataGridView.Columns(index).Name, mMaxLen) & ": " & gDataGridViewRow.Cells(index).Value.ToString)
                Next

                gRowString = b.ToString
            End Sub

            Public Overloads Shared Function ToString() As String
                Return gRowString
            End Function

        End Class

    End Class
End Namespace

 

Namespace LzmTW.uSystem.uWindows.uForms
    <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
    Partial Class GridPropertyForm
        Inherits System.Windows.Forms.Form

        'Form 重写 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

        'Windows 窗体设计器所必需的
        Private components As System.ComponentModel.IContainer

        '注意: 以下过程是 Windows 窗体设计器所必需的
        '可以使用 Windows 窗体设计器修改它。
        '不要使用代码编辑器修改它。
        <System.Diagnostics.DebuggerStepThrough()> _
        Private Sub InitializeComponent()
            Me.TabControl1 = New System.Windows.Forms.TabControl
            Me.TabPage1 = New System.Windows.Forms.TabPage
            Me.Label1 = New System.Windows.Forms.Label
            Me.HScrollBar = New System.Windows.Forms.HScrollBar
            Me.RichTextBox = New System.Windows.Forms.RichTextBox
            Me.TabPage2 = New System.Windows.Forms.TabPage
            Me.PropertyGrid1 = New System.Windows.Forms.PropertyGrid
            Me.TreeView1 = New System.Windows.Forms.TreeView
            Me.TabControl1.SuspendLayout()
            Me.TabPage1.SuspendLayout()
            Me.TabPage2.SuspendLayout()
            Me.SuspendLayout()
            '
            'TabControl1
            '
            Me.TabControl1.Controls.Add(Me.TabPage1)
            Me.TabControl1.Controls.Add(Me.TabPage2)
            Me.TabControl1.Dock = System.Windows.Forms.DockStyle.Fill
            Me.TabControl1.Location = New System.Drawing.Point(0, 0)
            Me.TabControl1.Name = "TabControl1"
            Me.TabControl1.SelectedIndex = 0
            Me.TabControl1.Size = New System.Drawing.Size(550, 424)
            Me.TabControl1.TabIndex = 0
            '
            'TabPage1
            '
            Me.TabPage1.Controls.Add(Me.Label1)
            Me.TabPage1.Controls.Add(Me.HScrollBar)
            Me.TabPage1.Controls.Add(Me.RichTextBox)
            Me.TabPage1.Location = New System.Drawing.Point(4, 21)
            Me.TabPage1.Name = "TabPage1"
            Me.TabPage1.Padding = New System.Windows.Forms.Padding(3)
            Me.TabPage1.Size = New System.Drawing.Size(542, 399)
            Me.TabPage1.TabIndex = 0
            Me.TabPage1.Text = "当前行数据"
            Me.TabPage1.UseVisualStyleBackColor = True
            '
            'Label1
            '
            Me.Label1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
            Me.Label1.AutoSize = True
            Me.Label1.Location = New System.Drawing.Point(371, 382)
            Me.Label1.Name = "Label1"
            Me.Label1.Size = New System.Drawing.Size(65, 12)
            Me.Label1.TabIndex = 4
            Me.Label1.Text = "调整透明度"
            '
            'HScrollBar
            '
            Me.HScrollBar.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
            Me.HScrollBar.Location = New System.Drawing.Point(439, 374)
            Me.HScrollBar.Maximum = 105
            Me.HScrollBar.Minimum = 20
            Me.HScrollBar.Name = "HScrollBar"
            Me.HScrollBar.Size = New System.Drawing.Size(98, 20)
            Me.HScrollBar.TabIndex = 3
            Me.HScrollBar.Value = 105
            '
            'RichTextBox
            '
            Me.RichTextBox.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
                        Or System.Windows.Forms.AnchorStyles.Left) _
                        Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
            Me.RichTextBox.BackColor = System.Drawing.SystemColors.Info
            Me.RichTextBox.Location = New System.Drawing.Point(0, 0)
            Me.RichTextBox.Name = "RichTextBox"
            Me.RichTextBox.Size = New System.Drawing.Size(542, 371)
            Me.RichTextBox.TabIndex = 1
            Me.RichTextBox.Text = ""
            '
            'TabPage2
            '
            Me.TabPage2.Controls.Add(Me.PropertyGrid1)
            Me.TabPage2.Controls.Add(Me.TreeView1)
            Me.TabPage2.Location = New System.Drawing.Point(4, 21)
            Me.TabPage2.Name = "TabPage2"
            Me.TabPage2.Padding = New System.Windows.Forms.Padding(3)
            Me.TabPage2.Size = New System.Drawing.Size(542, 399)
            Me.TabPage2.TabIndex = 1
            Me.TabPage2.Text = "表格属性"
            Me.TabPage2.UseVisualStyleBackColor = True
            '
            'PropertyGrid1
            '
            Me.PropertyGrid1.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
                        Or System.Windows.Forms.AnchorStyles.Left) _
                        Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
            Me.PropertyGrid1.Location = New System.Drawing.Point(192, 0)
            Me.PropertyGrid1.Name = "PropertyGrid1"
            Me.PropertyGrid1.Size = New System.Drawing.Size(349, 399)
            Me.PropertyGrid1.TabIndex = 1
            '
            'TreeView1
            '
            Me.TreeView1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
                        Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
            Me.TreeView1.Location = New System.Drawing.Point(0, 3)
            Me.TreeView1.Name = "TreeView1"
            Me.TreeView1.Size = New System.Drawing.Size(184, 396)
            Me.TreeView1.TabIndex = 0
            '
            'GridPropertyForm
            '
            Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 12.0!)
            Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
            Me.ClientSize = New System.Drawing.Size(550, 424)
            Me.Controls.Add(Me.TabControl1)
            Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.SizableToolWindow
            Me.Name = "GridPropertyForm"
            Me.ShowInTaskbar = False
            Me.Text = "窗格信息"
            Me.TabControl1.ResumeLayout(False)
            Me.TabPage1.ResumeLayout(False)
            Me.TabPage1.PerformLayout()
            Me.TabPage2.ResumeLayout(False)
            Me.ResumeLayout(False)

        End Sub
        Friend WithEvents TabControl1 As System.Windows.Forms.TabControl
        Friend WithEvents TabPage1 As System.Windows.Forms.TabPage
        Friend WithEvents TabPage2 As System.Windows.Forms.TabPage
        Private WithEvents RichTextBox As System.Windows.Forms.RichTextBox
        Private WithEvents HScrollBar As System.Windows.Forms.HScrollBar
        Friend WithEvents PropertyGrid1 As System.Windows.Forms.PropertyGrid
        Friend WithEvents TreeView1 As System.Windows.Forms.TreeView
        Friend WithEvents Label1 As System.Windows.Forms.Label
    End Class
End Namespace