| ■56208 / inTopicNo.1) |
FormにDragDropする方法 |
□投稿者/ kei (3回)-(2011/01/04(Tue) 23:26:38)
|
分類:[VB.NET/VB2005 以降]
フォームにテキストファイルをドラッグ&ドロップすると、テキストボックスにアドレスが入るようにしたいのですが
やり方がわかりませんでした。
テキストボックスへドラッグ&ドロップするのはできました。
これをFormにしようとしたのですがうまくいきませんでした。
http://dobon.net/vb/dotnet/control/droppedfile.html
上記のサイトを参照して、これを
Private Sub TextBox1_DragEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles TextBox1.DragEnter
'ドラッグされている内容が文字列型に変換可能な場合
If e.Data.GetDataPresent(DataFormats.FileDrop) Then
'コピーを許可するようにドラッグ元に通知する
e.Effect = DragDropEffects.Copy
End If
End Sub
Private Sub TextBox1_DragDrop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles TextBox1.DragDrop
'ドロップされた内容を表示する
TextBox1.Text = e.Data.GetData(DataFormats.FileDrop)(0)
End Sub
このプログラムの、"TextBox1"をForm1に変更したのですが、バグで動作しませんでした。
Formにドラッグ&ドロップして動作するようにするにはどうしたらよういのでしょうか？
|
|