nct127综艺节目:求vb控件——Tab/Page控件

来源:百度文库 编辑:查人人中国名人网 时间:2024/03/29 21:58:41
求vb控件
就像Tab/Page那样的选项卡控件
要求:
可以动态添加删除Tab/Page(指选项卡中的每一张选项卡,下同),
可以动态向其中的Tab/Page添加控件并对该控件进行操作,
可以选择标签的位置(Top/Bottom/Left/Right)
免费。。体积小。。。
*若Tab/Page支持图标更好。(这条不是硬性要求)

方法:
注*的地方是让选项卡带图标/图片的方法
如果还有疑惑,请选中控件,按 F1

1.添加部件引用
Microsoft Windows Common Controls 6.0 (MSCOMCTL.OCX)
或 Microsoft Windows Common Controls 5.0 (comctl32.ocx)
2*.放置一个ImageList控件,命名为 IL1
3*.打开 IL1 的属性页,设定图片大小,再添加图片
3.在窗体上放置一个 TabStrip 命名为 TS1
在属性页有详细设置
4*.将属性页中的“图像列表(ImageList)” 设置为 IL1

5.代码:
1 > 动态添加选项卡
TS1.Tabs.Add 3,"NP","NEW PAGE",2
'参数设定:
'3 为索引编号(Index),可选。
'"NP" 为关键字(Key),可选
'"NEW PAGE" 为标签文字(Caption),可选
'2 为图像列表中图片的编号或关键字,可选

'如果没有图像列表,则使用
TS1.Tabs.Add 3,"NP","NEW PAGE"
2 > 删除选项卡
TS1.Tabs.Remove 3
'参数设定:
'3 为要删除的选项卡的索引编号(Index) 或 关键字(Key)

'也可以使用
TS1.Tabs.Remove "NP"
'其中 "NP" 为关键字(Key)
3 > 选项卡的控件
'由于 TabStrip 不支持子控件,所以可以使用 PictureBox 等来容纳选项卡中的控件
'然后使用其 Click 事件切换显示的 PictureBox
'下面是一个典型的代码事例

'请将 3 个 PictureBox 的控件数组放置在窗体上
'命名为 PB1
'将 BorderStyle 设为 0
'将 Visible 设为 False
'将 PB1(0) 的位置刚好移动到 TS1 的内容区
'设定好大小
'然后分别往里面添加控件

'代码:
Private Sub Form_Load()
'初始化
Dim I AS Long
For I = 0 To PB1.Count - 1
PB1(I).Move PB1(0).Left, PB1(0).Top, PB1(0).Width, PB1(0).Height
Next I
End Sub

Private Sub TS1_Click()
Dim I AS Long
For I = 0 To PB1.Count - 1
PB1(I).Visible = False
Next I
PB1(TS1.SelectedItem).Visible = True
End Sub

不是有现成的吗?
在标准控件里面。
QQ107014218联系