タイトル : Re^3: グラフィックの大きさについて 投稿日 : 2007/03/05(Mon) 07:34 投稿者 : 花ちゃん
> Dim image As Image = image.FromFile(objFile) > Dim img As New Bitmap(image.Width, image.Height) > Dim g As Graphics = Graphics.FromImage(img) > g.DrawImage(image, 0, 0) g.DrawImage(image, 0, 0, image.Width, image.Height) にすると同じ大きさで表示されます。 又は、下記でもOK Private Sub Button2_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button2.Click PictureBox1.SizeMode = PictureBoxSizeMode.Normal PictureBox1.Width = 738 PictureBox1.Height = 468 Dim image As Image = image.FromFile(objFile) Dim img As New Bitmap(image.Width, image.Height) Dim g As Graphics = Graphics.FromImage(img) g.DrawImage(image, 0, 0) If PictureBox1.Image IsNot Nothing Then PictureBox1.Image = Nothing End If PictureBox1.Image = img g.Dispose() End Sub |