移动图像？

Question

我制作了一个程序，将图像分成四个部分。每个部分都应放在新的picturebox中，但要从图像中剪切的部分仍应位于原始图片中的相同位置。

如何在picturebox2中的位置1中创建图像的第2,3或4部分（从（0,0）开始，数组中的位置仍然不在{{1}中的相同位置}）？

picture box1

Answer 1

对从零开始的第二张图片使用新的垂直索引。

Dim j2 As Integer = 0
For j = h / 2 To h
    For i = 0 To w / 2
        k = imag(i, j)
        Picture2.PSet (i, j2), RGB(k, k, k)
    Next
    j2 += 1
Next

注意：在VB6中你必须写

Dim j2 As Long
j2 = 0

...

    Next
    j2 = j2 + 1
Next