Dim part As ePart = _parts.Parts(0) Dim 画像@ As RectangleF = New RectangleF(位置,サイズ) Dim 画像A As RectangleF = New RectangleF(位置,サイズ) Dim roiTrim As RectangleF = RectangleF.Intersect(画像@, 画像A) Dim dst As Bitmap = New Bitmap(幅, 高さ) Dim g As Graphics = Graphics.FromImage(dst)
Dim B切り取る部分の範囲 As RectangleF Dim C描画する部分の範囲 As RectangleF