VB如何添加切换窗口?
发布网友
发布时间：2023-11-02 21:09
共1个回答
热心网友
时间：2024-12-02 19:44
方法：工程
－
添加窗体
－
选项对话框。这个选项对话框已经有相关的应用代码。
不过你可以尝试人性化的自定义。方法：
工程
－
部件
－
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
＝＝＝＝＝＝＝＝＝＝
希望能帮上一点忙
