RichTextBoxからのドラッグ&ドロップでドラッグ元を判別 への返答

投稿で使用できる特殊コードの説明。(別タブで開きます。)
本名は入力しないようにしましょう。
投稿した後で削除するときに使うパスワードです。返答があった後は削除できません。
返答する人が目安にします。相手が小学生か社会人かで返答の仕方も変わります。
最初の投稿が質問の場合、質問者が解決時にチェックしてください。(以降も追加書き込み・返信は可能です。)
※「過去ログ」について書くときはその過去ログのURLも書いてください。

以下の返答は逆順(新しい順)に並んでいます。

投稿者 るきお  (社会人) 投稿日時 2013/3/16 10:25:58
DoDragDropを使用するタイミングの問題でしょうか。
とりあえずMouseLeaveを使ってみたところうまくうごくようです。
私が試したプログラムは以下の通りです。
Public Class Form1

    Private Sub TextBox1_DragEnter(sender As Object, e As System.Windows.Forms.DragEventArgs) Handles TextBox1.DragEnter

        e.Effect = DragDropEffects.Copy

    End Sub

    Private Sub TextBox1_DragDrop(sender As System.Object, e As System.Windows.Forms.DragEventArgs) Handles TextBox1.DragDrop

        Dim info As DragDropInformation = e.Data.GetData(GetType(DragDropInformation))

        If info IsNot Nothing Then
            TextBox1.Text = info.Text
            Label1.Text = info.Source.Name
        Else
            TextBox1.Text = ""
            Label1.Text = ""
        End If

    End Sub

    Private Sub RichTextBox1_MouseLeave(sender As Object, e As System.EventArgs) Handles RichTextBox1.MouseLeave
        If Control.MouseButtons <> Windows.Forms.MouseButtons.Left Then
            Return
        End If

        If Len(RichTextBox1.SelectedText) > 0 Then
            Dim info As New DragDropInformation
            info.Text = RichTextBox1.SelectedText
            info.Source = sender
            RichTextBox1.DoDragDrop(info, DragDropEffects.Copy)
        End If
    End Sub

End Class

Public Class DragDropInformation
    Public Property Text As String
    Public Property Source As Control
End Class
投稿者 shu  (社会人) 投稿日時 2013/3/1 09:36:33
文字が選択状態であったらDoDragDropをすればよいのではないでしょうか?
DoDragDropを行うまえに必要な情報を取得しそれを適当に作成したクラスの
インスタンスに設定してDoDragDropに渡すというのはどうでしょう?
投稿者 くりたけ  (社会人) 投稿日時 2013/2/28 07:37:12
RichTextBoxで選択したテキストを別コントロールにドロップしたいのですが、別コントロールにドロップした時に、例えばドロップ先のDragDropイベントで、ドラッグ元のRichTextBoxを判別する方法はありますでしょうか?
ドラッグ元のRichTextBoxのMouseDownやMouseMoveイベントでDoDragDropメソッドを呼び出し、引数にドラッグ元のRichTextBoxを割り当てれば識別用に使えるかなと思ったのですが、これらのマウスイベントでDoDragDropを行うとRichTextBox内のテキストをマウスで選択できなくなってしまいます。
(これは、以下のドラッグ&ドロップについての講座「5.ドラッグ」にも記載されています。)

http://homepage1.nifty.com/rucio/main/dotnet/shokyu/standard22.htm

ドラッグ元の識別は、対象のRichTextBoxか、それ以外(外部ソフトからのドラッグも含む)を判別できればいいです。

環境はVB2008です。

よろしくお願いします。