1、在TEXT上输入，能逐个筛选
2、点combo也能
3、List上，双击鼠标，回车，ESC，能选择
不知道怎么做到像COMBO那样，鼠标在COMBO上移动时，选择的蓝色条跟着动
欢迎大家指点，完善。

目前区分大小写。。

梅子论坛有这样的贴子，自己找吧。

我上次找过，现在找不到了，就自己搞1个，我以前好像在在哪里看过的
反正这个很多人都用的上的，就放上来，大家完善完善，也许后来的人用的上。
基本上功能能实现，只是不完善

1、在TEXT上输入，能逐个筛选
    可在 InteractiveChange 事件中处理
2、点combo也能
    不知要干啥？
3、List上，双击鼠标，回车，ESC，能选择
    可在鼠标键盘事件中处理，ListBox的回车好象也触发双击鼠标事件

4、不知道怎么做到像COMBO那样，鼠标在COMBO上移动时，选择的蓝色条跟着动
     还未发现ListBox有关鼠标行列定位功能，要自己计算，有点难度，用Grid代替ListBox就容易实现。

目前已经实现了1、2、3点的功能了。
只是第4点，还没实现。 这个是COMBOM的，鼠标只要在红框范围内移动，蓝色条都会跟着移动？你们不知？不用拉滚动条。

第1楼的好像名称有点问题，我重新放上去。
1、2、3点功能本来就实现了的，我只是说不完善，希望大家指点，修改，完善。
第4点，就是6楼，combo本身的功能，就是鼠标在红框范围内上下移动时，蓝色的条也跟着移动，这个功能不知道在怎么，还没实现。

第4点，用像素换算（不精准，没考虑换屏），还是用Grid好。
示例：

of = CREATEOBJECT("form1")
of.show(1)

DEFINE CLASS form1 as Form
    AutoCenter = .T.
    ADD OBJECT list1 as ListBox WITH top=10,left=10,RowSourceType=1,RowSource="101,202,303,404,505,606,707,808,909"
    
    PROCEDURE list1.MouseMove(nButton, nShift, nXCoord, nYCoord)
        nRowHeight = FONTMETRIC(1, this.FontName, this.FontSize);
                   + FONTMETRIC(3, this.FontName, this.FontSize) + 2
                   
        nRow = INT((nYCoord - this.Top - 2) / nRowHeight) + 1
        this.ListIndex = nRow
    ENDPROC
ENDDEFINE

[此贴子已经被作者于2015-11-24 22:50编辑过]

考虑换屏

of = CREATEOBJECT("form1")
of.show(1)

DEFINE CLASS form1 as Form
    AutoCenter = .T.
    ADD OBJECT list1 as ListBox WITH top=10,left=10,RowSourceType=1,;
        RowSource="101,202,303,404,505,606,707,808,909,202,303,404,505,606,707,808,909,202,303,404,505,606,707,808,909"
    
    PROCEDURE list1.MouseMove(nButton, nShift, nXCoord, nYCoord)
        nRowHeight = FONTMETRIC(1, this.FontName, this.FontSize);
                   + FONTMETRIC(3, this.FontName, this.FontSize) + 2
                   
        nRow = INT((nYCoord - this.Top - 2) / nRowHeight)
        this.ListIndex = nRow + this.TopIndex
    ENDPROC
ENDDEFINE

吹版，牛。