TextBoxへ文字列をＤ＆Ｄをする方法を教えてください。

質問

Private Sub TextBox1_DragEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles TextBox1.DragEnter
If (e.Data.GetDataPresent(DataFormats.Text)) 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
TextBox1.Text = e.Data.GetData(DataFormats.Text)(0)
End Sub

VB.NETで上記のような方法でドラッグされたテキストを
テキストボックスに表示するようにしたいのですが、
この方法だと最初の一文字しかドロップされません。
どこか修正箇所などありましたら、ご教示いただけると助かります。

回答No.1

BLUEPIXY · ベストアンサー

TextBox1.Text = e.Data.GetData(DataFormats.Text)(0)
を
TextBox1.Text = e.Data.GetData(DataFormats.Text)
にする