Question

VB如何tapstrip控件

这控件怎么使用？如何在不同的标签页添加不同的控件，在切换页面时能显示不同的控件？听说还有个SSTAB控件，那个在哪添加？如何使用？有没有标签在左边而不是上面的这种控件？

Answer 1

Tabstrip 应用实例：创建选项卡式对话框

TabStrip 控件用来创建包含多个选项卡的对话框。选项卡之间通常具有一定关系，属于某一大类，因此需要将它与其它选项卡放在同一对话框中。在该应用实例中，创建了用来设置 RichTextBox 的字体和缩进的选项卡式对话框。

代码分别如下：

Private Sub optBullet_Click()
'Form 对象的 ScaleMode 被设置为“缇”。
frmRTF.rtfData.BulletIndent = 500
frmRTF.rtfData.SelBullet = True
End Sub

Private Sub optNormal_Click()
frmRTF.rtfData.SelBullet = False
End Sub

在 Load 事件中使用 Move 方法放置 Frame 控件
为了在客户区上放置 Frame 控件，可以在 Form 对象的 Load 事件中使用 Move 方法，如下所示：

Private Sub Form_Load()
'TabStrip 名为“tabRTF”。
'Frame 控件名为“fraTab”。
For i = 0 To fraTab.Count - 1
With fraTab(i)
.Move tabRTF.ClientLeft, _
tabRTF.ClientTop, _
tabRTF.ClientWidth, _
tabRTF.ClientHeight
End With
Next I

'将第一个 fraTab 控件显示在最前面。
fraTab(0).ZOrder 0
End Sub

在 TabStrip 控件的 Click 事件中，用 SelectedItem 属性确定发生单击的 Tab 的索引
可以用 SelectedItem 属性确定被单击的 Tab 对象。该属性返回被单击的选项卡的引用。然而，Tabs 集合是基于 1 的集合（集合下标以 1 开始），而 fraTab 数组是基于 0 的集合。要使它们同步，需要将 Index 减 1，如下所示：

Private Sub tabRTF_Click()
fraTab(tabRTF.SelectedItem.Index - 1).ZOrder 0
End Sub
提示 在设计时，通过设置 Frame 控件数组的 Index 属性，可以将其变为基于 1 的数组。这样上述代码就变为：

fraTab(tabRTF.SelectedItem.Index).ZOrder 0

全部代码
全部代码显示如下：

Private Sub Form_Load()
Dim i As Integer'声明变量。
'确定字体的总数。
For i = 0 To Printer.FontCount - 1
'将每个字体加入列表框。
cmbFonts.AddItem Printer.Fonts(i)
Next i

cmbFonts.ListIndex = 0

'TabStrip 名为“tabRTF”。
'Frame control 名为“fraTab”。
For i = 0 To fraTab.Count - 1
With fraTab(i)
.Move tabRTF.ClientLeft, _
tabRTF.ClientTop, _
tabRTF.ClientWidth, _
tabRTF.ClientHeight
End With
Next i

'将第一个 fraTab 控件显示在最前面。
fraTab(0).ZOrder 0
End Sub

Private Sub cmbFonts_Click()
frmRTF.rtfData.SelFontName = cmbFonts.Text
End Sub

Answer 2

Dim fxing As Integer '设置一个全局变量
Private Sub Form_Load()
Timer1.Interval = 100 '设置时钟事件为1000毫秒,也就是1秒,设置值小一定会移动得快一些
Timer1.Enabled = True '时钟控件为触发状态
Shape1.Shape = 3 'shape控件为 圆形
fxing = 100
End Sub

Private Sub Timer1_Timer() '时钟事件
Cls '
Shape1.Top = Shape1.Top + fxing
If Shape1.Top + 500 + Shape1.Height >= Form1.Height Or Shape1.Top < 120 Then fxing = -fxing
End Sub