原创--输入提示自动补全,简码输入,首字母拼音输入

liulang0808 · 发表于 2014-4-11 10:23

百度不到去谷歌发表于 2014-4-11 10:19
我没那么聪明这都是伟大的百度前人的智慧够强大我们要学会利用

那你也很给力啊，能借鉴到如此好的办法

不过我也可以借鉴你的办法了

非常感谢

达州张先生 · 发表于 2014-4-12 18:09

有没有2003版本的

116632880 · 发表于 2014-4-14 17:53

很经典的，准备运用你的代码。
如果只采用方法2（拼音加汉字)，能否删除掉第一种方法中的多余代码。

百度不到去谷歌 · 发表于 2014-4-14 22:15

116632880 发表于 2014-4-14 17:53
很经典的，准备运用你的代码。
如果只采用方法2（拼音加汉字)，能否删除掉第一种方法中的多余代码。

具体字母匹配可自己修改只要修改只能匹配过程即可规则可以自己制定

百度不到去谷歌 · 发表于 2014-4-14 22:19

做个小小的更新添加了拼音和汉字混合输入智能匹配
例如王宝强
你输入wb 王b w宝王bq 王b强这种混合输入都可以匹配到可适应各种输入情景
输入提示汉子拼音混合识别.gif

116632880 · 发表于 2014-4-15 07:42

帅呆了功能这么强大，就是不知道和别的窗体的代码有没有冲突我还要进一步磨合
如果根据需要我将很合录入功能挪动到第6列，请问要改动哪些代码，

百度不到去谷歌 · 发表于 2014-4-15 08:50

116632880 发表于 2014-4-15 07:42
帅呆了功能这么强大，就是不知道和别的窗体的代码有没有冲突我还要进一步磨合
如果根据需要我将很合录 ...

认真看我的注释啊写的那么清楚的
Const RangeAddress = "A2:A65536,C2:C65536"
这里你第六列就是F列了这样不就好了
Const RangeAddress = "F:F"

'------------逐步输入提示--------百度不到去谷歌 QQ80871835----2014/04/09-----------------------------------
' 功能: 逐步输入提示,可首字母拼音提示
' 说明: 自己表导入M输入提示模块和数据源表，然后在需要用的表粘贴本模块代码
' 一般来说只需要整理好数据源列表,然后修改RangeAddress区域范围即可
'-----------------------------------------------------------------------------------------------------------
Dim txt$ '检测文本框变化
Const RangeAddress = "A2:A65536,C2:C65536" '作用范围,自己修改

复制代码

isoyoung · 发表于 2014-4-15 11:39

谢谢，下载先用

116632880 · 发表于 2014-4-15 12:06

再次感谢百度不到去谷歌的回复以后我可以送鲜花的话，我一定给此贴加评

shewoyu · 发表于 2014-4-15 12:41

保存备用！！！

		自动登录	找回密码
密码			免费注册

[原创] 原创--输入提示自动补全,简码输入,首字母拼音输入