用vb做的asp，有十几个文本框，要依次输入，如何用上下键实现光标在文本框的移动？

loveyoubody 2009-09-28 05:16:29

如题

...全文

35 1 打赏收藏转发到动态举报

写回复

1 条回复

切换为时间正序

请发表友善的回复…

发表回复

lindenrty 2009-09-28

打赏
举报

回复

给每个textbox设定一个序号假定保存在属性Index中
onkeyup事件,判断keycode,如果是向上键
把焦点给当前Index + 1的那个TextBox
反之亦然

VB 实现纯文本的选择等操作，操作对象是TXT格式那种纯字符文本格式，完整的代码如下：　　Private Sub Command1_Click() 　　Text1.Text = "大学毕业生就业形势严峻是当前社会的一大难题，创建社会主义和谐社会是众望所归。" '给文本框装入固定内容　　MsgBox "一次装入后，此按钮将不能再使用！" '装入后弹出窗体说明　　Command1.Enabled = False '只能装入一次，装入后按钮不可再用　　Text1.SetFocus 　　End Sub 　　Private Sub Command2_Click() 　　Dim s As Integer 　　s = InputBox("请输入要定位的光标位置（大于0）", "位置输入") 　　 '由用户来决定光标定位的位置　　Text1.SelStart = Val(s) 　　 '用SelStart属性实现定位　　Text1.SetFocus 　　End Sub 　　Private Sub Command3_Click() 　　Dim x, i As Integer 　　x = InputBox("请输入开始位置", "开始位置", "1") 　　i = InputBox("请输入长度", "长度", "1") '由用户决定选定的位置和长度　　Text1.SelStart = Val(x) '决定起始位置　　Text1.SelLength = Val(i) '决定选定长度　　Text1.SetFocus 　　End Sub 　　Private Sub Command4_Click() 　　Dim st As String 　　st = InputBox("请输入要替换的文本", "文本输入") '由用户输入替换内容　　Text1.SelText = st '用Seltext属性实现替换　　Text1.SetFocus 　　End Sub 　　你也可下载这个源码，用VB打开可直接编译运行，运行效果如图所示。

2021-2022计算机二级等级考试试题及答案No.19881.docx

2021-2022计算机二级等级考试试题及答案No.18756.docx

2021-2022计算机二级等级考试试题及答案No.11525.docx

2021-2022计算机二级等级考试试题及答案No.5558.docx

28,406

社区成员

356,946

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章