C# と VB.NET の質問掲示板

遅くなってすみません。

shuさんの回答から探した所、ドロップした位置からセルを特定できる方法があり、参考にした
ブログでもコメントに書かれていたので下記コードに変更しましたが次は「ArgumentOutOfRangeException」が発生してしまいました。

データとしてはX,Y座標は取得できていますが、そこからDataGridViewの
セル位置に変換する際に[-1,-1]となってしまいエラーが発生している模様です。



    Private Sub dgvDragDrop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs)

        '変数
        Dim dgvname As New DataGridView


        If e.Data.GetDataPresent(GetType(String)) Then
            Dim dgvcellvalue = e.Data.GetData(GetType(String))

            dgvname = CType(sender, DataGridView)

            Dim hti As DataGridView.HitTestInfo = DirectCast(sender, DataGridView).HitTest(e.X, e.Y)

            dgvname(hti.ColumnIndex, hti.RowIndex).Value = dgvcellvalue　←【ここでArgumentOutOfRangeExceptionが発生】

            MessageBox.Show("ドラッグアンドドロップ完了")

        End If



    End Sub

■No74145 (優希（ゆき） さん) に返信
> ■No74143 (Hongliang さん) に返信
> >>データとしてはX,Y座標は取得できていますが、
>>本当ですか？　DragEventArgsのX, Yはスクリーン座標だそうですが。
>>http://msdn.microsoft.com/ja-jp/library/system.windows.forms.drageventargs.aspx
>>DataGridViewのPointToClientメソッドでDataGridViewのクライアント座標に変換しないといけないのでは。
> 
> http://dobon.net/vb/dotnet/datagrid/hittest.html
> 
> これはDataGridですが、この方法とは違うのでしょうか？

Hongliang さんの指摘は
 DragEventArgsのX,Y つまり
> Dim hti As DataGridView.HitTestInfo = DirectCast(sender, DataGridView).HitTest(e.X, e.Y)
ここのe.X,e.YがDataGridView上の座標ではなくWindows上でのマウス位置を表していますということです。
なので該当画面の位置、DataGridViewの該当画面上の位置分だけずれてしまいます。

Dim dgv = DirectCast(sender, DataGridView)
Dim dragpt as new Point(e.X,e.Y)
Dim dgvpt = dgv.PointToClient(dragpt)

のような感じで座標変換する必要がるということです。なお上記コードは動作確認はしておりません。

途中だったのを忘れてたorz

■No74148 (shu さん) に返信
> ■No74145 (優希（ゆき） さん) に返信
>>■No74143 (Hongliang さん) に返信
>>>>データとしてはX,Y座標は取得できていますが、
> >>本当ですか？　DragEventArgsのX, Yはスクリーン座標だそうですが。
> >>http://msdn.microsoft.com/ja-jp/library/system.windows.forms.drageventargs.aspx
> >>DataGridViewのPointToClientメソッドでDataGridViewのクライアント座標に変換しないといけないのでは。
>>
>>http://dobon.net/vb/dotnet/datagrid/hittest.html
>>
>>これはDataGridですが、この方法とは違うのでしょうか？
> 
> Hongliang さんの指摘は
>  DragEventArgsのX,Y つまり
>>Dim hti As DataGridView.HitTestInfo = DirectCast(sender, DataGridView).HitTest(e.X, e.Y)
> ここのe.X,e.YがDataGridView上の座標ではなくWindows上でのマウス位置を表していますということです。
> なので該当画面の位置、DataGridViewの該当画面上の位置分だけずれてしまいます。
> 
> Dim dgv = DirectCast(sender, DataGridView)
> Dim dragpt as new Point(e.X,e.Y)
> Dim dgvpt = dgv.PointToClient(dragpt)
> 
> のような感じで座標変換する必要がるということです。なお上記コードは動作確認はしておりません。
> 
> 

shuさんとHongliangの回答を確認して、座標を変換してHitTestで処理した所、うまくD&Dすることが出来ました。

shuさん,ヴァンさん,Hongliang さん

ありがとうございます。

下に、コードを載せておきます(変数は気にしないでください)


            ''スクリーン座標を変数へ入れる
            Dim target As New Point(e.X, e.Y)

            ''スクリーン座標をクライアント座標へ変換
            Dim a = dgvname.PointToClient(target)

            '座標をDataGridViewのHitTestInfoへ入れる
            Dim bbb As DataGridView.HitTestInfo = dgvname.HitTest(a.X, a.Y)

            'ここでドロップしたデータをセルへ入れる
            dgvname(bbb.ColumnIndex, bbb.RowIndex).Value = dgvcellvalue


（英語サイトをスルーしてたけど、C#でまんま答えが載ってた…orz）
http://stackoverflow.com/questions/1835329/how-to-target-a-datagridview-row-or-cell-from-dragdrop-event