📄 020113.htm
字号:
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>vb study</title><style>
<!--
td {font-size: 9pt}
A:link {text-decoration: none; color: #0033cc;font-size: 9pt}
A:visited {text-decoration: none; color: #0066CC;font-size: 9pt}
A:active {text-decoration: none; color: #ff0000; font-size: 9pt}
A:hover {text-decoration: underline; color: #000000;font-size: 9pt}
-->
</style>
</head>
<body>
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" width="98%">
<tr>
<td width="100%"><a href="#">你的位置</a>：<a href="http://www.xxby.com" target="_blank">华生小屋</a>--<a href="#">VB学习</a>--<a href="#">ActiveX控件</a></td>
</tr>
<tr>
<td width="100%">
<p align="center">主要ActiveX控件</td>
</tr>
<tr>
<td width="100%"><br>
TabStrip控件：<br>
<br>
该控件也用于制作选项卡式对话框，能够将程序中的窗口或对话框的同一区域定义为多页（即分开到多个选项卡中去）。但使用起来比Tabbed Dialog更麻烦一点，由于它的每个选项卡不是1个容器，运行中单击时不能自动变换每张选项卡中的控件，因此代码较多。基本方法是有多少个选项卡，就另添加多少个容器控件，给每个选项卡指定1个容器，然后将要在该页选项卡上显示的控件组绘制到容器中，在TabStrip1_Click()事件中检测单击了哪个选项卡，Select Case TabStrip1.SelectedItem.Key(或index等)，然后显示重叠在一起的容器组中的对应容器，用Zorder方法，如：<br>
Private Sub TabStrip1_Click()<br>
Select Case TabStrip1.SelectedItem.Key <br>
Case "lxm"<br>
Picture1(1).ZOrder 0<br>
Case "lxn"<br>
Picture1(0).ZOrder 0<br>
End Select<br>
End Sub<br>
如果容器是数组，也可用简便方法：<br>
Private Sub TabStrip1_Click() <br>
Picture1(TabStrip1.SelectedItem.Index - 1) . Zorder 0<br>
End Sub<br>
★ 它与Tabbed Dialog相比，也有自己的特点，如可与Imagelist控件联合，显示任意大小的标题图片等。而且还可将Style属性设为1或2按纽样式，作其他用途（如任务条）。<br>
★ Tabs选项卡集合：包含控件中的全部选项卡。每个选项卡是1个tab对象。<br>
★ 将Imagelist控件与TabStrip控件关联：在属性页"通用"卡"图象列表"框中选中Imagelist控件即可。或在代码中将其imagelist属性设为1个ImageList控件名。<br>
★ 添加选项卡：属性页的"选项卡"页中，单击"插入选项卡"按纽，输入标题和关健字，以及1个imagelist控件中的某图象索引或关健字来引用图片，在代码中用Add方法，格式：TabStrip1.Tabs.Add 索引，关健字，标题，图片。<br>
★ 给每个选项卡内部创建不同的显示控件：把要放入特定选项卡的控件组，都放到1个容器控件中，如 Picture或 Frame 控件。需要为每个 Tab 对象创建一个容器。可通过复制并粘贴同一个容器控件，来创建一组容器；在每个容器控件上，绘制应出现在选项卡中的控件。绘制完后，要将容器放置到 TabStrip 控件中的客户区：也可以在代码中使用 Move 方法，移到 Tabstrip 的 ClientLeft、ClientTop、ClientWidth 和 ClientHeight 属性标明的区域，如下所示：<br>
Private Sub Form_Load() <br>
For i = 0 To Frame1.Count - 1 <br>
Frame1(i) . Move TabStrip1.ClientLeft, TabStrip1.ClientTop, _<br>
TabStrip1.ClientWidth, TabStrip1.ClientHeight <br>
Next i<br>
End Sub<br>
★ Style属性：设置控件外观。为0选项卡（即有客户区），为1或2无客户区的按纽式。<br>
★ MultiRow属性：选项卡过多时，是否多行显示。
<p align="center">
<br>
< <a href="020112.htm">上一页</a>--<a href="http://www.xxby.com" target="_blank">华生小屋</a>--<a href="020114.htm">下一页</a>
><br>
</td>
</tr>
</table>
</center>
</div>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -