質問

フォームの外にドラッグ＆ドロップ

質問者：ronaldo9
投稿日時：2007/01/15 17:28

現在、VB2005においてアプリケーションを開発しています。

よく、リストボックスなどにドラッグ＆ドロップしてパスを入力させる
方法がありますが、これの逆？をやりたいと思っております。

つまり、「すでにリストボックスなどに入力されたアイテムをフォームのそと
にドラッグ＆ドロップさせた場合にリストボックスからそのアイテムを
さくじょする」という動作です。

フォームの外であることをどのように判断してよいかわからないため、
MouseUp,DragDropのイベントを受け取ることができません。

よろしくお願いします。

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (2件)

No.2ベストアンサー20pt

回答者：redfox63
回答日時：2007/01/15 22:52

QueryContinueDragイベントで対応ってことになりそうですよ

フォームレベルにどのアイテムをDragしたのかを保存しておく変数を用意します
Dim nItem as integer

Drag開始時に
nItem = ListBox1.SelectedIndex
といった感じで...

QueryContinueDragイベントで
if e.Action = DragAction.Drop then
Dim pt As Point = ListBox1.PointToClient(ListBox1.MousePosition)
' ListBox1以外でドロップされた場合
' フォーム以外ならListBox1をForm1などに置き換えてください
if ListBox1.ClientRectangle.Contains(pt)=False then
ListBox1.Items.RemoveAt( nItem )
end if
end if

といった具合でしょう ...

この回答へのお礼

上記の方法でできました。

助かりました。ありがとうございます。

通報する

No.1ベストアンサー10pt

回答者：unamana19
回答日時：2007/01/15 17:39

テキストボックスの内容をドラッグドロップしてコピーするには

Private Sub TextBox1_MouseDown(ByVal sender As Object, _
ByVal e As System.Windows.Forms.MouseEventArgs) _
Handles TextBox1.MouseDown
TextBox1.DoDragDrop(TextBox1.Text, DragDropEffects.Copy)
End Sub

こんな感じになります。
メモ帳などに入力されたテキストがドラッグドロップできます。