| | タイトル | : DragDropについて |  | 記事No | : 1379 |  | 投稿日 | : 2005/02/09(Wed) 10:48 |  | 投稿者 | : aki | 
 [OSのVer]:Windows    [VBのVer]:VB.NET   
 いつもお世話になっております。
 
 TextBoxコントロールにエクスプローラからDrag&Dropされたファイル、
 またはフォルダのフルパスを取得したいのですが、下記のコードでは
 取得することが出来ませんでした。
 どなたかお教え願えませんか?
 よろしくお願いいたします。
 
 
 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
 Else
 e.Effect = DragDropEffects.None
 End If
 
 End Sub
 
 Private Sub TextBox1_DragDrop(ByVal sender As Object, ByVal e As
 System.Windows.Forms.DragEventArgs) Handles TextBox1.DragDrop
 Me.TextBox1.Text = CType(e.Data.GetData(DataFormats.FileDrop), String)
 End Sub
 
 
 もちろん、TextBoxのAllowDropプロパティはTrueになってます。
 
 |