【combobox控件】实现拼音首字母动态检索汉字/数字/英文

alajia

用老大改进的combobox控件，实现拼音首字母动态检索汉字/数字/英文。

1. 
   
2. import win.ui;
   
3. /*DSG{{*/
   
4. var winform = ..win.form(text="自动更新下拉列表";right=420;bottom=200)
   
5. winform.add(
   
6. combobox={cls="combobox";text="combobox";left=107;top=77;right=315;bottom=101;edge=1;items={};mode="dropdown";z=1}
   
7. )
   
8. /*}}*/
   
9. 
   
10. var tab_items = {["测试一"]="";["测试2"]="";["测试3"]="";["其他"]="";["new"]="";["百度"]="";["谷歌Google"]="";};
    
11. 
    
12. import string.conv.pinyin;
    
13. 
    
14. HZtoPY = function(items){
    
15.         for(k,v in items){
    
16.                 var pinyin = string.conv.pinyin(k);
    
17.                 var py = "";
    
18.                 for m in string.gmatch( pinyin,"\s(.{1})") {
    
19.                      if(string.match(m,"\w")){
    
20.                              py += m;  
    
21.                      }                   
    
22.                 }
    
23.                 py = pinyin[[1]] + py;
    
24.                 tab_items[k] = py;         
    
25.         }       
    
26. }
    
27. 
    
28. HZtoPY(tab_items);
    
29. 
    
30. winform.combobox.oncommand = function(id,event){
    
31.     if(event == 0x5/*_CBN_EDITCHANGE*/) {  
    
32.             var items_arrar = {};
    
33.                 var s = winform.combobox.text;
    
34.                 for(k,v in tab_items){
    
35.                         if(string.match(v,s)){
    
36.                                 table.push(items_arrar,k);
    
37.                         }
    
38.                 }
    
39.         winform.combobox.items = items_arrar //更新下拉列表
    
40.         winform.combobox.showDropDown(true);
    
41.     }     
    
42. }
    
43. 
    
44. winform.combobox.wndproc = function(hwnd,message,wParam,lParam){
    
45.         if(wParam == 0xD/*_VK_RETURN*/){
    
46.                 var tmp = winform.combobox.text;
    
47.                 if(!tab_items[tmp]){
    
48.                         win.msgbox("无效选项!","aardio");
    
49.                         winform.combobox.setFocus();
    
50.                 }
    
51.     }
    
52.         if(wParam == 0x1B/*_VK_ESC*/){
    
53.                 winform.combobox.text = "";
    
54.                 winform.combobox.setFocus();
    
55.     }   
    
56. }
    
57. 
    
58. winform.combobox.setFocus();
    
59. 
    
60. winform.show();
    
61. win.loopMessage();
    

复制代码

vbvfp

不错，谢谢分享

thXnder

谢谢分享，学习了，string.conv.pinyin这个函数好方便

candc2

WOW , 最近想做个录入客人去那间商店消费的小软件 , 这个首字母动态检索很方便输入商家名称

wjmcu

..

月光杯

用到了，谢谢分享~

avci

谢谢，也用上了