タイトル : Re: スクリーンショット 投稿日 : 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 |