Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim img As New Bitmap("E:\kenan.jpg")
Dim a As String = img.Width / 3
Dim b As String = img.Height / 3
PictureBox1.Image = System.Drawing.Image.FromFile("E:\kenan.jpg")
PictureBox1.SizeMode = PictureBoxSizeMode.Zoom
PictureBox2.SizeMode = PictureBoxSizeMode.Zoom
PictureBox3.SizeMode = PictureBoxSizeMode.Zoom
PictureBox4.SizeMode = PictureBoxSizeMode.Zoom
Dim rc1 As Rectangle = New Rectangle(0, 0, a, b)
Dim newImg1 As Image = img.Clone(rc1, Imaging.PixelFormat.Format32
bp
pArgb)
PictureBox2.Image = newImg1
Dim rc2 As Rectangle = New Rectangle(a, 0, (2 * a), b)
Dim newImg2 As Image = img.Clone(rc2, Imaging.PixelFormat.Format32bppArgb)
PictureBox3.Image = newImg2
Dim rc3 As Rectangle = New Rectangle((2 * a), 0, (3 * a), b)
Dim newImg3 As Image = img.Clone(rc3, Imaging.PixelFormat.Format32bppArgb)
PictureBox4.Image = newImg3
End Sub

请教大神，是不是哪里出现了问题，谢谢。

错误出在倒数第3行

你的rect的范围已经超出了bitmap的范围了，也就是说rect有一部分在bitmao里面是不存在的

有大神在吗？

Function ClipImg(input As Bitmap) As Bitmap(,)
Dim w As Integer = input.Width / 3, h As Integer = input.Height / 3
Dim ret(2, 2) As Bitmap
For i As Integer = 0 To 2
For j As Integer = 0 To 2
ret(i, j) = input.Clone(New Rectangle(w * i, h * j, w,h), Imaging.PixelFormat.DontCare)
Next
Next
Return ret
End Function
传入一个bitmap，输出一个二维数组。

还有你确定你那个bmp不是特别小的那种。。

内存泄漏，很明显。点击多次后内存就满了。img没释放。

Dim img As New Bitmap("E:\kenan.jpg")
PictureBox1.Image = img
Dim a(,) As Bitmap
a = ClipImg(img)

Public Class Form1
Function ClipImg(input As Bitmap) As Bitmap(,)
Dim w As Integer = input.Width / 3, h As Integer = input.Height / 3
Dim ret(2, 2) As Bitmap
For i As Integer = 0 To 2
For j As Integer = 0 To 2
ret(i, j) = input.Clone(New Rectangle(w * i, h * j, w, h), Imaging.PixelFormat.DontCare)
Next
Next
Return ret
End Function
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim img As New Bitmap("E:\kenan.jpg")
PictureBox1.Image = img
Dim a(,) As Bitmap
a = ClipImg(img)
PictureBox1.SizeMode = PictureBoxSizeMode.Zoom
PictureBox2.SizeMode = PictureBoxSizeMode.Zoom
PictureBox2.Image = a(0, 0)

那就是用完图片你没有释放内存。。记得用完了写dispose。。

Using img As New Bitmap .........
......
End Using
这样写不会漏掉Dispose，因为End Using是IDE自动添加的。

换种方法试试，用graphics+drawimage裁剪，记得用using。

楼主也是牛人啊！

程序如何写如何才能像QQ那样截图