經過長時間學習VB.NET TextBox控件，于是和大家分享一下，看完本文你肯定有不少收獲，希望本文能教會你更多東西。拖放操作的一個很簡單然而很有用的情形是從一個VB.NET TextBox控件復制文本到另一個VB.NET TextBox控件。當然你可以只用鍵盤就能實現(CTRL + C and CTRL + V)，然而拖放更簡單因為它僅需要鼠標的移動就可以完成。

向一個窗體中添加兩個文本框，并把第二個VB.NET TextBox控件的AllowDrop屬性設置成True，添加如下代碼。

Private MouseIsDown As Boolean = False 
Private Sub TextBox1_MouseDown(ByVal sender As Object, ByVal e As _  
System.Windows.Forms.MouseEventArgs) Handles TextBox1.MouseDown  
' Set a flag to show that the mouse is down.  
MouseIsDown = True 
End Sub  
 
Private Sub TextBox1_MouseMove(ByVal sender As Object, ByVal e As _  
System.Windows.Forms.MouseEventArgs) Handles TextBox1.MouseMove  
If MouseIsDown Then  
' Initiate dragging.  
TextBox1.DoDragDrop(TextBox1.Text, DragDropEffects.Copy)  
End If  
MouseIsDown = False 
End Sub  
 
Private Sub TextBox2_DragEnter(ByVal sender As Object, ByVal e As _  
System.Windows.Forms.DragEventArgs) Handles TextBox2.DragEnter  
' Check the format of the data being dropped.  
If (e.Data.GetDataPresent(DataFormats.Text)) Then  
' Display the copy cursor.  
e.Effect = DragDropEffects.Copy  
Else  
' Display the no-drop cursor.  
e.Effect = DragDropEffects.None  
End If  
End Sub  
 
Private Sub TextBox2_DragDrop(ByVal sender As Object, ByVal e As _  
System.Windows.Forms.DragEventArgs) Handles TextBox2.DragDrop  
' Paste the text.  
TextBox2.Text = e.Data.GetData(DataFormats.  
End Sub 

在上面的例子中，MouseDown事件是用來判斷鼠標是否按下的，MouseMove事件中用到了DoDragDrop方法。盡管你可以在 MouseDown事件中來初始化Drag，然而這么做會帶來出人意料之外的結果。在用戶點擊控件時，將顯示no-drag 指針。DoDragDrop方法有兩個參數
◆data，這個例子中代表的是第一個TextBox的Text屬性。
◆allowedEffects，這個例子中是只允許復制。

【編輯推薦】

1. 深入分析VB.NET條件語句中的兩類
2. 五大類VB.NET運算符全面介紹
3. 全面討論VB.NET申明Windows API函數
4. 剖析VB.NET平臺調用是如何執行操作
5. 分享個人總結VB.NET多線程