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

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

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

環境はVB2008です。

よろしくお願いします。
0