| ■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
上記のように変更しましたところ、希望通りの動きをするようになりました。
ありがとうございました。 |