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

Roadbeg

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

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

cai373

顶,很好

sjds333

用什么软件打开呀？

luxl001

看看先

eio

应该不错吧

make

不错！

Roadbeg

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

谢谢!

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