谁能告诉我 为什么 tc里 tab键是奇葩的 选中输入框的文本 ...

花云寒

谁能告诉我 为什么 tc里 tab键是奇葩的 选中输入框的文本 而不是 换到下一个输入框？


为什么这么奇葩。。


为什么。。

星.月

打开TC-------应用示例---------脚本技巧----------实现TAB切换控件焦点

frg0922

1. //很多同学说文档里面全部是中文代码没有英文代码
   
2. //所以这个示例给大家以中英文代码混写展示
   
3. 
   
4. 空间 实现TAB切换控件焦点
   
5. //默认空间
   
6. WM_KEYDOWN=256//按下一个键
   
7. WM_KEYUP=257//释放一个键
   
8. WM_SETFOCUS=7//获得焦点后
   
9. WM_KILLFOCUS=8//失去焦点
   
10. 
    
11. VK_TAB=9//TAB
    
12. 
    
13. //上面的消息以及一些键盘的常量定义大家可以参考文档里面的 第12章 ASCII表与虚拟键码表
    
14. 
    
15. max=3//控件的数量
    
16. 控件名=数组[1]//控件的名字最好定义在统一的方便代码的实现
    
17. //也可以把控件名写到一个数组里面也是可以的
    
18. 
    
19. 功能 初始化()
    
20.     //这里添加你要执行的代码
    
21.     控件名=数组空间.重定义(控件名,1,max)//重新构造数组大小
    
22.     控件名[0]="编辑框0"
    
23.     控件名[1]="编辑框1"
    
24.     控件名[2]="编辑框2"
    
25.    
    
26. 功能结束
    
27. 
    
28. //消息路由功能
    
29. 功能 实现TAB切换控件焦点_消息路由(句柄,消息,w参数,l参数,时间,x坐标,y坐标)
    
30.    
    
31.     select(消息)
    
32.         case 256://WM_KEYDOWN select的条件不能为变量只能为常量
    
33.         if(w参数==VK_TAB)//当按下TAB键的时候设置下一个控件的焦点
    
34.             for(i=0;i<max;i++)//用循环遍历当前焦点所在的控件
    
35.                 if(句柄==control.gethandle(控件名[i]))
    
36.                     if(i==(max-1))//如果当前是最后一个控件,自动把焦点移动到第一个控件
    
37.                         window.setfocus(control.gethandle(控件名[0]))
    
38.                         返回 真//处理完成后必须直接返回真,否则不能正常执行
    
39.                     endif
    
40.                     window.setfocus(control.gethandle(控件名[i+1]))//设置下一个控件的焦点
    
41.                     返回 真//处理完成后必须直接返回真,否则不能正常执行
    
42.                 endif
    
43.             endfor                    
    
44.         endif
    
45.     endselect
    
46.    
    
47.     返回 假
    
48. 功能结束
    
49. 
    
50. 空间结束
    
51. //空间结束语句

复制代码