ドロップターゲット（ドロップされる方）の作り方です。
１、コントロールのAllowDropプロパティをTrueにする。
２、DragEnter, DragOver, DragDropのイベントハンドラを追加する。
３、DragEnterとDragOverを以下のように実装する。
|
1 2 3 |
If e.Data.GetDataPresent(DataFormats.UnicodeText, True) Then e.Effect = DragDropEffects.Copy End If |
４、DragDropを以下のように実装する。
|
1 2 3 4 5 |
Dim s As String If e.Data.GetDataPresent(DataFormats.UnicodeText, True) Then s = e.Data.GetData(DataFormats.UnicodeText, True) MessageBox.Show(s) End If |
DragDropでドロップされたデータを取り出せる。