实现TAB切换控件,1个很奇怪的问题

cjxdn

官方的示例:

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

复制代码

如果编辑框里是 数字和字母情况下,能实现把浮标移到内容的最右边,浮标移到内容的最后1位,但当编辑框里是 文字汉字的时候就无效了,还有啥好办法
麻烦大神来拯救

18667006365

var WM_KEYDOWN=25//按下一个键
var WM_KEYUP=25//释放一个键
var WM_SETFOCUS=7//获得焦点后
var WM_KILLFOCUS=8//失去焦点

cjxdn

18667006365 发表于 2015-5-2 08:31
var WM_KEYDOWN=25//按下一个键
var WM_KEYUP=25//释放一个键
var WM_SETFOCUS=7//获得焦点后

试了下没效果,可能你编辑框里文字是1两个测试的,试试每个编辑框都5个汉字测试.