VB如何添加切换窗口?
我想做个互相能切换的页面,但吧知道怎么做!我已经试过添加窗体功能了,不过还是不行!请高手知道一下!希望说的具体一点...
我想做个互相能切换的页面,但吧知道怎么做!我已经试过添加窗体功能了, 不过还是不行!请高手知道一下!希望说的具体一点
展开
展开全部
对楼上的没语言。
估计他连你问的问题都不很清楚,
楼主先参考下这个,
每次发完问题了看下相关的问题
=================
VB中有例子,你可以尝试自行研究。
方法:工程 - 添加窗体 - 选项对话框。这个选项对话框已经有相关的应用代码。
不过你可以尝试人性化的自定义。方法:
工程 - 部件 - Microsoft Windows Common Controls *.*
点解TabStrip图标,添加到窗体。
右键点击TabStrip,选择属性,对TabStrip进行自定义。
点击选项卡,在标题栏填写类似新建、现存、最新等名字。如果需要添加选项卡,可以点击插入选项卡按钮
实现点击切换:我比较喜欢在窗体中添加Frame,点击选项卡则显示相应的Frame。例如:
Private Sub TabStripSite_Click()
'设置选项卡点击显示情况
For Counter = 0 To TabStripSite.Tabs.Count - 1 '从0开始计算判断所点击的选项卡
Select Case TabStripSite.SelectedItem.Caption '判断选中的选项卡的标题栏(Caption)的值
Case FraSiteBasic.Caption
FraSiteBasic.Visible = True '设置Visible状态
FraSiteOwner.Visible = True
FraSiteLocal.Visible = False
FraSitePower.Visible = False
Case FraSiteLocal.Caption
FraSiteBasic.Visible = False
FraSiteOwner.Visible = False
FraSiteLocal.Visible = True
FraSitePower.Visible = False
Case FraSitePower.Caption
FraSiteBasic.Visible = False
FraSiteOwner.Visible = False
FraSiteLocal.Visible = False
FraSitePower.Visible = True
End Select
Next
End Sub
==========
希望能帮上一点忙
估计他连你问的问题都不很清楚,
楼主先参考下这个,
每次发完问题了看下相关的问题
=================
VB中有例子,你可以尝试自行研究。
方法:工程 - 添加窗体 - 选项对话框。这个选项对话框已经有相关的应用代码。
不过你可以尝试人性化的自定义。方法:
工程 - 部件 - Microsoft Windows Common Controls *.*
点解TabStrip图标,添加到窗体。
右键点击TabStrip,选择属性,对TabStrip进行自定义。
点击选项卡,在标题栏填写类似新建、现存、最新等名字。如果需要添加选项卡,可以点击插入选项卡按钮
实现点击切换:我比较喜欢在窗体中添加Frame,点击选项卡则显示相应的Frame。例如:
Private Sub TabStripSite_Click()
'设置选项卡点击显示情况
For Counter = 0 To TabStripSite.Tabs.Count - 1 '从0开始计算判断所点击的选项卡
Select Case TabStripSite.SelectedItem.Caption '判断选中的选项卡的标题栏(Caption)的值
Case FraSiteBasic.Caption
FraSiteBasic.Visible = True '设置Visible状态
FraSiteOwner.Visible = True
FraSiteLocal.Visible = False
FraSitePower.Visible = False
Case FraSiteLocal.Caption
FraSiteBasic.Visible = False
FraSiteOwner.Visible = False
FraSiteLocal.Visible = True
FraSitePower.Visible = False
Case FraSitePower.Caption
FraSiteBasic.Visible = False
FraSiteOwner.Visible = False
FraSiteLocal.Visible = False
FraSitePower.Visible = True
End Select
Next
End Sub
==========
希望能帮上一点忙
参考资料: http://zhidao.baidu.com/question/25216482.html?fr=qrl3
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询