VB6/VBA MSFlexGrid到VB.NET DataGridView

Log*_*man 7 vb.net datagridview vb6-migration winforms msflexgrid

再一次,更加出色的VB6VB.NET迁移.

好的,这不一定是定义中的"问题",但它将回答用户将来会遇到的许多问题,并希望能够回答我的问题.

我试图编译内的性质和功能的列表,MSFlexGrid在VB6/VBA和.NET的DataGridView提供相同或有所相同用途.我不仅需要它们,而且我相信还有更多的人需要它们.

到目前为止,这就是我所拥有的,我希望其他人可以随意添加和编辑.我希望这有助于我和其他人将旧控件转换为.NET控件,其功能与旧代码相同.如果您想添加,请在BlockQuote中输入关系,并在其专有位置输入定义:

VB6/VBA                          VB.NET

MSFlexGrid.Cols         :::::    DataGridView.ColumnCount
MSFlexGrid.Col          :::::    ???
MSFlexGrid.Rows         :::::    DataGridView.RowCount
MSFlexGrid.Row          :::::    ???
MSFlexGrid.TextMatrix   :::::    DataGridView.Item(Int32,Int32).Value
MSFlexGrid.TextArray    :::::    ???
Add More Here           :::::    Add More Here
Run Code Online (Sandbox Code Playgroud)

定义VB6:

  1. MSFlexGrid控件.Cols =返回或设置MSFlexGrid中的总列数.

  2. MSFlexGrid控件.Col =返回或设置MSFlexGrid中活动单元格的坐标.

  3. MSFlexGrid控件.Rows =返回或设置MSFlexGrid中的总行数.

  4. MSFlexGrid控件.Row =返回或设置MSFlexGrid中活动单元格的坐标.

  5. MSFlexGrid控件.TextMatrix =返回或设置任意单元格的文本内容.此属性允许您设置或检索单元格的内容,而无需更改RowCol属性

  6. MSFlexGrid控件.TextArray =返回或设置任意单元格的文本内容.此属性允许您设置或检索单元格的内容,而无需更改RowCol属性.

  7. 在这里添加更多


定义VB.NET:

  1. DataGridView的.ColumnCount =获取或设置DataGridView中显示的列数.

  2. DataGridView的.RowCount =获取或设置DataGridView中显示的行数.

  3. DataGridView的.Item(Int32,Int32).Value =提供一个索引器,用于获取或设置位于列和行的交集处的单元格与指定的索引,然后返回该值.

  4. 在这里添加更多

Jos*_*e C 1

对于 Row 和 Col 属性,您可以使用以下内容:

    Public Class MyGrid
    Inherits System.Windows.Forms.DataGridView
(...)
    Public Property Col() As Integer
        Get
                Return Me.CurrentCell.ColumnIndex
        End Get
        Set(ByVal value As Integer)
                    Me.CurrentCell = Me(value, Me.CurrentCell.RowIndex)
            End If
        End Set
    End Property
(...)
    Public Property Row() As Integer
        Get
                Return Me.CurrentCell.RowIndex
        End Get
        Set(ByVal value As Integer)
                    Me.CurrentCell = Me(value, Me.CurrentCell.ColumnIndex)
            End If
        End Set
    End Property
(...)
End Class
Run Code Online (Sandbox Code Playgroud)

然后继续查找并将每个属性、方法和事件与原始控件进行匹配。