タイトル : Re: PictureBoxのサイズをドラッグで変更 投稿日 : 2008/03/08(Sat) 09:58 投稿者 : 琴
> Private Sub Label2_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Label2.MouseMove > If e.Button = System.Windows.Forms.MouseButtons.Left Then > Dim Y1 As Long = posy - e.Y > Label1.Top -= Y1 > PictureBox1.Height -= Y1 > End If > End Sub Label2を動かすのにLabel1の位置を規準にするのはおかしいですよね? |