求VB选项卡TabStrip的用法

按照你的要求把代码写出来了,请留意FORM_LOAD事件里的代码,那里主要写了tab控件的布局以及如何跟frame容器关联

程序需要1个tabstrip,3个frame(控件数组)还有6个textbox和3个button

Dim a, b, x, y As Integer

Private Sub Command1_Click()

a = Val(txta1) * Val(txta2)

End Sub

Private Sub Command2_Click()

b = Val(txtb1) * Val(txtb2)

End Sub

Private Sub Command3_Click()

x = Val(txta1) + Val(txtb1)

y = a + b

txtC1 = x

txtC2 = y

End Sub

Private Sub Form_Load()

Dim i As Integer

'初始化每一个 tab page

TabStrip1.Tabs(1).Caption = "一系列"

TabStrip1.Tabs.Add , , "二系列"

TabStrip1.Tabs.Add , , "Total"

TabStrip1.Tabs(1).Selected = True

'初始化三个frame大小以匹配tab控件

For i = 0 To 2

Frame1(i).Width = TabStrip1.ClientWidth 'tab内部宽度

Frame1(i).Height = TabStrip1.ClientHeight 'tab内部高度

Frame1(i).Left = TabStrip1.ClientLeft 'tab内部左间柜

Frame1(i).Top = TabStrip1.ClientTop 'tab内部顶部间拒

Frame1(i).Visible = False

Next i

Frame1(TabStrip1.SelectedItem.Index - 1).Visible = True '把被选中的tab对应的frame显示出来

End Sub

Private Sub TabStrip1_Click()

Call frame_visible_false

Frame1(TabStrip1.SelectedItem.Index - 1).Visible = True '把被选中的tab对应的frame显示出来

End Sub

'默认先把所有frame控件隐藏起来

Private Sub frame_visible_false()

Dim i As Integer

For i = 0 To 2

Frame1(i).Visible = False

Next i

End Sub

鹏仔微信 15129739599 鹏仔QQ344225443 鹏仔前端 pjxi.com 共享博客 sharedbk.com