タイトル : Re^2: グラフィックの大きさについて 投稿日 : 2007/03/05(Mon) 03:41 投稿者 : Tomi
花ちゃん様、Hongliang様 早速の回答ありがとうございます。 花ちゃん様、本当にありがとうございます。 > そのコードで 200 × 200 程度のビットマップファイルで試して見ましたが同じ > サイズで表示されます。 > どのような画像(拡張子は)を使っておられるのか? W2200,H1700相当のJpeg画像ファイルです。 > 小さいサイズなら問題がないのか? 不思議なことに確かに、小さな画像では問題ないようです。 > まったくの新規のプロジェクトで試しても同じなのか? > 他の画像ファイルならどうなのか? 等々、もう少し問題を絞り込んだ方がいいのでは。 数種類の画像データで試してみましたが、結果は同じでした。 > 確実に事象を再現できるコードを投稿して頂くと試してみる事も出来るのですが。 新規プロジェクトにて、下記コードを作成しましたが、結果は同じでした。 Public Class Form1 Dim objFile As String = "c:\obj.jpg" Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click If PictureBox1.Image IsNot Nothing Then PictureBox1.Image = Nothing End If PictureBox1.Image = Image.FromFile(objFile) End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click 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 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load PictureBox1.SizeMode = PictureBoxSizeMode.Normal PictureBox1.Width = 738 PictureBox1.Height = 468 End Sub End Class Hongliang様、 ご指導をいただきありがとうございます。 自分の力不足ゆえ、調べるところまでまだ至っておりません。申し訳ございません。 いま少し、自力でがんばってみます。 花ちゃん様、Hongliang様、 再度、ご指摘、ご指導があれば、よろしくお願いします。 もし、自分なりにわかれば、必ず報告させていただきます。 |