タイトル | : Re: スクリーンショット |
記事No | : 5680 |
投稿日 | : 2007/06/21(Thu) 19:17 |
投稿者 | : 魔界の仮面弁士 |
Dim size As Size = Screen.PrimaryScreen.Bounds.Size Dim newBmp As New Bitmap(size.Width, size.Height) Using g As Graphics = Graphics.FromImage(newBmp) g.CopyFromScreen(0, 0, 0, 0, size) End Using Using oldImage As Image = PictureBox1.Image PictureBox1.Image = newBmp End Using PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage
|