Private Sub Form_Load()
Frame7(0).Visible = False
Frame7(1).Visible = True
End SubPrivate Sub Command1_Click()
Frame7(0).Visible = True
Frame7(1).Visible = False
End SubPrivate Sub Command2_Click()
Frame7(0).Visible = False
Frame7(1).Visible = True
End Sub为什么frame7(1)就显示不了
Frame7(0).Visible = False
Frame7(1).Visible = True
End SubPrivate Sub Command1_Click()
Frame7(0).Visible = True
Frame7(1).Visible = False
End SubPrivate Sub Command2_Click()
Frame7(0).Visible = False
Frame7(1).Visible = True
End Sub为什么frame7(1)就显示不了
Frame7(0).Visible = True
Frame7(1).Visible = False
End Sub
执行这段了?
还是被盖住了,或者位置移动了
Frame1(0).Visible = True
Frame1(1).Visible = True
Frame1(2).Visible = True
Frame1(3).Visible = True
Frame1(4).Visible = True
Frame1(5).Visible = True
Frame7(0).Visible = False
Frame2.Visible = False
End Sub
Private Sub Command2_Click()
Frame1(0).Visible = False
Frame1(1).Visible = False
Frame1(2).Visible = False
Frame1(3).Visible = False
Frame1(4).Visible = False
Frame1(5).Visible = False
Frame7(0).Visible = True
Frame2.Visible = False
End SubPrivate Sub Command3_Click()
Frame1(0).Visible = False
Frame1(1).Visible = False
Frame1(2).Visible = False
Frame1(3).Visible = False
Frame1(4).Visible = False
Frame1(5).Visible = False
Frame7(0).Visible = False
Frame2.Visible = True
End Sub
但我点击command3就是无法显示Frame2
不知程序哪出错了
如果是应该这样
Frame2(0).Visible = True
楼主:你的代码中为什么没有对frame7(1)进行Visible设置呢?