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

使用ソフト
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が表示される」というだけなので拡大されているわけではない。

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

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

■No73260 (shu さん) に返信

shuさん、返答ありがとうございます。
返事が遅くなってしまい申し訳ありません。

> >> 
>>'画像を表示する
>>PictureBox1.Invalidate()
>>PictureBox1.Image = currentImage
>>PictureBox1.SizeMode = PictureBoxSizeMode.Zoom
>>currentImage = Nothing
>>
>>として、サイズモードをズームにしました。
>>
> これが駄目。
> 初期表示時に表示したい倍率を計算してリンク先ロジックに適用
> する必要あり。

ご指摘いただいた箇所を

rateX = PictureBox1.Width / currentImage.Width
rateY = PictureBox1.Height / currentImage.Height

Dim paleceRate As Single
paleceRate = Math.Min(rateX, rateY)

Dim placeSize As Size = New Size()

placeSize.Width = CInt(Math.Round(currentImage.Width * paleceRate))
placeSize.Height = CInt(Math.Round(currentImage.Height * paleceRate))

Dim Image2 As Bitmap = New Bitmap(currentImage, placeSize.Width, placeSize.Height)

'PictureBox1に表示する
PictureBox1.Image = Image2

上記のように変更しましたところ、希望通りの動きをするようになりました。
ありがとうございました。