タイトル : Re^4: 解決しました 投稿日 : 2007/03/06(Tue) 11:54 投稿者 : tomi
花ちゃん様 ご指導ありがとうございます。 コードをご指摘のようにしましたら、解決しました。 g.DrawImage(image, 0, 0, image.Width, image.Height) しかし、私がやりたかったRectAngle構造体などで切り抜き作業をする場合、 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(, 0, 0, NewRectangle(100.100.200.200), GraphicsUnit.Pixel)) とすると、image のW,Hを指定できないので、 結果として画像の大きさ(クリップ領域)がずれてしまうようです。 そこで、ご指導いただいたコードを基に、一旦イメージをNewで確定して、 再度下記のように2度繰り返せば、解決できることが分かりました。 Dim image As Image = image.FromFile(objFile) Dim img1 as New Bitmap(image.Width, image.Height) ’イメージの読み込み Dim g1 as graphics=Graphics.FormFile(img1) g1.DrawImage(image, 0, 0, image.Width, image.Height) 'クリップするイメージ確定 Dim Img2 as New Bitmap(image.Width, image.Height) Dim g2 as graphics=Graphics.FormFile(Img2) g2.DrawImage(img1, 0, 0, NewRectangle(100.100.200.200), GraphicsUnit.Pixel)) 今回はご指導いただき本当にありがとうございました。 改めて御礼申し上げます。 |