C# と VB.NET の質問掲示板

わんくま同盟

ASP.NET、C++/CLI、Java 何でもどうぞ

C# と VB.NET の入門サイト


(過去ログ 123 を表示中)
■73255 / )  PictureBoxに表示されている画像を拡大/縮小したい
□投稿者/ 巻 (12回)-(2014/09/03(Wed) 11:48:52)

分類:[VB.NET/VB2005 以降] 

使用ソフト
Microsoft Visual Studio 2010
.net framework 4


最終目標
PictureBoxに表示されている画像の表示状態をサイズモード:ズームで表示させ、
クリックしたらサイズモード:ズームの状態から拡大を始めたい



現在の状況
http://dobon.net/vb/dotnet/graphics/zoominout.html
こちらのコードで拡大縮小については出来たのですが、
初めの表示状態がその画像のサイズそのままとなってしまうので、

'画像を表示する
PictureBox1.Invalidate()
PictureBox1.Image = currentImage
PictureBox1.SizeMode = PictureBoxSizeMode.Zoom
currentImage = Nothing

として、サイズモードをズームにしました。


PictureBox1のMouseDownイベントハンドラの際には、

If PictureBox1.Image Is Nothing Then

            If currentImage Is Nothing Then
                '画像が表示されていないので拡大・縮小しない

            Else

                'クリックされた位置を画像上の位置に変換
                Dim imgPoint As New Point(CInt(Math.Round((e.X - drawRectangle.X) / zoomRatio)), _
                                          CInt(Math.Round((e.Y - drawRectangle.Y) / zoomRatio)))

                '倍率を変更する
                If e.Button = MouseButtons.Left Then
                    zoomRatio *= 2.0

                ElseIf e.Button = MouseButtons.Right Then
                    zoomRatio *= 0.5

                End If

                '倍率変更後の画像のサイズと位置を計算する
                drawRectangle.Width = CInt(Math.Round(currentImage.Width * zoomRatio))
                drawRectangle.Height = CInt(Math.Round(currentImage.Height * zoomRatio))
                drawRectangle.X = CInt(Math.Round(pb.Width / 2.0 - imgPoint.X * zoomRatio))
                drawRectangle.Y = CInt(Math.Round(pb.Height / 2.0 - imgPoint.Y * zoomRatio))

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

            End If

        Else

            currentImage = PictureBox1.Image

            'クリックされた位置を画像上の位置に変換
            ・・・(同上)・・・

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

        End If

とやっていました。

しかしこのままだと、
・クリックすると画像本来のサイズに戻る
・どこをクリックしても関係なく右上端を拡大した状態になる
上記の状態になってしまいます。


この状態について
・クリックすると画像本来のサイズに戻る
 →サイズモード:ズームになっているのはPictureBoxでありcurrentImageではないので、PictureBoxをNothingにするとズーム状態もNothingとなり
通常サイズのcurrentImageが表示されるため

・どこをクリックしても関係なく右上端を拡大した状態になる
 →クリックしているのはPictureBox.ImageでありcurrentImageではない。
実際に拡大されるのはcurrentImageであるのにPictureBox.Imageをクリックしているため目的の場所が拡大されない。
そしてクリックすると「PictureBox.Imageが消えcurrentImageが表示される」というだけなので拡大されているわけではない。

と考えています。(間違えていた場合、ご指摘お願いします。)

しかし、それをどう解決したらいいかが分からず困っています。
何か解決方法がございましたら、ご教授願います。
よろしくお願いします。

返信 編集キー/


管理者用

- Child Tree -