PictureBoxの画像の拡大縮小移動 (ID:148239)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

これでどうでしょう？
MouseWheelとMouseMove以外省略してあります。
drawRectangleはRectangleFで定義してあります。

Private Sub PictureBox1_MouseWheel(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseWheel
        Dim zoomRatio1 = zoomRatio
        If e.Delta > 0 Then
            zoomRatio *= 1.2!
        Else
            zoomRatio *= 0.8!
        End If

'倍率変更後の画像のサイズと位置を計算する
        drawRectangle.Width = PictureBox1.Width * zoomRatio
        drawRectangle.Height = PictureBox1.Height * zoomRatio
        drawRectangle.X = e.X - (e.X - drawRectangle.X) * zoomRatio / zoomRatio1
        drawRectangle.Y = e.Y - (e.Y - drawRectangle.Y) * zoomRatio / zoomRatio1

' 画像を表示する
        PictureBox1.Invalidate()

End Sub

Private Sub PictureBox1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseMove
        If bDrag Then
            drawRectangle.Offset(e.X - ptDrag.X, e.Y - ptDrag.Y)
            ptDrag = e.Location

'画像を表示する
            PictureBox1.Invalidate()
        End If
    End Sub

←解決時は質問者本人がここをチェックしてください。

戻る