日韩欧美国产精品免费一二-日韩欧美国产精品亚洲二区-日韩欧美国产精品专区-日韩欧美国产另-日韩欧美国产免费看-日韩欧美国产免费看清风阁

程序需要1個tabstrip,3個frame(控件數(shù)組)還有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內(nèi)部寬度
    Frame1(i).Height = TabStrip1.ClientHeight 'tab內(nèi)部高度
    Frame1(i).Left = TabStrip1.ClientLeft 'tab內(nèi)部左間柜
    Frame1(i).Top = TabStrip1.ClientTop 'tab內(nèi)部頂部間拒
    Frame1(i).Visible = False
Next i

Frame1(TabStrip1.SelectedItem.Index - 1).Visible = True '把被選中的tab對應(yīng)的frame顯示出來
End Sub


Private Sub TabStrip1_Click()
Call frame_visible_false
Frame1(TabStrip1.SelectedItem.Index - 1).Visible = True '把被選中的tab對應(yīng)的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 編輯過