7493
社区成员
关于TextBox的一个有意思的现象:(关键字：TextBox,MultiLine,KeyCode)
关于TextBox的一个有意思的现象：
把Text1，Text2，Text3的MultiLine置为true后，按下键盘的上下键，能响应用于测试的MsgBox，但却不能转移焦点，但是对于左右键却可以，不知为什么。请高手指点一下！
代码如下：
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyRight:
MsgBox "KeyRight Pressed"
Text2.SetFocus
Case vbKeyUp:
MsgBox "KeyUp Pressed"
Text2.SetFocus
End Select
End Sub
Private Sub Text2_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyLeft:
MsgBox "KeyLeft Pressed"
Text1.SetFocus
Case vbKeyDown:
MsgBox "KeyDown Pressed"
Text1.SetFocus
Case vbKeyRight:
MsgBox "KeyRight Pressed"
Text3.SetFocus
Case vbKeyUp:
MsgBox "KeyUp Pressed"
Text3.SetFocus
End Select
End Sub
Private Sub Text3_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyLeft:
MsgBox "KeyLeft Pressed"
Text2.SetFocus
Case vbKeyDown:
MsgBox "KeyDown Pressed"
Text2.SetFocus
End Select
End Sub
把Text1，Text2，Text3的MultiLine置为true后，按下键盘的上下键，能响应用于测试的MsgBox，但却不能转移焦点，但是对于左右键却可以，不知为什么。请高手指点一下！
代码如下：
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyRight:
MsgBox "KeyRight Pressed"
Text2.SetFocus
Case vbKeyUp:
MsgBox "KeyUp Pressed"
Text2.SetFocus
End Select
End Sub
Private Sub Text2_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyLeft:
MsgBox "KeyLeft Pressed"
Text1.SetFocus
Case vbKeyDown:
MsgBox "KeyDown Pressed"
Text1.SetFocus
Case vbKeyRight:
MsgBox "KeyRight Pressed"
Text3.SetFocus
Case vbKeyUp:
MsgBox "KeyUp Pressed"
Text3.SetFocus
End Select
End Sub
Private Sub Text3_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyLeft:
MsgBox "KeyLeft Pressed"
Text2.SetFocus
Case vbKeyDown:
MsgBox "KeyDown Pressed"
Text2.SetFocus
End Select
End Sub
...全文
当前发帖距今超过3年，不再开放新的回复
发表回复
xo2000 2003-05-09
已经结贴了，怎么看不到给分情况呢？
各位，收到分了吧！
各位，收到分了吧！
DaiLM 2003-05-08
vbkeycancel表示按键取消，也就是表示不按键
你可以根据自己的要求改变其位置以达到目的
你可以根据自己的要求改变其位置以达到目的
DaiLM 2003-05-08
比如：
Private Sub Text3_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyLeft:
MsgBox "KeyLeft Pressed"
Text2.SetFocus
keycode=vbkeycancel
Case vbKeyDown:
MsgBox "KeyDown Pressed"
Text1.SetFocus
keycode=vbkeycancel
Case vbKeyRight:
MsgBox "KeyRight Pressed"
Text1.SetFocus
Case vbKeyUp:
MsgBox "KeyUp Pressed"
Text2.SetFocus
End Select
End Sub
这时按左和下后就不会对下一控件产生作用了，但是右和上有可能还会对下一控件产生作用
Private Sub Text3_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyLeft:
MsgBox "KeyLeft Pressed"
Text2.SetFocus
keycode=vbkeycancel
Case vbKeyDown:
MsgBox "KeyDown Pressed"
Text1.SetFocus
keycode=vbkeycancel
Case vbKeyRight:
MsgBox "KeyRight Pressed"
Text1.SetFocus
Case vbKeyUp:
MsgBox "KeyUp Pressed"
Text2.SetFocus
End Select
End Sub
这时按左和下后就不会对下一控件产生作用了，但是右和上有可能还会对下一控件产生作用
xo2000 2003-05-08
楼上能否详细解释一下什么时候要用这句代码。
或者说为什么左右键不用没问题，而上下键就必须用呢？
或者说为什么左右键不用没问题，而上下键就必须用呢？
kmzs 2003-05-07
上下键要在行间转换……
xo2000 2003-05-07
谢谢各位，用 DaiLM()的方法把问题解决了！
DaiLM() 能否解释一下为什么要用
KeyCode = vbKeyCancel
，为什么左右键不用没问题，而上下键就必须用呢？谢谢！
DaiLM() 能否解释一下为什么要用
KeyCode = vbKeyCancel
，为什么左右键不用没问题，而上下键就必须用呢？谢谢！
DaiLM 2003-05-07
已改过，并通过了！
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyLeft:
MsgBox "KeyLeft Pressed"
Text3.SetFocus
Case vbKeyDown:
MsgBox "KeyDown Pressed"
Text2.SetFocus
Case vbKeyRight:
MsgBox "KeyRight Pressed"
Text2.SetFocus
Case vbKeyUp:
MsgBox "KeyUp Pressed"
Text3.SetFocus
End Select
KeyCode = vbKeyCancel
End Sub
Private Sub Text2_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyLeft:
MsgBox "KeyLeft Pressed"
Text1.SetFocus
Case vbKeyDown:
MsgBox "KeyDown Pressed"
Text3.SetFocus
Case vbKeyRight:
MsgBox "KeyRight Pressed"
Text3.SetFocus
Case vbKeyUp:
MsgBox "KeyUp Pressed"
Text1.SetFocus
End Select
KeyCode = vbKeyCancel
End Sub
Private Sub Text3_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyLeft:
MsgBox "KeyLeft Pressed"
Text2.SetFocus
Case vbKeyDown:
MsgBox "KeyDown Pressed"
Text1.SetFocus
Case vbKeyRight:
MsgBox "KeyRight Pressed"
Text1.SetFocus
Case vbKeyUp:
MsgBox "KeyUp Pressed"
Text2.SetFocus
End Select
KeyCode = vbKeyCancel
End Sub
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyLeft:
MsgBox "KeyLeft Pressed"
Text3.SetFocus
Case vbKeyDown:
MsgBox "KeyDown Pressed"
Text2.SetFocus
Case vbKeyRight:
MsgBox "KeyRight Pressed"
Text2.SetFocus
Case vbKeyUp:
MsgBox "KeyUp Pressed"
Text3.SetFocus
End Select
KeyCode = vbKeyCancel
End Sub
Private Sub Text2_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyLeft:
MsgBox "KeyLeft Pressed"
Text1.SetFocus
Case vbKeyDown:
MsgBox "KeyDown Pressed"
Text3.SetFocus
Case vbKeyRight:
MsgBox "KeyRight Pressed"
Text3.SetFocus
Case vbKeyUp:
MsgBox "KeyUp Pressed"
Text1.SetFocus
End Select
KeyCode = vbKeyCancel
End Sub
Private Sub Text3_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyLeft:
MsgBox "KeyLeft Pressed"
Text2.SetFocus
Case vbKeyDown:
MsgBox "KeyDown Pressed"
Text1.SetFocus
Case vbKeyRight:
MsgBox "KeyRight Pressed"
Text1.SetFocus
Case vbKeyUp:
MsgBox "KeyUp Pressed"
Text2.SetFocus
End Select
KeyCode = vbKeyCancel
End Sub
xo2000 2003-05-07
to victorycyz(中海) :试了，也不管用。应该没什么关系，不然，左右键怎么行呢？
to Leftie(Leftie) :也不行，更本执行不到Case vbKeyReturn这一句，我设断点试了。
to Leftie(Leftie) :也不行，更本执行不到Case vbKeyReturn这一句，我设断点试了。
饮水需思源 2003-05-07
Private Sub Text2_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyReturn
text3.setfocus
Case vbKeyDown
Text3.SetFocus
MsgBox "KeyRight Pressed"
Case vbKeyUp
Text1.SetFocus
MsgBox "KeyUp Pressed"
End Select
End Sub
Select Case KeyCode
Case vbKeyReturn
text3.setfocus
Case vbKeyDown
Text3.SetFocus
MsgBox "KeyRight Pressed"
Case vbKeyUp
Text1.SetFocus
MsgBox "KeyUp Pressed"
End Select
End Sub
victorycyz 2003-05-07
先把text3_keydown()注释掉看看。
xo2000 2003-05-07
to victorycyz(中海) :结果一样，不起作用。
另外似乎有一个现象：比如丛text2按up，光标好象闪到tex3后又闪回来了。（有时出现这个现象，希望不是我看看花眼了：））
另外似乎有一个现象：比如丛text2按up，光标好象闪到tex3后又闪回来了。（有时出现这个现象，希望不是我看看花眼了：））
victorycyz 2003-05-07
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyRight:
Text2.SetFocus
MsgBox "KeyRight Pressed"
Case vbKeyUp:
Text2.SetFocus
MsgBox "KeyUp Pressed"
End Select
End Sub
这样呢？
Select Case KeyCode
Case vbKeyRight:
Text2.SetFocus
MsgBox "KeyRight Pressed"
Case vbKeyUp:
Text2.SetFocus
MsgBox "KeyUp Pressed"
End Select
End Sub
这样呢？
winform中textbox属性Multiline=true时全选 1、文本框右键属性 => 添加KeyDown事件。 2、添加如下代码： private void txt_result_KeyDown(object sender, KeyEventArgs e) ... if (e.Control && e.KeyCode == Keys.A) { ((TextBox)sender).SelectAll();
C#基础教程-c#实例教程，适合初学者 第一章 C#语言基础 本章介绍C#语言的基础知识，希望具有C语言的读者能够基本掌握C#语言，并以此为基础，能够进一步学习用C#语言编写window应用程序和Web应用程序。当然仅靠一章的内容就完全掌握C#语言是不可能的，...
关于Multiline为True的TextBox控件赋值=""时的自动换行 有些新手问:为什么我赋值Text1.Text = "" 时候,他总是自己向下换一行呢? 其实这个问题从事件触发的过程分析,就不会有这个疑问了. Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode =...
C#按回车Enter使输入焦点自动跳到下一个TextBox的方法收集 在录入界面中，用户往往需要按回车键时光标自动跳入下一个文本框，以方便录入操作。...将各个TextBox的TabIndex属性按顺序编号1、2、3……，然后将TextBox的TabStop属性置为True，在每一个TextBox的键盘按下事件中，...
控件textbox的TextMode="MultiLine"时的限制字数多少问题 TextMode="MultiLine"的Textbox不能用平常的MaxLength属性来标识，这个属性在此地不起作用，那么问题来了，该怎么做呢？ 在此控件中利用onkeydown事件和onPaste事件调用JS JS如下： function DoKeyPress...
Discuz!NT控件剖析 之 TextBox [原创: 附源码] 继上篇文章之后（http://www.cnblogs.com/daizhj/archive/2007/08/02/840607.html），大家给了不少的反馈，其中有肯定也有否定的，...希望大家能一如既往的支持我们的这个开源项目。 好了，开始今天的话题，今天就说一
easyui textbox多行文本输入框高度根据内容伸缩 $("input#"+$(el).next().attr("name")).textbox("options").height=el.style.height; $(el).parent("span").css("height",el.style.height); $(el).css({"overflow-y":"hidden","padding-top":2}); // ...
TextBox属性TextMode="MultiLine"后字符输入长度控制的方法。 在网上找了很多，最后这个是最好的。 <asp:TextBox ID="vcPlace" runat="server" Width="160px" MaxLength="100" TextMode="MultiLine" Height="...
jquery 实现 ASP.NET TextBox 多行文本的换行 1.页面内容 $(document).ready(function () { $('textarea').keypress(function (e) { if ((e.which && e.which == 13) || (e.keyCode && e.keyCode == 13
基于java的企业人事管理系统设计--软件工程课程设计（含源码与论文设计）.rar 1 引言 4
1.1 课程设计目标 4
1.2 编程工具（编程环境）介绍 4
1.3 实施时间及主要实施步骤 4
2 需求分析 5
3 系统总体设计 6
4 数据库设计 6
5 主要功能模块的设计与实现 10
5.1 功能模块1详细设计（综合查询员工信息）..........................................................10
5.1.1 详细设计.......................................................................................................10
5.1.2 算法流程........................................................................................................15
5.1.3 界面设计及测试结果.....................................................................................15
6 调试分析 15
7 用户手册 16
8 测试结果 17
8.1 员工信息的添加...................................................................................................17
8.2 员工信息的修改...................................................................................................17
8.3 员工信息的删除...................................................................................................18
8.4 员工信息的综合查询...........................................................................................18
8.5 员工信息按性别统计的结果................................................................................19
8.6 员工信息按状态统计的结果...............................................................................19
8.7 员工信息按职称统计的结果................................................................................20
9 结论 20
10 参考文献 20
