学习VB.NET时，你可能会遇到VB.NET实现拖动图片问题，这里将介绍VB.NET实现拖动图片问题的解决方法，在这里拿出来和大家分享一下。尽管VB.NET实现拖动图片并不像拖放文本那样经常用到，然而它在许多应用程序中仍然是很有用的。实际上这两者之间也没有什么不同，只不过是数据类型发生了变化而已。
1、 在Form中添加两个PictureBox控件。
2、 在代码窗体中添加如下代码

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _  
System.EventArgs) Handles MyBase.Load  
' Enable dropping.  
PictureBox2.AllowDrop = True 
End Sub  
 
Private Sub PictureBox1_MouseDown(ByVal sender As Object, ByVal e As _  
System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseDown  
If Not PictureBox1.Image Is Nothing Then  
' Set a flag to show that the mouse is down.  
m_MouseIsDown = True 
End If  
End Sub  
 
Private Sub PictureBox1_MouseMove(ByVal sender As Object, ByVal e As _  
System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseMove  
If m_MouseIsDown Then  
' Initiate dragging and allow either copy or move.  
PictureBox1.DoDragDrop(PictureBox1.Image, DragDropEffects.Copy Or _  
DragDropEffects.Move)  
End If  
m_MouseIsDown = False 
End Sub  
 
Private Sub PictureBox2_DragEnter(ByVal sender As Object, ByVal e As _  
System.Windows.Forms.DragEventArgs) Handles PictureBox2.DragEnter  
If e.Data.GetDataPresent(DataFormats.Bitmap) Then  
' Check for the CTRL key.  
If e.KeyState = 9 Then  
e.Effect = DragDropEffects.Copy  
Else  
e.Effect = DragDropEffects.Move  
End If  
Else  
e.Effect = DragDropEffects.None  
End If  
End Sub  
 
Private Sub PictureBox2_DragDrop(ByVal sender As Object, ByVal e As _  
System.Windows.Forms.DragEventArgs) Handles PictureBox2.DragDrop  
' Assign the image to the PictureBox.  
PictureBox2.Image = e.Data.GetData(DataFormats.Bitmap)  
' If the CTRL key is not pressed, delete the source picture.  
If Not e.KeyState = 8 Then  
PictureBox1.Image = Nothing 
End If  
End Sub 

注意到上面的例子中第二个PictureBox控件的AllowDrop属性是在Form1_load事件中设置的，这是因为设计时PictureBox并没有AllowDrop属性。在MouseDown事件中，代码首先检测是否有要赋给PictureBox的图片；如果没有的话，当你移动图片后，接下来的click将引发一个意外。还应该注意到的是在DragEnter和DragDrop事件中代码检测CTRL键是否被按下，从而决定是否是复制还是VB.NET实现拖动图片。

为什么值会不同呢？在 DragEnter事件中，当鼠标左键按下时，产生的值是1，在加上CTRL的值8，从而值为9。见KeyState枚举列表DragEventArgs.KeyState Property到目前为止，这两个例子处理的都是同一窗体不同控件间的拖放，然而在同一应用程序的不同窗体上同样适用。

【编辑推荐】

1. 深入分析VB.NET条件语句中的两类
2. 五大类VB.NET运算符全面介绍
3. 全面讨论VB.NET申明Windows API函数
4. 剖析VB.NET平台调用是如何执行操作
5. 分享个人总结VB.NET多线程