牛、豚、鶏、どれか一つ食べられなくなるとしたら?

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

A 回答 (2件)

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で、ピクチャーボックスのサイズを
変更できる。変更後にイメージファイルを読み込めば
縮小表示される
    • good
    • 0
この回答へのお礼

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

お礼日時:2004/01/22 17:51
    • good
    • 0
この回答へのお礼

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

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

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人はこんなQ&Aも見ています


おすすめ情報