机房收费系统之 ssTab MSHFlexGrid comboBox 的使用锦囊

再也不用担心这个控件不会用，那个控件忘了什么用法。有事没事常来我这转转，你就想忘也忘不了啦

一：SSTab    

1添加该部件

工程--部件--Microsoft Tabed Dialog Control 6.0

2选择SSTab ,画出选项卡.

默认为3个选项卡。若想要多个，可以再该控件属性窗口中，更改Tabs(选项卡数目) 和 TabsPerRow(每一行中出现的选项卡号)

3 单击选项卡事件，可参考以下

Private Sub SSTab1_Click(PreviousTab As Integer)    Select Case SSTab1.Tab '选项卡        Case 1 '欢迎            MsgBox "welcome"        Case 2 '退出该过程            Unload Me    End SelectEnd Sub

二 ：MSHFlexGrid                

1添加该部件

工程--部件--FlexGrid Control 6.0

2选择MSHFlexGrid ，画出该控件。

3让控件显示第一标题行，可参考

With MSHFlexGrid1    .Rows = 1 '显示一行    .Cols = 4 '显示4列    .CellAlignment = 4 '单元格的内容居中、居中对齐。    .TextMatrix(0, 0) = "学号" '从第0行开始    .TextMatrix(0, 1) = "卡号"    .TextMatrix(0, 2) = "日期"    .TextMatrix(0, 3) = "时间"End With

  注意，有时候我们发现让控件的内容居中显示，却总是无法显示全部。这时候就只需显示的时候，加一个trim。例如：.TextMatrix(1,1)=Trim(mrc.file(2)) trim在这里就把数据库中的空格舍去了。

4显示数据库中查询的结果，可参考如下（省略查表的过程，只写出控件显示过程）

Do While Not mrc.EOF    With MSFlexGrid1        .Rows = .Rows + 1        .TextMatrix(.Rows - 1, 0) = mrc.Fields(0)        .TextMatrix(.Rows - 1, 1) = mrc.Fields(1)        .TextMatrix(.Rows - 1, 2) = mrc.Fields(2)        .TextMatrix(.Rows - 1, 3) = mrc.Fields(3)        mrc.MoveNext    End WithLoop

三： comboBox

1 呈现下拉选项效果，可参考：

comboBox1.AddItem "卡号"
comboBox1.AddItem "姓名"comboBox1.AddItem "上机时间"comboBox1.AddItem "上机日期"
comboBox1.AddItem "机房号"

2 设置控件 不可手动输入，只能选择

设置style 属性，改为2-DropdownList

附图

 （一）

（二）

（三）