VB Tabstrip控件的用法例子
当前位置:点晴教程→知识管理交流
→『 技术文档交流 』
程序需要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 编辑过 |
关键字查询
相关文章
正在查询... |