ドラッグドロップ(AllowDrop)について
Form1にドラッグドロップ機能を導入しようと思い
AllowDropプロパティをTrueにしてDragDropイベントとDragEnterイベントを記述しました。
実際にデバックしてみるとうまく機能して安心したのですが
後で、bin/debug/AAA.exeを直接クリックしてみるとなぜか機能しません。
MyBase.LoadイベントにMyBase.AllowDrop=Trueと記述してみたいのですがダメでした。
何か設定が間違ってるのでしょうか？
ぜひご回答お願いします。
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
MyBase.AllowDrop = True
End Sub
Private Sub drag_drop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles MyBase.DragDrop
Dim list As String() = CType(e.Data.GetData(DataFormats.FileDrop, False), String())
For Each a In list
MsgBox(a)
Next
End Sub
Private Sub drag_enter(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles MyBase.DragEnter
e.Effect = DragDropEffects.Copy
End Sub
お礼
さっそくありがとうございます。 ブックマークしておきました。感謝申し上げます。