欧美成人精品手机在线观看_69视频国产_动漫精品第一页_日韩中文字幕网 - 日本欧美一区二区

程序需要1個(gè)tabstrip,3個(gè)frame(控件數(shù)組)還有6個(gè)textbox和3個(gè)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

'初始化每一個(gè) tab page
TabStrip1.Tabs(1).Caption = "一系列"
TabStrip1.Tabs.Add , , "二系列"
TabStrip1.Tabs.Add , , "Total"
TabStrip1.Tabs(1).Selected = True

'初始化三個(gè)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對(duì)應(yīng)的frame顯示出來
End Sub


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

End Sub

'默認(rèn)先把所有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 編輯過