前两天写的增强组合框控件,适合数据库编程.

Roadbeg

做好有一段时间了,现在把它放上来.
这是 1.0 试用版.

名称:GComboBox
版本:1.0 试用版
作者:Roadbeg
日期:2003-09-20

Roadbeg

GComboBox 是 GControl 控件集的一员.
设计上用来替代 vb 自带的 ComboBox 及 DBCombo.

主要功能有:

1.支持普通组合框的全部功能.
2.支持数据绑定.
3.支持多列显示.
4.支持自动增量查询(渐进式查询).
5.支持以 ado recordset 对象(ado 记录集) 作为列表来源.
6.支持 additem,removeitem 方法.
7.支持 list 属性,可以通过该属性查询/修改任一列的内容.
8.支持 ShowDropDown,HideDropDown 方法,可以随意显示/隐藏组合框列表部分.
9.支持 DroppenState 属性,可以方便的通过该属性查询到当前列表部分是否已显示.
10.支持 DropDown 事件.当组合框列表部分被入下时发生.
11.在组合框接受焦点的时候,按 ESC 键可以取消此次输入,即 Undo 功能.
12.可以对每一列设置列宽,列宽以字符数为单位.方便控制.(即,列宽是指该列最多可以显示多少字符.)
13.支持显示列与编辑列分开,比如,一个组合框是用来处理会计科目的,当用户浏览时,显示会计科目名称,当用户单击组合框准备编辑时,显示会计科目代码,当用户输入新的会计科目代码后,自动转换为相应的会计科目名称.


Roadbeg
13510396616,13510692939
Roadbeg_P@163.com
2003.09.20

Roadbeg

Roadbeg

'Example:

'除了普通的组合框支持的事件以外,还支持 DropDown 事件,当列表框被放下时发生.

    Dim con As New ADODB.Connection
    Dim rst As New ADODB.Recordset
   
    con.Open "rovider=Microsoft.Jet.OLEDB.4.0;Data Source=F:\Documents\db2.mdbersist Security Info=False"
    rst.Open "select * from ta", gcon
   
    gcbo.Clear              '清空
    gcbo.Col = 3            '一共三列
    gcbo.ShowCol = 2        '显示列为第三列
    gcbo.EditCol = 0        '编辑列为第一列
    gcbo.AutoExpand = True  '允许自动增量查询(渐进式查询)
    gcbo.ColLength = "18,12,10,5,89"    '列宽分别为: 18,12,10,5,59 个字符.(注意,如果某列宽为零将不显示,并不能通过 list 属性查出)
   
    Set gcbo.RowSrc = rst   '设置行来源数据,gcbo 会先清空列表,然后自动把记录集 rst 下的所有内容添加到列表中.
   
    gcbo.AddItem "", "fjds" '添加一行,因 Col 属性为 3,没有指定的行将被自动设为 ""
    gcbo.AddItem "fjdslg", "flsjd", "fdjkls", "fldjs"   '添加一行,多于 3 行的内容忽略
   
    gcbo.ShowDropDown       '显示下拉列表.
    gcbo.HideDropDown       '隐藏下拉列表.
   
    If gcbo.DroppedState = True Then
        MsgBox "下拉列表已显示"
    Else
        MsgBox "下拉列表未显示"
    End If
   
    gcbo.About              '显示关于对话框.
    gcbo.Help               '显示帮助对话框.
   
    '设置字体
    gcbo.FontName = "宋体"
    gcbo.FontBold = False
    gcbo.FontSize = 9
    gcbo.FontItalic = False
   
    Debug.Print gcbo.hWnd               'Gcbo 的句柄.
    Debug.Print gcbo.BackColor          '背景色
    Debug.Print gcbo.ForeColor          '前景色
    Debug.Print gcbo.Height             '高
    Debug.Print gcbo.Width              '宽
    Debug.Print gcbo.Enabled
    Debug.Print gcbo.ListCount          '列表总数
    Debug.Print gcbo.List(0, 0)         '显示第一行,第一列的内容.
    gcbo.List(0, 2) = "Test"            '将第三行,第一列的内容设为 Test
    Debug.Print gcbo.Locked             '是否锁定
    Debug.Print gcbo.SelText            '被选定的文本内容.
    Debug.Print gcbo.SelStart
    Debug.Print gcbo.SelLength          '当前选定信息.
    Debug.Print gcbo.Text               '组合框的内容.

Roadbeg

这是 1.0版,因本人水平有限,并且设计时工作较忙,写写停停,一直没时间静下心来一口气写完,错误和疏漏在所难免.
大家在试用中发现什么 bug. 请发信到
Roadbeg_P@163.com

谢谢!

make

不错！

eio

应该不错吧

luxl001

看看先

sjds333

用什么软件打开呀？