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