トリミング (画像内から画像を取得する) に必要なコードは何ですか?
質問する
3903 次
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 に答える