VB.NETで画像の拡大・縮小

みなさんよろしくお願いします。
Form上にPictureBoxを配置して
ボタンをクリックしながら
画像を拡大したり、縮小したり
したいと思っているのですが、
参考になるようなサイトってあり
ますでしょうか？どうかよろしく
お願いします。

No.1 回答者： primary5869 回答日時： 2004/01/17 20:28

↓

参考URL：http://dobon.net/vb/dotnet/index.html

この回答へのお礼

primary5869さんありがとうございました。

お礼日時：2004/01/22 17:52

No.2 ベストアンサー 回答者： primary5869 回答日時： 2004/01/18 00:16

Dim Bmp As New Bitmap(Pic.Width, Pic.Height)

Dim Fnt As New Font(txtFntName.Text, txtFntSize.Text, RaSty, GraphicsUnit.Pixel)
Dim Bsh As New SolidBrush(ColPic.BackColor)
Bmp = Image.FromFile(FileName)
PoF.X = Int(Bmp.Width * txtPer.Text / 100)
PoF.Y = Int(Bmp.Height * txtPer.Text / 100)
Dim g As Graphics = Graphics.FromImage(Bmp)
g.DrawString(txtStr.Text, Fnt, Bsh, PoF)
Pic.SizeMode = PictureBoxSizeMode.StretchImage
Pic.Width = Bmp.Width / 2
Pic.Height = Bmp.Height / 2
Pic.Image = Bmp
*ソースより抜粋
StretchImageで、ピクチャーボックスのサイズを
変更できる。変更後にイメージファイルを読み込めば
縮小表示される

この回答へのお礼

primary5869さんありがとうございました。

お礼日時：2004/01/22 17:51