Fatal编程技术网
  • vb6/
  • Vb6 移动图像？

Vb6 移动图像？

vb6

Vb6 移动图像？,vb6,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) Pic

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

如何使图像的第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