VB6在Form1中,有4个Frame重叠,6个Command命令按钮,怎么设置Command1控制Frame1显示,隐藏Frame2`3`4
到底几个按钮呢?怎么说有6个按钮,只说了按钮1,2,3,6的功能要求?
我就只说一下Command1的代码好了!
隐藏和显示,其实控件都通过Visible属性来实现的,很简单也很好理解!我想不用解释了吧?
Private Sub Command1_Click()
Frame1.Visible = True
Frame2.Visible = False
Frame3.Visible = False
Frame4.Visible = False
End Sub
其它的按钮,你完全可以模仿这段代码来实现。
不过,为了简化代码,你可以编一个过程,带一个参数:
例如:
Private sub 设置框架显示(Byval n as integer)
'先把所有框架都隐藏
Frame1.Visible = False
Frame2.Visible = False
Frame3.Visible = False
Frame4.Visible = False
'然后根据n值来显示对应框架
Select case n
case 1
Frame1.Visible = True
case 2
Frame2.Visible = True
case 3
Frame3.Visible = True
case 4
Frame4.Visible = True
end select
end dub
那么,在按钮的单击事件里代码就简单了;
Private Sub Command1_Click()
Call 设置框架显示(1)
End Sub
同样类似
Private Sub Command2_Click()
Call 设置框架显示(2)
End Sub
......
当然,你如果使用控件数组,那么代码将更加简略!
用TAB控件,直接点击书签即可实现,你那太麻烦了。