7

もう一度言いますが、 VB6からVB.NETへの移行はさらに素晴らしいものです。

確かに、これは必ずしも「質問」の定義ではありませんが、ユーザーが将来持つ多くの質問に答えるものであり、私の質問にも答えてくれることを願っています.

MSFlexGridVB6/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. DataGridView. ColumnCount = DataGridViewに表示される列の数を取得または設定します。

  2. DataGridView. RowCount = DataGridViewに表示される行数を取得または設定します。

  3. DataGridView. 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 に答える