精华内容
下载资源
问答
  • 演示如何在keydown事件捕捉tab按键,不用拦截消息。 用vs2012编写
  • 在用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

    展开全文
  • vb中,要进行文本框输入字符的限制(比如说只可以输入数字),如果用change事件来控制的话会很慢,而且有的时候还能够看到光标的删除动作!要是用keydown来做就容易了! <scriptlanguage="javascript">...
    在vb中,要进行文本框输入字符的限制(比如说只可以输入数字),如果用change事件来控制的话会很慢,而且有的时候还能够看到光标的删除动作!要是用keydown来做就容易了!

    None.gif<script language="javascript">
    ExpandedBlockStart.gifContractedBlock.gif  
    Function KeyPress()function KeyPress()
    InBlock.gif  {
    InBlock.gif     var l_key
    =window.event.keyCode;
    InBlock.gif     
    InBlock.gif     switch(l_key)
    InBlock.gif     {
    InBlock.gif       
    case 48:
    InBlock.gif       
    case 49:
    InBlock.gif       
    case 50:
    InBlock.gif       
    case 51:
    InBlock.gif       
    case 52:
    InBlock.gif       
    case 53:
    InBlock.gif       
    case 54:
    InBlock.gif       
    case 55:
    InBlock.gif       
    case 56:
    InBlock.gif       
    case 57:
    InBlock.gif       
    case 58:
    InBlock.gif       
    case 8:
    InBlock.gif       { 
    InBlock.gif         break;
    InBlock.gif       }
    InBlock.gif       
    default:
    InBlock.gif       {
    InBlock.gif          window.
    event.keyCode=0;
    InBlock.gif          
    InBlock.gif          break; 
    InBlock.gif       }
    InBlock.gif     }
    InBlock.gif    
    InBlock.gif    
    InBlock.gif  }
    InBlock.gif
    </script>
    InBlock.gif
    </head>
    InBlock.gif
    InBlock.gif
    <body>
    InBlock.gif  
    <input type="text" onKeyPress="KeyPress()" >
    InBlock.gif
    </body>
    InBlock.gif
    </html>
    InBlock.gif

    转载于:https://www.cnblogs.com/sxbamboo/archive/2005/07/12/191040.html

    展开全文
  • 以下实例演示了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.KeyDown
            If e.KeyCode = Keys.Enter Then
                  Msgbox("乐博网提示你:你按了回车啦")
            End If
    End Sub
    KeyCode中 Keys属性 可以有多种选择 当我们按到Keys.位置时 将会出现可选的属性,你可以选择响应其他键盘事件如用户按了F1或者ESC退出等。
    如图:
    而当我们在选取属性的时候  会发现旁边有个小提示窗,如图:
    我们能看到Enter 对应了一个数值 =13 ,那是否意味着也可以通过键盘事件的返回数值判断用户按了什么键?
    没错的,调整e的属性就可以实现这个转变,实例如下:
    Private Sub TextBox1_KeyDown(ByVal Sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown
            If e.KeyValue = 13 Then   ' 13代表了Enter回车键的对应数值
                MsgBox("乐博网提示你:你按了回车啦")
            End If
     End Sub
    展开全文
  • 1、在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

    展开全文
  • 1、在其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:34
    vb前台模拟键鼠,另类实现sleep延时,不卡机 keyup 弹起 keydown 按下 keypress 按键 MouseDown 鼠标按下 MouseUp 鼠标弹起 Click 左键单击 RightClick 右键单击 MoveToClick 移动并单击 MoveTo 移动 TurnWheel 转动...
  • VB判断键盘输入

    2011-07-20 12:00:00
    VB判断键盘输入下图表示的是键盘各按键的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三种键盘事件,当用户按键时,会触发这三种事件,...
  • PrivateSubtxt文字_KeyDown(KeyCodeAsInteger,ShiftAsInteger) If(KeyCode=13)Or(KeyCode=9)Then EndIf EndSub PrivateSubtxt文字_KeyPress(KeyAsciiAsInteger) If(...
  • 我们知道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:00
    1.新建一工程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...
  • “本节课程一起学习VB中的键盘事件。”键盘事件的作用:获得键盘输入信息,只有获得焦点的对象才能接受键盘事件。键盘事件有三种:KeyPress、KeyDown、KeyUpKeyPress:按了键盘的某键时触发,返回键盘的Ascii码值...
  • 我们知道,在一些程序,有一些快捷方式(如:Shift键最小化、ESC键退出、Ctrl+S存盘、Alt+x退出等等)。以前有一些介绍使用Win32 API可以做到,但过于繁琐,其实VB本身已经给我们提供了这个功能。  我们来新建一...
  • VB6.0新建右键菜单,替换掉原窗口的右键菜单,原窗口的右键菜单貌似是Flash文件,现在可以替换成自定义的右键菜单,vb替换flash右键菜单,自定义右键菜单。处理鼠标操作代码如下:  Public Function MyWindowProc...
  • VB内组合键的应用 1

    2008-01-07 16:04:00
    VB程序组合截键的应用程序组合截键的应用:例:在 KeyDown事件 判断按下键 =====================If Shift = ??? And KeyCode = ??? Then ......shift =??? 表示按下的是 shift 还是 ctrl 还是 altshift =...
  • 在程序的编制和调试过程,我从中学到了很多有用的方法,比如通过本次设计,我更深刻的体会到了VB系统的方便与实用。在课程设计的过程,我对课本上的知识进行了复习,从中找出了不少盲点,由衷地感觉到学习过程...
  • VB程序设计综合复习题 1、叙述Visual Basic的特点。 2、当窗体上有三个文本框和一个命令按钮,若程序运行时,焦点定位在第三个文本框(Text3)处,应对何控件的什么属性进行何种设置? 3、若要对窗体上的三个文本框...
  • VB6: API如何发送键盘事件

    千次阅读 2012-09-21 11:02:31
    Windows的键盘事件被...如: Ctrl + Delete按键事件, 在Windows响应为 KeyDown + ControlKeyDown + DeleteKeyUp + DeleteKeyUp + Control 下面的示例, 显示了如何向指定窗口发送Ctrl + Del事件 Optio
  • vb贪食蛇源代码

    2012-04-21 16:52:54
    vb小游戏定义蛇的运动速度枚举值 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 '...

空空如也

空空如也

1 2 3
收藏数 56
精华内容 22
关键字:

vb中keydown