Textbox+listbox组成的动态列表 - VFP论坛

楼主

已结贴√ 问题点数：10 回复次数：6

Textbox+listbox组成的动态列表

表单1.rar (3.53 KB)

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

搜索更多相关主题的帖子: 动态　

第 2 楼

得分:0

图片附件: 游客没有浏览图片的权限，请登录或注册

目前区分大小写。。

第 3 楼

得分:0

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

第 4 楼

得分:0

以下是引用吹水佬在2015-11-24 19:48:00的发言：

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

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

目前已经实现了1、2、3点的功能了。
只是第4点，还没实现。

图片附件: 游客没有浏览图片的权限，请登录或注册

这个是COMBOM的，鼠标只要在红框范围内移动，蓝色条都会跟着移动？你们不知？不用拉滚动条。

第 5 楼

得分:0

动态列表.rar (3.54 KB)

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

第 6 楼

得分:0

吹版，牛。

第 7 楼

得分:0

以下是引用吹水佬在2015-11-24 22:57:59的发言：

考虑换屏
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

我改良了一下。
LPARAMETERS nButton, nShift, nXCoord, nYCoord
nRowHeight = FONTMETRIC(1, this.FontName, this.FontSize);
+ FONTMETRIC(3, this.FontName, this.FontSize) + 2

TopYCoord=(this.Parent.top + this.Top) &&容器Cti1+List1的高度，我的List1放在容器Cti1中
MaxXCoord=(this.Parent.left + this.left + this.Width -22) &&滚动条的宽度大概20，鼠标在滚动条区域不移动

nRow = INT((nYCoord - TopYCoord - 2) / nRowHeight)
IF nXCoord<=MaxXCoord
this.ListIndex = nRow + this.TopIndex
ENDIF

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