在VB.NET中实现拖放操作

第一次在csdn上发文章，希望大家帮忙使劲顶,鼓励一下新手，谢谢 http://msdn.microsoft.com/library/default.asp?url=/library/en-us/dv_vstechart/html/vbtchImpDragDrop.asp 在VB.NET中实现拖放操作 Implementing Drag and Drop in Visual Basic .NET Steve Hoag Visual Basic® .NET Team Microsoft Corporation September 2003 摘要：这篇文章阐述了如何在VB.NET中实现拖放操作 绪论 Windows用户一般分为两类：一类习惯用键盘操作，一类习惯用鼠标操作。程序员们在编程时一般会提供快捷键(在命令或字母中加下划线)或快捷方式(用CTRL加字母的组合)来照顾到那些习惯键盘的用户，但是那些鼠标用户却被忽略了。因为程序员们一般都习惯用键盘，所以他们这种重视键盘操作的特点是可以理解的，但是每个程序员也应该考虑到提供鼠标支持。 鼠标用户所期望的一件事就是能够在应用程序中实现拖放。如果你注意到一些大型应用程序或windows自身的话，拖放操作几乎随处可见。例如，用户可能已经习惯了在windows资源管理器中拖放文件，或在word中拖放文本等操作了。 尽管拖放操作随处可见，但是只有极少数程序员在他们所编写的程序中实现拖放功能，最可能的原因是他们认为实现拖放可能比想象的还要难。这篇文章列举了如何在窗体内、窗体之间，甚至应用程序之间移动文本、图片或者文件的例子，显示了在vb.net中实现拖放是非常容易得。 拖放如何进行 拖放实际上就如同用鼠标复制粘帖，因此你必须有一个可以复制或移动的源，也要有一个可以粘贴的目的地。在这两个操作过程中，数据是保存在内存中的。复制粘贴用的是剪切版，而拖放用的却是一种本质上是私有剪切板的Dataobject的对象。 下面是典型的托放操作的时间序列： 1、拖(dragging)是通过调用源控件的DoDragDrop方法来初始化的，DoDragDrop有两个参数 data，指定将要传送的数据 allowedEffects，指定允许进行的操作（复制或移动） 这样自动创建了一个新的Dataobject对象 2、接下来就依次激发了GiveFeedBack事件。在大多数情况下，你并不需要担心GiveFeedBack事件，然而你如果想自定义拖放过程中的鼠标指针的话，你可以在这些地方加上你的代码。 3、任何有AllowDrop属性而且被设置成True的控件都是隐含的Drop对象。AllowDrop属性可以在设计时的属性窗口中进行设置，也可以在Form_load事件自动加载。 4、当鼠标移到某个控件时，就同时激发了这个控件的DragEnter事件。GetDataPresent方法是用来确认拖过来的数据是否适合目标控件，Effect属性是用来显示适当的鼠标指针。 5、如果用户在有效的目标控件上释放鼠标，就同时激发了DragDrop事件。DragDrop事件句柄中的代码从DataObject对象中释放数据并把它显示在目标控件中。 从VB6到VB.NET有何变化？ （略） 拖放文本 拖放操作的一个很简单然而很有用的情形是从一个TextBox控件复制文本到另一个TextBox控件。当然你可以只用键盘就能实现(CTRL + C and CTRL + V)，然而拖放更简单因为它仅需要鼠标的移动就可以完成。 1、向一个窗体中添加两个文本框，并把第二个TextBox控件的AllowDrop属性设置成True，添加如下代码。 Private MouseIsDown As Bo