公交车上荫蒂添的好舒服的电影-公用玩物(np双xing总受)-公用小荡货芊芊-公与妇仑乱hd-攻把受做哭边走边肉楼梯play-古装一级淫片a免费播放口

程序需要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對應的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 編輯過