UC知道怎样用编vb同一列的图像框一个跟着一个往下掉
来源：百度知道 编辑：UC知道 时间：2024/05/27 07:47:32
最底层的一个似乎有地板顶着，随便抽出一个或两个或三个,上面要是有图框的就往下掉
假定有三列，每列有6个图框，同一行的要是有三个图像相同，那么就消失，他们上面的图框同时往下掉，同一列要是三个图像相同，那么就消失（visible属性），同样（以上）往下掉。并且鼠标点击同行或同列相邻的两个图框时，那么他们位置互换，要是有三个图框满足以上的情况也有同样效果。（每一往下掉的图框都有动感）急得解决，
拜托快而详细代码
假定有三列，每列有6个图框，同一行的要是有三个图像相同，那么就消失，他们上面的图框同时往下掉，同一列要是三个图像相同，那么就消失（visible属性），同样（以上）往下掉。并且鼠标点击同行或同列相邻的两个图框时，那么他们位置互换，要是有三个图框满足以上的情况也有同样效果。（每一往下掉的图框都有动感）急得解决，
拜托快而详细代码
用timer控件来控制image或picture的top属性。比如你有六个image
Private Sub Timer1_Timer()
For i = 0 To 6
If Image2(i).Left > a Then
Image2(i).Left = Image2(i).Left - b
Else
Image2(i).Left = c
End If
Next i
End Sub
（a，b，c是根据实际情况来确定的）
用timer工具循环第一个到最后一个图片筐，改变他们的top属性从顶端到底部
for