VSFlexGrid ListCombo多列多行多选控件封装使用说明备忘

---------方法---------------
 LCB1.Add                          '使用字符串格式添加Combo的表格数据
LCB1.Clear                        '清除Combo表格中的所有行
LCB1.HurryRefresh                 '对ID与Text进行设置后,立刻刷新数据
----------属性----------------------
LCB1.CzCaptionBackColor               '返回/设置 标题背景色
LCB1.CzCaptionForeColor               '返回/设置 标题文字色
LCB1.CzFixedBackColor                 '返回/设置 列头背景色
LCB1.CzFixedForeColor                 '返回/设置 列头文字色
LCB1.CzGridBackColor                  '返回/设置 表格背景色
LCB1.CzGridFontSize                   '返回/设置 表格字体大小
LCB1.CzGridForeColor                  '返回/设置 表格文字色
LCB1.CzMouseRowBackColor              '返回/设置 当前鼠标所在行背景色
LCB1.CzMouseRowForeColor              '返回/设置 当前鼠标所在行文字色
LCB1.CzNewOBJBackColor                '返回/设置 新增对象行背景色
LCB1.CzNewOBJForeColor                '返回/设置 新增对象行文字色
LCB1.CzOldRowBackColor                '返回/设置 单选时焦点行背景色
LCB1.CzOldRowForeColor                '返回/设置 单选时焦点行文字色
LCB1.CzOrderBackColor                 '返回/设置 序号背景色
LCB1.CzOrderForeColor                 '返回/设置 序号文字色
LCB1.CzOutColBackColor                '返回/设置 ID与TEXT 列背景色
LCB1.CzOutColForeColor                '返回/设置 ID与TEXT 列文字色
LCB1.CzTextBackColor                  '返回/设置 文本框背景色
LCB1.CzTextFontSize                   '返回/设置 文本框字体大小
LCB1.CzTextForeColor                  '返回/设置 文本框文字色
 LCB1.zCaption                        '返回/设置 标题
 LCB1.zCols                           '返回 总列数
 LCB1.zDataID                         '返回/设置 ID字符串数据
 LCB1.zDataText                       '返回/设置 Text字符串数据
 LCB1.zEditStyle                      '返回/设置 Combo编辑类型
 LCB1.zEnabled                        '返回/设置 对象是否有效
 LCB1.zGetSelectRow                   '返回/设置 获取选择的行
 LCB1.zInRow                          '返回/设置 使用行序号或ID来设置行状态
 LCB1.zIsList                         '返回/设置 单选 or 多选
 LCB1.zIsNewObj                       '返回/设置 是否有新增对象行
 LCB1.zIsOrder                        '返回/设置 是否有序号
 LCB1.zIsToolTip                      '返回/设置 是否有冒泡
 LCB1.zLocked                         '返回/设置 是否禁止文本框的编辑
 LCB1.zNewOBJToolText                 '返回/设置 新增对象行的冒泡提示文本设置
 LCB1.zPutDataSource                  '设置 与数据库Recordset对象绑定
 LCB1.zRows                           '返回 总行数
 LCB1.zSelectCount                    '返回 选择行的总数
 LCB1.zSetColName                     '返回/设置 使用字符串设置列头名称
 LCB1.zSetOutColID                    '返回/设置  设置ID列
 LCB1.zSetOutColText                  '返回/设置 设置Text列
 LCB1.zTextMatrix                     '返回/设置 单元字符
 LCB1.zSelectRow                      '返回/设置 使用行序号字符串设置选择的行-将覆盖上次的设置
--------------事件------------------
Private Sub LCB1_EvNewData()
'点击新增对象后抛出事件
End Sub

Private Sub LCB1_EvSelectDataOver(ByVal DateText As String, ByVal DateID As String, ByVal SelectRow As String)
'选择数据后抛出事件
End Sub
'----------应用示例-------------
LCB1.zInRow(Item) =True | False    Item = 数字   或  Item = ID字符
LCB1.zSelectRow = "15,5,8,45,12"   '这个设置后立刻更新相关变量值
LCB1.zSetColName = "re,的方法方法,的的非官方"
Set LCB1.zPutDataSource = Rs
SelectRow = LCB1.zGetSelectRow(SelectRowIndex)
'-------------------------------------------------
LCB1.zDataID = "ID1,ID2,ID3,ID4...."
LCB1.zDataText = "Text1,Text2,Text3,Text4...."
LCB1.HurryRefresh
可使用 zSelectRow = "" 或 zDataID = "" 或 zDataText = "" 来清除选中的行

         '上面的数据设置后将不会同步更新相关的关联值 ,在下次打开Combo下拉窗体时更新
         '如果需要立刻更新,可使用 LCB1.HurryRefresh  来使数据立刻更新并同步相关变量
         'LCB1.zDataID 或 LCB1.zDataText  在设置为空的情况下立刻刷新相关所有变量
'---------循环选中的行-------
    For i = 0 To LCB1.zSelectCount - 1
       xe = VSFlexGrid.TextMatrix(LCB1.zGetSelectRow(i), 2)
    Next i