VB.NET還是比較常用的，于是我研究了一下VB.NET實(shí)現(xiàn)拖放，在這里拿出來(lái)和大家分享一下，希望對(duì)大家有用。Windows用戶一般分為兩類：一類習(xí)慣用鍵盤操作，一類習(xí)慣用鼠標(biāo)操作。程序員們?cè)诰幊虝r(shí)一般會(huì)提供快捷鍵(在命令或字母中加下劃線)或快捷方式(用CTRL加字母的組合)來(lái)照顧到那些習(xí)慣鍵盤的用戶，但是那些鼠標(biāo)用戶卻被忽略了。因?yàn)槌绦騿T們一般都習(xí)慣用鍵盤，所以他們這種重視鍵盤操作的特點(diǎn)是可以理解的，但是每個(gè)程序員也應(yīng)該考慮到提供鼠標(biāo)支持。

鼠標(biāo)用戶所期望的一件事就是能夠在應(yīng)用程序中VB.NET實(shí)現(xiàn)拖放。如果你注意到一些大型應(yīng)用程序或windows自身的話，拖放操作幾乎隨處可見(jiàn)。例如，用戶可能已經(jīng)習(xí)慣了在windows資源管理器中拖放文件，或在word中拖放文本等操作了。

盡管拖放操作隨處可見(jiàn)，但是只有極少數(shù)程序員在他們所編寫的程序中實(shí)現(xiàn)拖放功能，最可能的原因是他們認(rèn)為VB.NET實(shí)現(xiàn)拖放可能比想象的還要難。這篇文章列舉了如何在窗體內(nèi)、窗體之間，甚至應(yīng)用程序之間移動(dòng)文本、圖片或者文件的例子，顯示了在VB.NET實(shí)現(xiàn)拖放是非常容易得。

拖放如何進(jìn)行

拖放實(shí)際上就如同用鼠標(biāo)復(fù)制粘帖，因此你必須有一個(gè)可以復(fù)制或移動(dòng)的源，也要有一個(gè)可以粘貼的目的地。在這兩個(gè)操作過(guò)程中，數(shù)據(jù)是保存在內(nèi)存中的。復(fù)制粘貼用的是剪切版，而拖放用的卻是一種本質(zhì)上是私有剪切板的Dataobject的對(duì)象。
下面是典型的托放操作的時(shí)間序列：

1、拖放(dragging)是通過(guò)調(diào)用源控件的DoDragDrop方法來(lái)初始化的，DoDragDrop有兩個(gè)參數(shù)
◆data，指定將要傳送的數(shù)據(jù)
◆allowedEffects，指定允許進(jìn)行的操作（復(fù)制或移動(dòng)）
這樣自動(dòng)創(chuàng)建了一個(gè)新的Dataobject對(duì)象

2、接下來(lái)就依次激發(fā)了GiveFeedBack事件。在大多數(shù)情況下，你并不需要擔(dān)心GiveFeedBack事件，然而你如果想自定義拖放過(guò)程中的鼠標(biāo)指針的話，你可以在這些地方加上你的代碼。

3、任何有AllowDrop屬性而且被設(shè)置成True的控件都是隱含的Drop對(duì)象。AllowDrop屬性可以在設(shè)計(jì)時(shí)的屬性窗口中進(jìn)行設(shè)置，也可以在Form_load事件自動(dòng)加載。

4、當(dāng)鼠標(biāo)移到某個(gè)控件時(shí)，就同時(shí)激發(fā)了這個(gè)控件的DragEnter事件。GetDataPresent方法是用來(lái)確認(rèn)拖過(guò)來(lái)的數(shù)據(jù)是否適合目標(biāo)控件，Effect屬性是用來(lái)顯示適當(dāng)?shù)氖髽?biāo)指針。

5、如果用戶在有效的目標(biāo)控件上釋放鼠標(biāo)，就同時(shí)激發(fā)了DragDrop事件。DragDrop事件句柄中的代碼從DataObject對(duì)象中釋放數(shù)據(jù)并把它顯示在目標(biāo)控件中。

【編輯推薦】

1. 分析VB QuickSort應(yīng)用程序
2. 如何掌握強(qiáng)大的VB.NET ReadLine()方法
3. 講述強(qiáng)大的VB.NET Web Forms，使用起來(lái)卻如此簡(jiǎn)單
4. 兩步就可以掌握VB使用ArrayList類
5. VB.NET應(yīng)用程序的入門指南