Vb6 移动图像？

我制作了一个程序，把一幅图像分成四部分。每个零件都应放在新的

图片盒中

，但要从图像中剪切的零件仍应位于原始图片中的相同位置

如何使图像的第2、3或4部分位于

picturebox2

中的位置1（从（0,0）开始，数组中的位置仍然不在

PictureBox1

中的相同位置）

---

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

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

---

非常感谢你，但是你能用简单的方式给我解释一下这增加了乐趣吗

j

从

h/2

变为

h

，但您希望复制的图片开始一个

y=0

。因此，不要将其插入

y=j

，而是创建一个从

0

开始的新索引

j2

。由于

For

-语句仅递增

j

，因此必须在循环结束时使用

j2+=1

（与

j2=j2+1

明确递增

j2

）。或者，您可以使用

Picture2.PSet（i，j-h/2）、RGB（k，k，k）

插入像素。

Dim j2 As Long
j2 = 0

...

    Next
    j2 = j2 + 1
Next