LOGO OA教程 ERP教程 模切知识交流 PMS教程 CRM教程 开发文档 其他文档  
 
网站管理员

VB Tabstrip控件的用法例子

admin
2012年7月19日 14:56 本文热度 3213
程序需要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 编辑过
关键字查询
相关文章
正在查询...
点晴ERP是一款针对中小制造业的专业生产管理软件系统,系统成熟度和易用性得到了国内大量中小企业的青睐。
点晴PMS码头管理系统主要针对港口码头集装箱与散货日常运作、调度、堆场、车队、财务费用、相关报表等业务管理,结合码头的业务特点,围绕调度、堆场作业而开发的。集技术的先进性、管理的有效性于一体,是物流码头及其他港口类企业的高效ERP管理信息系统。
点晴WMS仓储管理系统提供了货物产品管理,销售管理,采购管理,仓储管理,仓库管理,保质期管理,货位管理,库位管理,生产管理,WMS管理系统,标签打印,条形码,二维码管理,批号管理软件。
点晴免费OA是一款软件和通用服务都免费,不限功能、不限时间、不限用户的免费OA协同办公管理系统。
Copyright 2010-2024 ClickSun All Rights Reserved