tagCANDY CGI VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板) [ツリー表示へ]   [Home]
一括表示(VB.NET VB2005)
タイトルDragDropについて
記事No1379
投稿日: 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になってます。

[ツリー表示へ]
タイトルRe: DragDropについて
記事No1380
投稿日: 2005/02/09(Wed) 11:21
投稿者じゃんぬねっと
参照先http://jeanne.wankuma.com/
じゃんぬねっと です。

複数取得されうるものですので、Array な変数で取得しなければなりませんよね?
例えば、こんな感じでしょうか? (試してませんが)

    Private Sub TextBox1_DragDrop(...) Handles TextBox1.DragDrop
        Dim arrayFile As Array

        arrayFile = DirectCast(e.Data.GetData(DataFormats.FileDrop), Array)

        TextBox1.Text = arrayFile.GetValue(0).ToString()
    End Sub

[ツリー表示へ]
タイトルありがとうございます!
記事No1381
投稿日: 2005/02/09(Wed) 11:29
投稿者aki
[OSのVer]:Windows    [VBのVer]:VB.NET  

上記の方法でうまくいきました。
複数取得という考えが全くありませんでした。
ありがとうございました。<m(__)m>

[ツリー表示へ]