0

トリミング (画像内から画像を取得する) に必要なコードは何ですか?

4

1 に答える 1

2

このコードは、(長方形の) 入力画像から必要な寸法の小さな長方形を作成し、それをPictureBox( PictureBox1) にロードすることによって機能します。これは、カード ゲーム ソフトウェアに役立ちます。

Private Function CropBitmap(ByRef bmp As Bitmap, ByVal cropX As Integer, ByVal cropY As Integer, ByVal cropWidth As Integer, ByVal cropHeight As Integer) As Bitmap 
    Dim rect As New Rectangle(cropX, cropY, cropWidth, cropHeight) 
    Dim cropped As Bitmap = bmp.Clone(rect, bmp.PixelFormat) 
    Return cropped 
End Function  
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 
    Dim FN = "full path of the image file"
    Dim bmp As Bitmap bmp = Bitmap.FromFile(FN) 
    PictureBox1.Image = CropBitmap(bmp, 4, 4, 13, 16) 
End Sub
于 2013-08-20T02:06:23.133 に答える