ＶＢ．ＮＥＴの画像の切り取りについて教えて

Dim bmp1 As Bitmap
Dim bmp2 As Bitmap

となっていて、bmp1にファイルから読み込んだ画像を入れてあり
bmp2に切り出し位置とサイズを指定して、bmp1の一部を入れたいのですが、
どのようにやれば良いでしょうか。
PictureBoxを使う方法はサンプルを見つけたのですが、
PictureBoxを使わずにやりたいのですが方法がありましたら
ご教授頂けないでしょうか。宜しくお願い致します。
Frameworkは１．１です。

No.1 ベストアンサー 回答者： himajin100000 回答日時： 2008/05/24 02:42

'一応.NET 3.5で動作確認はしている

'MSDNを見る限り,.NET 1.1等をサポートしていると書いてあるが,1.1専用のページがなく,
'検証もしていないので動かないかも。

Option Explicit On
Option Compare Binary
Option Strict On

Class Q4045416A
Shared Sub Main()
Dim Source As System.Drawing.Bitmap
Dim temp As System.Drawing.Bitmap
Dim Destination As System.Drawing.Bitmap
Dim SourceRectangleF As System.Drawing.RectangleF
Dim DestinationRectangleF As System.Drawing.RectangleF

Source = New System.Drawing.Bitmap("Q4045416-1.bmp")

SourceRectangleF.X = 10
SourceRectangleF.Y = 10
SourceRectangleF.Width = 10
SourceRectangleF.Height = 10

'ただ保存するならtemp.Save("Q4045416-2.bmp")だけで良いが,
'折角だから切り取った部分を任意の位置に描いてみよう。
temp = Source.Clone(SourceRectangleF,System.Drawing.Imaging.PixelFormat.Format24bppRgb)

DestinationRectangleF.X = 40
DestinationRectangleF.Y = 40
DestinationRectangleF.Width = 10
DestinationRectangleF.Height = 10

Destination = New System.Drawing.Bitmap(50,50,System.Drawing.Imaging.PixelFormat.Format24bppRgb)
System.Drawing.Graphics.FromImage(Destination).DrawImage(temp,DestinationRectangleF)
Destination.Save("Q4045416-2.bmp")



End Sub
End Class

この回答へのお礼

ご回答ありがとうございます。
とても分かりやすく表示のところまで教えて頂いて感謝です。
早速活用させて頂きたいと思います。
どうもありがとうございました。

お礼日時：2008/05/24 06:35