程序需要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

该文章在 2012/7/19 14:56:54 编辑过