剖析VB.NET TextBox控件

开发 后端
这里介绍VB.NET TextBox控件,拖放操作的一个很简单然而很有用的情形是从一个VB.NET TextBox控件复制文本到另一个VB.NET TextBox控件。

经过长时间学习VB.NET TextBox控件,于是和大家分享一下,看完本文你肯定有不少收获,希望本文能教会你更多东西。拖放操作的一个很简单然而很有用的情形是从一个VB.NET TextBox控件复制文本到另一个VB.NET TextBox控件。当然你可以只用键盘就能实现(CTRL + C and CTRL + V),然而拖放更简单因为它仅需要鼠标的移动就可以完成。

向一个窗体中添加两个文本框,并把第二个VB.NET TextBox控件的AllowDrop属性设置成True,添加如下代码。

  1. Private MouseIsDown As Boolean = False 
  2. Private Sub TextBox1_MouseDown(ByVal sender As Object, ByVal e As _  
  3. System.Windows.Forms.MouseEventArgs) Handles TextBox1.MouseDown  
  4. ' Set a flag to show that the mouse is down.  
  5. MouseIsDown = True 
  6. End Sub  
  7.  
  8. Private Sub TextBox1_MouseMove(ByVal sender As Object, ByVal e As _  
  9. System.Windows.Forms.MouseEventArgs) Handles TextBox1.MouseMove  
  10. If MouseIsDown Then  
  11. ' Initiate dragging.  
  12. TextBox1.DoDragDrop(TextBox1.Text, DragDropEffects.Copy)  
  13. End If  
  14. MouseIsDown = False 
  15. End Sub  
  16.  
  17. Private Sub TextBox2_DragEnter(ByVal sender As Object, ByVal e As _  
  18. System.Windows.Forms.DragEventArgs) Handles TextBox2.DragEnter  
  19. ' Check the format of the data being dropped.  
  20. If (e.Data.GetDataPresent(DataFormats.Text)) Then  
  21. ' Display the copy cursor.  
  22. e.Effect = DragDropEffects.Copy  
  23. Else  
  24. ' Display the no-drop cursor.  
  25. e.Effect = DragDropEffects.None  
  26. End If  
  27. End Sub  
  28.  
  29. Private Sub TextBox2_DragDrop(ByVal sender As Object, ByVal e As _  
  30. System.Windows.Forms.DragEventArgs) Handles TextBox2.DragDrop  
  31. ' Paste the text.  
  32. TextBox2.Text = e.Data.GetData(DataFormats.  
  33. 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多线程
责任编辑:佚名 来源: 比特网
相关推荐

2009-10-13 15:09:19

VB.NET使用Tre

2010-01-19 12:53:59

VB.NET Text

2009-10-15 10:57:16

VB.NET Text

2009-10-15 11:11:08

VB.NET Text

2009-10-21 16:00:26

VB.NET CASE

2010-01-12 15:54:47

VB.NET动态控件数

2010-01-13 10:53:24

VB.NET控件

2009-10-20 10:16:24

VB.NET COMB

2009-10-14 10:19:57

VB.NET Doma

2009-10-14 16:04:43

VB.NET Noti

2009-10-29 09:40:35

VB.NET Text

2009-11-02 16:22:16

VB.NET面向对象

2009-10-14 17:21:47

VB.NET定制Win

2009-10-10 16:44:52

VB.NET开发控件

2009-10-29 10:45:01

VB.NET设置控件

2009-10-27 18:06:41

VB.NET开发控件

2009-10-14 11:15:06

VB.NET Grou

2009-10-16 13:19:04

VB.NET Data

2009-10-16 14:07:18

VB.NET使用Mon

2009-10-14 11:27:20

VB.NET Grou
点赞
收藏

51CTO技术栈公众号