在Visual Basic Express 2010中獲取位圖圖像的一部分

Question

裁剪所需的代碼是什麼（從圖片中獲取圖像）？

Answer 1

此代碼通過從（矩形）輸入圖像創建具有所需尺寸的較小矩形並將其加載到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