机房收费系统之 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 Select
End 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 With
Loop

三： comboBox

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

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

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

设置style 属性，改为2-DropdownList

附图

 （一）

（二）

（三）