非常に手抜き パネルの上にピクチャボックス乗せて Private Sub PictureBox1_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles PictureBox1.MouseEnter _OnCtrl = True End Sub Private Sub PictureBox1_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles PictureBox1.MouseLeave _OnCtrl = False End Sub Private Sub Panel1_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles Panel1.MouseEnter _OnPan = True End Sub Private Sub Panel1_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Panel1.MouseLeave _OnPan = False End Sub Private Sub Panel1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Panel1.MouseUp _OnDrg = False End Sub Private Sub Panel1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Panel1.MouseDown If Not _OnDrg Then _OnDrg = True _PrvPnt = New Point(e.X, e.Y) End If End Sub
_wk = Panel1.Width _wk += _CurPnt.X - _PrvPnt.X If _wk < 6 Then _wk = 6 If _wk > 480 Then _wk = 480 Panel1.Width = _wk PictureBox1.Width = _wk - 5 _wk = Panel1.Height _wk += _CurPnt.Y - _PrvPnt.Y If _wk < 6 Then _wk = 6 If _wk > 480 Then _wk = 480 Panel1.Height = _wk PictureBox1.Height = _wk - 5 End If End If _PrvPnt = _CurPnt End If End Sub
