- 环境:windows7 ,vb2010
- Public Class Form1
- Private m_MouseIsDown As Boolean
- Private Sub Form1_Load(ByVal senderAs System.Object,ByVal e As System.EventArgs)Handles MyBase.Load
- PictureBox2.AllowDrop = True
- PictureBox1.AllowDrop = True
- End Sub
- Private Sub PictureBox1_MouseDown(ByVal senderAs Object,ByVal e As System.Windows.Forms.MouseEventArgs)Handles PictureBox1.MouseDown
- If Not PictureBox1.ImageIs NothingThen ' Set a flag to show that the mouse is down.
- m_MouseIsDown = True
- End If
- End Sub
- Private Sub PictureBox1_MouseMove(ByVal senderAs 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_DragDrop(ByVal senderAs 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 = 8Then
- PictureBox1.Image = Nothing
- End If
- End Sub
- Private Sub PictureBox2_DragEnter(ByVal senderAs 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
- End Class
讲述VB.NET实现拖动图片
最新推荐文章于 2021-10-30 18:46:28 发布