容器中控件的拖動(dòng)
發(fā)表時(shí)間：2024-02-15 來(lái)源：明輝站整理相關(guān)軟件相關(guān)文章人氣：12
[摘要]Private Sub PictureBox2_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox2.MouseDown Me.Pi...
Private Sub PictureBox2_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox2.MouseDown Me.PictureBox2.DoDragDrop(sender, DragDropEffects.Move)
End Sub
Private Sub GroupBox1_DragEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles GroupBox1.DragEnter
e.Effect = DragDropEffects.Move '拖放事件的目標(biāo)所允許的動(dòng)作
End Sub
Private Sub GroupBox1_DragDrop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles GroupBox1.DragDrop
Me.PictureBox1.Controls.Remove(Me.PictureBox2)
Me.GroupBox1.Controls.Add(Me.PictureBox2)
Me.PictureBox2.Left = 0
Me.PictureBox2.Top = 10
MessageBox.Show("dfgdf")
End Sub
Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.GroupBox1.AllowDrop = True
Me.PictureBox1.AllowDrop = True
End Sub
