-
vb.net keydown事件中捕捉tab按键
2014-04-12 14:14:36演示如何在keydown事件中捕捉tab按键，不用拦截消息。 用vs2012编写 -
VB中屏蔽TextBox的右键菜单
2021-04-05 02:52:00在用VB编程时，我们可能需要通过对TextBox的KeyPress、KeyDown编程来实现限制输入，如只能输入数字、字母等，但是通过鼠标右键的粘贴功能却可以使你的代码功亏一篑，本例将演示如何通过调用API屏蔽TextBox的右键功能... -
VB中KeyCode的取法
2019-09-17 00:43:37下面的代码只是实现了屏蔽鼠标右键、Ctrl+n、shift+F10、F5刷新、退格键。function KeyDown(){ //屏蔽鼠标右键、Ctrl+n、shift+F10、F5刷新、退格键//alert("ASCII代码是："+event.keyCode);if ((window...展开全文
下面的代码只是实现了屏蔽鼠标右键、Ctrl+n、shift+F10、F5刷新、退格键。
function KeyDown(){
//屏蔽鼠标右键、Ctrl+n、shift+F10、F5刷新、退格键
//alert("ASCII代码是："+event.keyCode);
if ((window.event.altKey)&&
((window.event.keyCode==37)|| //屏蔽 Alt+ 方向键 ←
(window.event.keyCode==39))){ //屏蔽 Alt+ 方向键 →
alert("不准你使用ALT+方向键前进或后退网页！");
event.returnValue=false;
}
if ((event.keyCode==8) || //屏蔽退格删除键
(event.keyCode==116)|| //屏蔽 F5 刷新键
(event.keyCode==112)|| //屏蔽 F1 刷新键
(event.ctrlKey && event.keyCode==82)){ //Ctrl + R
event.keyCode=0;
event.returnValue=false;
}
if ((event.ctrlKey)&&(event.keyCode==78)) //屏蔽 Ctrl+n
event.returnValue=false;
if ((event.shiftKey)&&(event.keyCode==121)) //屏蔽 shift+F10
event.returnValue=false;
if (window.event.srcElement.tagName == "A" && window.event.shiftKey)
window.event.returnValue = false; //屏蔽 shift 加鼠标左键新开一网页
if ((window.event.altKey)&&(window.event.keyCode==115)){ //屏蔽Alt+F4
window.showModelessDialog("about:blank","","dialogWidth:1px;dialogheight:1px");
return false;}
}转载于:https://my.oschina.net/XTechFly/blog/639620
-
在vbscript中 用keyup \keydown这样的时间判断数字
2005-07-12 04:39:00在vb中，要进行文本框输入字符的限制（比如说只可以输入数字）,如果用change事件来控制的话会很慢，而且有的时候还能够看到光标的删除动作！要是用keydown来做就容易了！ <scriptlanguage="javascript">...展开全文在vb中，要进行文本框输入字符的限制（比如说只可以输入数字）,如果用change事件来控制的话会很慢，而且有的时候还能够看到光标的删除动作！要是用keydown来做就容易了！
<script language="javascript">
Function KeyPress()function KeyPress()
{ var l_key=window.event.keyCode; switch(l_key) { case 48: case 49: case 50: case 51: case 52: case 53: case 54: case 55: case 56: case 57: case 58: case 8: { break; } default: { window.event.keyCode=0; break; } } }</script></head><body> <input type="text" onKeyPress="KeyPress()" ></body></html>转载于:https://www.cnblogs.com/sxbamboo/archive/2005/07/12/191040.html
-
vb.net中的键盘事件处理
2008-08-21 10:46:22以下实例演示了VB.Net窗体控件Textbox1响应键盘回车事件 Private Sub TextBox1_KeyDown(ByVal Sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown If e.KeyCode = Keys...展开全文以下实例演示了VB.Net窗体控件Textbox1响应键盘回车事件Private Sub TextBox1_KeyDown(ByVal Sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDownIf e.KeyCode = Keys.Enter ThenMsgbox("乐博网提示你：你按了回车啦")End IfEnd SubKeyCode中 Keys属性 可以有多种选择 当我们按到Keys.位置时 将会出现可选的属性，你可以选择响应其他键盘事件如用户按了F1或者ESC退出等。如图：而当我们在选取属性的时候 会发现旁边有个小提示窗，如图：
我们能看到Enter 对应了一个数值 =13 ，那是否意味着也可以通过键盘事件的返回数值判断用户按了什么键？没错的，调整e的属性就可以实现这个转变，实例如下：Private Sub TextBox1_KeyDown(ByVal Sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDownIf e.KeyValue = 13 Then ' 13代表了Enter回车键的对应数值
MsgBox("乐博网提示你：你按了回车啦")
End IfEnd Sub
-
VB.NET中Form窗体运行时，按F1进入全屏状态
2019-10-06 11:03:571、在KeyDown事件中添加： If e.KeyValue = 112 Then Me.WindowState = FormWindowState.Maximized End If 注：1、其中112是F1的键值，也可以定义其他键，参考键值见本博客随笔。 2、有不懂得请直接留言即可。 ...展开全文1、在KeyDown事件中添加：
If e.KeyValue = 112 Then
Me.WindowState = FormWindowState.Maximized
End If注：1、其中112是F1的键值，也可以定义其他键，参考键值见本博客随笔。
2、有不懂得请直接留言即可。
转载于:https://www.cnblogs.com/jhc-blog/p/5841554.html
-
VB.NET中Form窗体运行时，按ESC退出全屏状态
2019-10-06 11:03:541、在其KeyDown事件添加： If e.KeyValue = 27 Then Me.FormBorderStyle = Windows.Forms.FormBorderStyle.Sizable End If 转载于:https://www.cnblogs.com/jhc-blog/p/5841544.html... -
VB键盘事件详解
2021-01-29 19:44:23“ 本节课程一起学习VB中的键盘事件。” 键盘事件的作用： 获得键盘输入信息，只有获得焦点的对象才能接受键盘事件。 键盘事件有三种： KeyPress、KeyDown、KeyUp KeyPress： 按了键盘的某键时触发，返回键盘的Ascii... -
vb前台模拟键鼠
2012-11-21 21:21:34vb前台模拟键鼠，另类实现sleep延时，不卡机 keyup 弹起 keydown 按下 keypress 按键 MouseDown 鼠标按下 MouseUp 鼠标弹起 Click 左键单击 RightClick 右键单击 MoveToClick 移动并单击 MoveTo 移动 TurnWheel 转动... -
VB判断键盘输入
2011-07-20 12:00:00VB判断键盘输入下图表示的是键盘各按键的KeyCode值：到这里，我们在KeyDown或KeyUp等事件的代码里用If KeyCode="...VB中还有一些特殊按键：Private Sub Form_KeyDown(KeyCode As Integer,ShIft As Integer... -
VB编程的键盘控制
2016-09-01 15:20:00在VB中，很多控件都提供了键盘输入功能（如文本框、组合框等），但它们对键盘的处理较简单，遇到复杂一点的要求即无能为力。 因而VB提供了KeyPress、KeyUp、KeyDown三种键盘事件，当用户按键时，会触发这三种事件，... -
[原] access97中textbox类似vb的maxlength功能的实现
2007-10-03 23:15:00PrivateSubtxt文字_KeyDown(KeyCodeAsInteger,ShiftAsInteger) If(KeyCode=13)Or(KeyCode=9)Then EndIf EndSub PrivateSubtxt文字_KeyPress(KeyAsciiAsInteger) If(... -
【VB.NET】文本框快捷键支持
2014-10-18 23:22:00我们知道VB.NET中的文本框是不支持Ctrl+A的快捷键的。 如果让它支持呢？ 1 Private Sub txtSQL_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtSQL.KeyDown 2... -
vb 添加状态栏
2015-03-06 12:25:001.新建一工程2.添加"部件" ms windows common controls 6.03.将StatusBar控件加至...通过代码可改变状态栏中的显示内容如Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)If KeyCode = vbKeyInse... -
vb学习之十
2016-02-11 21:05:38在窗体上画一个控件(指前面所讲的可以发生KeyPress事件的控件)，并双击该控件，进入程序代码窗口后，从“过程”框中选取KeyPress，即可定义KeyPress事件过程。一般格式为: Private Sub Text1 _ KeyPress... -
swt 键盘事件ctrl+c_VB键盘事件详解
2020-12-14 18:43:14“本节课程一起学习VB中的键盘事件。”键盘事件的作用：获得键盘输入信息，只有获得焦点的对象才能接受键盘事件。键盘事件有三种：KeyPress、KeyDown、KeyUpKeyPress：按了键盘的某键时触发，返回键盘的Ascii码值... -
用VB编写键盘拦截程序
2014-03-16 17:44:08我们知道，在一些程序中，有一些快捷方式(如：Shift键最小化、ESC键退出、Ctrl＋S存盘、Alt＋x退出等等)。以前有一些介绍使用Win32 API可以做到，但过于繁琐，其实VB本身已经给我们提供了这个功能。 我们来新建一... -
VB替换右键菜单按ALT F4强制关闭.rar
2019-07-10 17:41:50VB6.0新建右键菜单，替换掉原窗口中的右键菜单，原窗口的右键菜单貌似是Flash文件，现在可以替换成自定义的右键菜单，vb替换flash右键菜单，自定义右键菜单。处理鼠标操作代码如下： Public Function MyWindowProc... -
VB内组合键的应用 1
2008-01-07 16:04:00VB程序中组合截键的应用程序中组合截键的应用：例：在 KeyDown事件中 判断按下键 =====================If Shift = ??? And KeyCode = ??? Then ......shift =??? 表示按下的是 shift 还是 ctrl 还是 altshift =... -
基于数据库的VB课程设计
2012-12-26 19:54:28在程序的编制和调试过程中，我从中学到了很多有用的方法，比如通过本次设计，我更深刻的体会到了VB系统的方便与实用。在课程设计的过程中，我对课本上的知识进行了复习，从中找出了不少盲点，由衷地感觉到学习过程中... -
VB程序设计综合复习题
2009-11-15 11:27:52VB程序设计综合复习题 1、叙述Visual Basic的特点。 2、当窗体上有三个文本框和一个命令按钮，若程序运行时，焦点定位在第三个文本框（Text3）处，应对何控件的什么属性进行何种设置？ 3、若要对窗体上的三个文本框... -
VB6: API如何发送键盘事件
2012-09-21 11:02:31Windows的键盘事件被...如: Ctrl + Delete按键事件, 在Windows中响应为 KeyDown + ControlKeyDown + DeleteKeyUp + DeleteKeyUp + Control 下面的示例, 显示了如何向指定窗口发送Ctrl + Del事件 Optio -
vb贪食蛇源代码
2012-04-21 16:52:54vb小游戏定义蛇的运动速度枚举值 Private Enum tpsSpeed QUICKLY = 0 SLOWLY = 1 End Enum '定义蛇的运动方向枚举值 Private Enum tpsDirection D_UP = 38 D_DOWN = 40 D_LEFT = 37 D_RIGHT = 39 End Enum '...
收藏数
56
精华内容
22