您现在的位置:首页 >> 网络教学 >> 常用控件 >> 内容

选项卡(SSTab)控件

时间:2009-6-19 9:30:09 点击:3590

选项卡(SSTab)控件

SSTab控件提供了一组选项卡,每个选项卡都可作为其他控件的容器。在控件中,同一时刻只有一个选项卡是活动的,这个选项卡向用户显示它本身所包含的控件而隐藏其他选项卡中的控件。SSTab的属性可以在其属性页中进行设置,其重要属性及其作用如下:

Tabs:决定选项卡的数目。

TabsPerRow:决定每一行和选项卡数。

Style:决定选项卡的样式。

为了使用SSTab控件,必须首先决定怎样放置到不同选项卡中的控件。设置TabsTabsPerRow属性来创建选项卡,并把它们组织到各行中(通常只有一行)。然后在设计时通过单击每个选项卡来选择它。对每个选项卡,在用户选择该选项卡时希望显示控件,所以要将这些控件绘制出来。按照要求,设置Caption,Picture,TabHeight,TabMaxWidth属性,由此定制选项卡的顶部。SSTab控件位于Microsoft Tabbed Dialog Control 6.0.

【例7.8】使用SSTab控件,实现图7-14所示的功能。

(1)界面设计。在窗体上添加一个SSTab控件,右击该控件,打开如图7-24所示的属性页。设置选项卡数为7,每行选项卡数为7(即全部在一行上),并为每一个选项卡设置标题。在每个选项卡上添加一个列表框,设置列表框的List属性(即输入各类配件所有选项)。添加一个Picture控件显示配件及总价格。

(2)属性设置。对象设置如表7-8所示。

 (3)代码编写如下:

Private Sub Form1_Initialize()

Dim cpuri, grapri, mempri, hdpri, mbpri, dypri, cdpri, totalpri As Single

Dim mycpu!, mygra!, mymem!, mybh!, mymb!, mydy!, mycd!

End Sub

Private Sub Command1_Click()

    Combo1.AddItem List1.Text

Combo1.AddItem List2.Text

Combo1.AddItem List3.Text

Combo1.AddItem List4.Text

Combo1.AddItem List5.Text

Combo1.AddItem List6.Text

Combo1.AddItem List7.Text

totalpri = mycpu + mygra + mymem + myhd + mymb + mydy + mycd

Picture1.Print ”总价=”; totalpri

End Sub

Private Sub Form1_Load()

cpupri = Array(1000, 1100, 1200, 1300, 1400, 1500, 1600, 1700)

grari = Array(1000, 1100, 1200, 1300, 1400, 1500, 1600, 1700)

memri = Array(300, 310,  , 320, 330, 340, 350, 360)

hdpri = Array(500, 510, 520, 530, 540, 550, 560, 570)

mbpri = Array(300, 320, 350, 370, 400, 500, 560, 600)

dypri = Array(1000, 1200, 1300, 1400, 1540, 1600, 1700, 1900)

cdpri = Array(150, 170, 190, 200, 220, 240, 300, 400)

End Sub

Private Sub List1_Click()

mycpu = cpupri(List1.ListIndex)

End Sub

Private Sub List2_Click()

mygra = grapri(List2.ListIndex)

End Sub

Private Sub List3_Click()

mymem = mempri(List3.ListIndex)

End Sub

Private Sub List4_Click()

myhd = hdpri(List4.ListIndex)

End Sub

Private Sub List5_Click()

mymd = mdpri(List5.ListIndex)

End Sub

Private Sub List6_Click()

mydy = dypri(List6.ListIndex)

End Sub

Private Sub List7_Click()

mycd = cdpri(List7.ListIndex)

End Sub

程序运行情况如图7-15所示。

作者:Admin  
  • 上一篇:图形框和图像框
  • 下一篇:鼠标键盘
  • 相关文章
    • 没有相关文章
    本类推荐
    • 没有
    本类固顶
    • 没有
  • VB程序设计学习网站(赣南师范学院) © 2008 版权所有 All Rights Reserved.
  • 地址:江西省赣州市经济技术开发区 赣南师范学院数学与计算机科学学院 邮政编码:341000
    Email:ZQ188@163.com 技术支持QQ:87319633 移ICP备10086号
  • GnsySjxy! V2.4