7

再一次，更精彩的VB6到VB.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

定义 VB6：

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

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

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

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

  5. MSFlexGrid。TextMatrix = 返回或设置任意单元格的文本内容。此属性允许您在不更改Row和Col属性的情况下设置或检索单元格的内容

  6. MSFlexGrid。TextArray = 返回或设置任意单元格的文本内容。此属性允许您在不更改Row和Col属性的情况下设置或检索单元格的内容。

  7. 在此处添加更多

定义 VB.NET：

  1. 数据网格视图。ColumnCount = 获取或设置DataGridView中显示的列数。

  2. 数据网格视图。RowCount = 获取或设置DataGridView中显示的行数。

  3. 数据网格视图。Item(Int32,Int32).Value = 提供一个索引器来获取或设置位于具有指定索引的列和行的交叉点的单元格，然后返回值。

  4. 在此处添加更多

4

1 回答 1

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

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

于 2013-08-06T09:19:52.860 回答