-
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