讲述VB.NET实现拖动图片
发布时间:2020-12-16 22:48:34 所属栏目:大数据 来源:网络整理
导读:讲述VB.NET实现拖动图片 环境:windows7,vb2010Public Class Form1 Private m_MouseIsDown As Boolean Private Sub Form1_Load(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles MyBase.Load PictureBox2.AllowDrop = True PictureBox1.
讲述VB.NET实现拖动图片环境:windows7,vb2010 Public Class Form1 Private m_MouseIsDown As Boolean Private Sub Form1_Load(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles MyBase.Load PictureBox2.AllowDrop = True PictureBox1.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_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 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 End Class (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |