| 发表于:2007-08-03 09:23:053楼 得分:0 |
private sub combo1_change() dim i as integer, tmp as string combo1.selstart = 0 combo1.sellength = len(combo1.text) for i = 0 to combo1.listcount - 1 tmp = combo1.text if left(combo1.list(i), 1) = tmp then combo1.text = combo1.list(i) end if next i end sub private sub form_load() combo1.additem "社区中心 " combo1.additem "区社心中 " combo1.additem "中心社区 " combo1.additem "心中区社 " end sub 是这个意思吗?我用的智能五笔,没有问题啊 | | |
|