容器中控件的拖动

 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 拖放事件的目标所允许的动作 







 



    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 







 



补充：Web开发 , ASP.Net ,

上一个：单元测试辅助类
下一个：设置tabcontrol控件选项卡的字体为竖着的