运行时改变控件大小运行时移动控件MINICAR版

运行时改变控件大小运行时移动控件MINICAR版

VS2005.net编写,网上找了找,见别人写得挺复杂,自己写了一个. 附件居然不能上传.就把代码发到下面吧,

有个奇怪现象就是,VB6中新建工建,拖个PICTUREBOX框出来,拷入以下代码即可,但VB.NET中是不行的.如MOUSEMOVE事件你必须新建工程,拖个PICTUREBOX控件出来,双击PICTUREBOX,再找到MOUSEMOVE事件,再在代码中添加有效代码,个中何解,我也不知,知道的告诉我一声,QQ182226947,CHE7603@TOM.COM

     Public Class Form1
    Dim sX
    Dim sY
    Dim SizeAdj As Boolean

    Private Sub PictureBox1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseDown
        sX = e.X
        sY = e.Y
    End Sub
  
  
    Private Sub PictureBox1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseMove
        If (e.X > PictureBox1.Width - 8 And e.Y > PictureBox1.Height - 8) Or SizeAdj = True Then
            PictureBox1.Cursor = Cursors.SizeNWSE
            If e.Button = Windows.Forms.MouseButtons.Left Then
                SizeAdj = True
                PictureBox1.Width = sx + (e.X - sx)
                PictureBox1.Height = sy + (e.Y - sy)
            End If
        Else
            If e.Button = Windows.Forms.MouseButtons.Left Then
                PictureBox1.Left = PictureBox1.Left + (e.X - sx)
                PictureBox1.Top = PictureBox1.Top + (e.Y - sy)
            End If
            PictureBox1.Cursor = Cursors.Default
        End If
    End Sub

  
    Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click

    End Sub

    Private Sub PictureBox1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseUp
        SizeAdj = False
    End Sub
End Class