タイトル : Re: 画像をPictureBoxにあわせて表示する方法 投稿日 : 2009/09/07(Mon) 14:07 投稿者 : 魔界の仮面弁士
> どのようにすればPictureBoxにあわせて表示できるように出来ますか? PictureBox コントロールに拘らないのであれば、Image コントロールに 切り替えてみては如何でしょうか。Strech プロパティを True に設定すれば、 Image コントロールのサイズに合わせて、画像が拡大/縮小表示されるようになります。 どうしても PictureBox が良いのであれば、このような方法があります。 (PaintPicture の引数指定を変更すれば、縦横比を維持した描画も可能です) Private P As Picture Private Sub Form_Load() Set P = LoadPicture("C:\sample.jpg") End Sub Private Sub Picture1_Paint() Picture1.PaintPicture P, 0, 0, Picture1.Width, Picture1.Height End Sub |