说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

一个遍历text控件的问题

编辑:说三道四文库 发布时间:2017-12-16 05:33
HTML文档下载 WORD文档下载 PDF文档下载
    问题:现有10行4列的表格,每个cell里放了一个text控件,用于显示和修改数据。条件是两边两列的数据不能修改,中间两列的数据可以修改。现我要得到如下两种效果:1、当按下Tab键时光标能在中间两列的text控件依次移动;2、按上下键时光标能在同列不同行的text控件之间移动。

    谢谢!
<form>
<input type=text tabindex=1>
<input type=text tabindex=2><br>
<input type=text tabindex=3>
<input type=text tabindex=4><br>
<input type=text tabindex=5>
<input type=text tabindex=6><br>
</form>
<script>
function arrow(field){
if(event.keyCode==40)
if(!(field<document.form1.elements.length-2))
form1.elements[0].focus()
else
form1.elements[field+2].focus()

if(event.keyCode==38)
if(field<2){
if(field==1)
form1.elements[1].focus()
}
else
form1.elements[field-2].focus()

}
</script>
<form name=form1>
<input type=text name=txt1 tabindex=1 onkeydown="arrow(0)">
<input type=text name=txt2 tabindex=2 onkeydown="arrow(1)"><br>
<input type=text name=txt3 tabindex=3 onkeydown="arrow(2)">
<input type=text name=txt4 tabindex=4 onkeydown="arrow(3)"><br>
<input type=text name=txt5 tabindex=5 onkeydown="arrow(4)">
<input type=text name=txt6 tabindex=6 onkeydown="arrow(5)"><br>
<input type=text name=txt7 tabindex=7 onkeydown="arrow(6)">
<input type=text name=txt8 tabindex=8 onkeydown="arrow(7)"><br>
<input type=text name=txt9 tabindex=9 onkeydown="arrow(8)">
<input type=text name=txt10 tabindex=10 onkeydown="arrow(9)"><br>
<input type=text name=txt11 tabindex=11 onkeydown="arrow(10)">
<input type=text name=txt12 tabindex=12 onkeydown="arrow(11)"><br>
<input type=text name=txt13 tabindex=13 onkeydown="arrow(12)">
<input type=text name=txt14 tabindex=14 onkeydown="arrow(13)"><br>
<input type=text name=txt15 tabindex=15 onkeydown="arrow(14)">
<input type=text name=txt16 tabindex=16 onkeydown="arrow(15)"><br>
<input type=text name=txt17 tabindex=17 onkeydown="arrow(16)">
<input type=text name=txt18 tabindex=18 onkeydown="arrow(17)"><br>
<input type=text name=txt19 tabindex=19 onkeydown="arrow(18)">
<input type=text name=txt20 tabindex=20 onkeydown="arrow(19)"><br>
</form>
完美解答版代码:
========================================================================
<script>
function arrow(field){
if(event.keyCode==40)
if(!(field<document.form1.elements.length-2)){
if(field%2==0)
form1.elements[0].focus()
else
form1.elements[1].focus()
}
else
form1.elements[field+2].focus()
if(event.keyCode==38)
if(field==1||field==0)
{
if(field%2==0)
form1.elements[18].focus()
else
form1.elements[19].focus()
}
else
form1.elements[field-2].focus()
}
</script>
<form name=form1>
<input type=text name=txt1 tabindex=1 onkeydown="arrow(0)">
<input type=text name=txt2 tabindex=2 onkeydown="arrow(1)"><br>
<input type=text name=txt3 tabindex=3 onkeydown="arrow(2)">
<input type=text name=txt4 tabindex=4 onkeydown="arrow(3)"><br>
<input type=text name=txt5 tabindex=5 onkeydown="arrow(4)">
<input type=text name=txt6 tabindex=6 onkeydown="arrow(5)"><br>
<input type=text name=txt7 tabindex=7 onkeydown="arrow(6)">
<input type=text name=txt8 tabindex=8 onkeydown="arrow(7)"><br>
<input type=text name=txt9 tabindex=9 onkeydown="arrow(8)">
<input type=text name=txt10 tabindex=10 onkeydown="arrow(9)"><br>
<input type=text name=txt11 tabindex=11 onkeydown="arrow(10)">
<input type=text name=txt12 tabindex=12 onkeydown="arrow(11)"><br>
<input type=text name=txt13 tabindex=13 onkeydown="arrow(12)">
<input type=text name=txt14 tabindex=14 onkeydown="arrow(13)"><br>
<input type=text name=txt15 tabindex=15 onkeydown="arrow(14)">
<input type=text name=txt16 tabindex=16 onkeydown="arrow(15)"><br>
<input type=text name=txt17 tabindex=17 onkeydown="arrow(16)">
<input type=text name=txt18 tabindex=18 onkeydown="arrow(17)"><br>
<input type=text name=txt19 tabindex=19 onkeydown="arrow(18)">
<input type=text name=txt20 tabindex=20 onkeydown="arrow(19)"><br>
</form>
VB如何使Text文本框的属性只读? VB如何使窗体右上角的&quot;X&quot;无效? VB如何使窗体最小化并消失 VB如何在VB和Delphi中快速实现立体化窗口显示 VB如何在VB中实现绘图区的大十字光标 VB如何在VB中制作不回显的文本框 VB如何制作浮动式窗口 闪烁的Label-VB资料 设定StatusBar的文字成不同的颜色-VB资料 设计一个可中断循环的按钮-VB资料 设置“执行无用户界面”-VB资料 生成一个透明窗体 -VB资料 实现窗体内部的左右移动 -VB资料 实现鼠标移到窗口上时变大,移出窗体时变小(如《东方快车》)-VB资料 实现图片平铺于窗体中-VB资料 使程序的标题条闪烁 -VB资料 使窗口总在最前 -VB资料 使窗体右上角的X按钮失效 -VB资料 VB使用 WIN95 的选择目录对话框 使指定窗口总处于其他窗口之上 -VB资料 通用对话框专辑(全) -VB资料 透明的Form上显示背景透通图 -VB资料 图像在图片框中的滚动 -VB资料 拖动无标题窗口-VB资料 拖动无系统标准标题栏的窗口-VB资料 文本框中光标位置的获得-VB资料 无关联程序时开启“打开方式”窗口 -VB资料 显示 Combo 的下拉条 -VB资料 显示Windows系统的标准ABOUT窗口-VB资料 显示程序的版本 -VB资料 显示窗口的水平和垂直滚动条-VB资料 一个简单的问题 jbuilder中的Tools->Configure Servers的对话框中没有JBoss 3.X,如何是好? SqlServer数据库的备份问题 在线求助ReportBulider如何做这样的报表? 怎样得到用户表名? 大家好帮忙啊 ——————在线等待!! 直接访问操作符"." 和间接访问操作符"->" 有什么区别 数据库优化的问题 一个文本框,有一个验证控件(判断是否为数字),还有一个textchanged事件,这是一个矛盾的东西,让我头疼~~ interface中的uses语句和implemetation中的uses语句有何不同? XP个人单机服务器配置后访问需要帐号密码,怎么办 干得不开心,想转行,大家给点建议 如何实现“让用户自定义快捷键?” 怎么样把.aspx制作成安装的文件?? 我写了如下一个方法,但是用起来有问题,帮我看看!! 俺倒~~~~~~~~`怎么能上三星啊? 向高手求救:如何得到一张表的行数和列数!! 散分!代码解读! 使用sybase时的提示The query and the views in it exceed the limit of 16 tables. 有办法解决吗? 如何将数组的内容添加到一个文件的末尾 怎样才能打开一个489K的.DAT文件? 列表框(ClistCtrl)如何得到选中项的文本内容和选中项的索引值 为什么我登录到Oracle Management Server时老出错。(oracle 9i) 这样的sql语句怎么写呢?急啊!(还可以加分) pb中截取字符串的问题:急,在线等待 急,在VC++.Net中怎样将字符串System::String类型转换为LPSTR类型? 用PQ把NTFS转换成FAT32时,文件名全变名问号了,怎么办?!!!!!!!!!! 又是回车符的问题,急!!!!! 关于工具栏的问题 控件的DragMode为dmAutomatic,不能用鼠标点? 奇怪的电脑时钟 系统不支持本地交互式登陆 ListView的小问题 有责任感的中国人(水均益:我来谈京沪高速铁路 ),顶者有分!200分 如何给MDI窗口设置背景图? 如何使数据按我定义的顺序显示出来 请教,我有一个toolbar,上面有四个toolbutton,问题! 关于按钮的小问题 追加记录思路 TemplatePower控件谁用过,Delphi下做网页报告的,在Builder上装不上 如何在MIDP中保存小数? 关于窗口设计 有责任感的中国人(水均益:我来谈京沪高速铁路 ),顶者有分!200分! 这里没有人关心Yokun吗?还是大家都在闭门造车? XP服务器安装后访问需密码,,该如何设置? 关于dc,hdc,getdc和pchar()的问题 急~~~在线等 上传主页。错误:530 Login incorrect 数据库问题 上傳的問題,急! TemplatePower控件谁用过,Delphi下做网页报告的,在Builder上装不上 饱览群书的饱食什么意思 余因得遍观群书的群的意思? "sb"这个单词? 1881+34=? 谁用过见血封喉汁做实验吗?有的答,没有的不用答 1881年算是哪个世纪 GERRUTI 1881怎么样 流年太岁太岁是什么意思 流年太岁: 饱览群书有这个词吗? 求语文能手;或饱览群书的人)(” 以色列凌晨释放第二批巴勒斯坦囚犯 共叙利亚反对派称统一组团参加日内瓦和平女歌手阿兰因美丽容貌走红 海量清纯照盘点打医生事件:美请FBI培训 日需首条横跨欧亚海底隧道启用 可乘火车从美国有意叫停窃听盟国元首 部门“内讧哈萨克斯坦举办首届国际美食节 各国顶乌克兰法院裁定没收季莫申科女儿名下饭秘鲁高等法院驳回藤森在家服刑申请美刊:中国房地产“泡沫总会破灭”斯里兰卡一出租司机诈骗中国游客900读读写写过日子(续三)建行ATM可查询住房公积金吉林省档案馆公布侵华日军档案 揭日军6月读的二十六本书李娜为延职业寿命不愿再搏冠军河北省22个县(市)启动数字城市建设百名上海高考生交大测“素质”杭州公交车燃烧事件送医人员上升至30笔供提要申城下周放晴 出梅尚无迹象“中国将重划城市规模标准”不死王朝旷世龙剑鬼道狂徒霸世修仙变身香江绝对武力重生左唯无敌透视穿越金庸大宋唐朝好驸马金庸武侠登录系统印象武隆旅游好汉坡旅游殷墟王陵遗址旅游维多利亚公园旅游白云山旅游鸿胜馆旅游南山风情街旅游翠微园旅游贵州博物馆旅游黄岩旅游赋春旅游
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘