请看下面的代码:
For i1 = 0 To 7If (Command2.Top >= Command3(i1).Top And Command2.Top <= Command3(i1).Top + 490) And (Command2.Left > Command3(i1).Left And Command2.Left <= Command3(i1).Left + 1210) Then
Command2.Top = 9000: Command2.Left = Command1.Left + 590
Command3(i1).Visible = False
next i1其中,command3为控件数组，共有8个它,可在屏幕中不断下降(通过其他语句),它的height和width属性分别为495和1215.以上代码的意思是如过command3中的任何一个command与command2向遇时,即两者重合,两者便消失,但实际运行后两者却都不能消失.望大家帮忙解决,本人万分着急!
For i1 = 0 To 7If (Command2.Top >= Command3(i1).Top And Command2.Top <= Command3(i1).Top + 490) And (Command2.Left > Command3(i1).Left And Command2.Left <= Command3(i1).Left + 1210) Then
Command2.Top = 9000: Command2.Left = Command1.Left + 590
Command3(i1).Visible = False
next i1其中,command3为控件数组，共有8个它,可在屏幕中不断下降(通过其他语句),它的height和width属性分别为495和1215.以上代码的意思是如过command3中的任何一个command与command2向遇时,即两者重合,两者便消失,但实际运行后两者却都不能消失.望大家帮忙解决,本人万分着急!
他们两个的top的差如果下于距离，就Command3(i1).Visible = False