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