精华内容
下载资源
问答
  • \VB keypress事件键盘上每个键的KeyAscii值
  • VB keypress事件键盘上每个键的KeyAscii值! 常数 值 描述 vbKeyLButton 1 鼠标左键 vbKeyRButton 2 鼠标右键 vbKeyCancel 3 CANCEL 键 vbKeyMButton 4 鼠标键 vbKeyBack 8 BACKSPACE 键
    案例:
       keybd_event vbKeyTab, 0, 0, 0

    VB keypress事件中键盘上每个键的KeyAscii值!

    常数 值 描述
    vbKeyLButton 1 鼠标左键
    vbKeyRButton 2 鼠标右键
    vbKeyCancel 3 CANCEL 键
    vbKeyMButton 4 鼠标中键
    vbKeyBack 8 BACKSPACE 键
    vbKeyTab 9 TAB 键
    vbKeyClear 12 CLEAR 键
    vbKeyReturn 13 ENTER 键
    vbKeyShift 160 SHIFT 键
    vbKeyControl 162 CTRL 键
    vbKeyALT 164 ALT 键
    vbKeyMenu 18 菜单键
    vbKeyPause 19 PAUSE 键
    vbKeyCapital 20 CAPS LOCK 键
    vbKeyEscape 27 ESC 键
    vbKeySpace 32 SPACEBAR 键
    vbKeyPageUp 33 PAGEUP 键
    vbKeyPageDown 34 PAGEDOWN 键
    vbKeyEnd 35 END 键
    vbKeyHome 36 HOME 键
    vbKeyLeft 37 LEFT ARROW 键
    vbKeyUp 38 UP ARROW 键
    vbKeyRight 39 RIGHT ARROW 键
    vbKeyDown 40 DOWN ARROW 键
    vbKeySelect 41 SELECT 键
    vbKeyPrint 42 PRINT SCREEN 键
    vbKeyExecute 43 EXECUTE 键
    vbKeySnapshot 44 SNAP SHOT 键
    vbKeyInser 45 INS 键
    vbKeyDelete 46 DEL 键
    vbKeyHelp 47 HELP 键
    vbKeyNumlock 144 NUM LOCK 键

    A 键到 Z 键与其 ASCII 码的相应值'A' 到 'Z' 是一致的
    常数 值 描述
    vbKeyA 65 A 键
    vbKeyB 66 B 键
    vbKeyC 67 C 键
    vbKeyD 68 D 键
    vbKeyE 69 E 键
    vbKeyF 70 F 键
    vbKeyG 71 G 键
    vbKeyH 72 H 键
    vbKeyI 73 I 键
    vbKeyJ 74 J 键
    vbKeyK 75 K 键
    vbKeyL 76 L 键
    vbKeyM 77 M 键
    vbKeyN 78 N 键
    vbKeyO 79 O 键
    vbKeyP 80 P 键
    vbKeyQ 81 Q 键
    vbKeyR 82 R 键
    vbKeyS 83 S 键
    vbKeyT 84 T 键
    vbKeyU 85 U 键
    vbKeyV 86 V 键
    vbKeyW 87 W 键
    vbKeyX 88 X 键
    vbKeyY 89 Y 键
    vbKeyZ 90 Z 键

    0 键到 9 键与其 ASCII 码的相应值 '0' 到 '9' 是一致的
    常数 值 描述
    vbKey0 48 0 键
    vbKey1 49 1 键
    vbKey2 50 2 键
    vbKey3 51 3 键
    vbKey4 52 4 键
    vbKey5 53 5 键
    vbKey6 54 6 键
    vbKey7 55 7 键
    vbKey8 56 8 键
    vbKey9 57 9 键

    数字小键盘上的键
    常数 值 描述
    vbKeyNumpad0 96 0 键
    vbKeyNumpad1 97 1 键
    vbKeyNumpad2 98 2 键
    vbKeyNumpad3 99 3 键
    vbKeyNumpad4 100 4 键
    vbKeyNumpad5 101 5 键
    vbKeyNumpad6 102 6 键
    vbKeyNumpad7 103 7 键
    vbKeyNumpad8 104 8 键
    vbKeyNumpad9 105 9 键
    vbKeyMultiply 106 乘号 (*) 键
    vbKeyAdd 107 加号 (+) 键
    vbKeySeparator 108 ENTER 键(在数字小键盘上)
    vbKeySubtract 109 减号 (-) 键
    vbKeyDecimal 110 小数点 (.) 键
    vbKeyDivide 111 除号 (/) 键

    功能键
    常数 值 描述
    vbKeyF1 112 F1 键
    vbKeyF2 113 F2 键
    vbKeyF3 114 F3 键
    vbKeyF4 115 F4 键
    vbKeyF5 116 F5 键
    vbKeyF6 117 F6 键
    vbKeyF7 118 F7 键
    vbKeyF8 119 F8 键
    vbKeyF9 120 F9 键
    vbKeyF10 121 F10 键
    vbKeyF11 122 F11 键
    vbKeyF12 123 F12 键
    vbKeyF13 124 F13 键
    vbKeyF14 125 F14 键
    vbKeyF15 126 F15 键
    vbKeyF16 127 F16 键
    展开全文
  • 案例: keybd_event vbKeyTab, 0, 0, 0 VB keypress事件键盘上每个键的KeyAscii值! 常数 值 描述 vbKeyLButton 1 鼠标左键 vbKeyRButton 2 鼠标右键 vbKeyCancel 3 CANCEL 键 vbKeyMButton 4 鼠标vb...

    ASCII:https://baike.baidu.com/item/ASCII

    案例:
    keybd_event vbKeyTab, 0, 0, 0

    VB keypress事件中键盘上每个键的KeyAscii值!

    常数 值 描述
    vbKeyLButton 1 鼠标左键
    vbKeyRButton 2 鼠标右键
    vbKeyCancel 3 CANCEL 键
    vbKeyMButton 4 鼠标中键
    vbKeyBack 8 BACKSPACE 键
    vbKeyTab 9 TAB 键
    vbKeyClear 12 CLEAR 键
    vbKeyReturn 13 ENTER 键
    vbKeyShift 160 SHIFT 键
    vbKeyControl 162 CTRL 键
    vbKeyALT 164 ALT 键
    vbKeyMenu 18 菜单键
    vbKeyPause 19 PAUSE 键
    vbKeyCapital 20 CAPS LOCK 键
    vbKeyEscape 27 ESC 键
    vbKeySpace 32 SPACEBAR 键
    vbKeyPageUp 33 PAGEUP 键
    vbKeyPageDown 34 PAGEDOWN 键
    vbKeyEnd 35 END 键
    vbKeyHome 36 HOME 键
    vbKeyLeft 37 LEFT ARROW 键
    vbKeyUp 38 UP ARROW 键
    vbKeyRight 39 RIGHT ARROW 键
    vbKeyDown 40 DOWN ARROW 键
    vbKeySelect 41 SELECT 键
    vbKeyPrint 42 PRINT SCREEN 键
    vbKeyExecute 43 EXECUTE 键
    vbKeySnapshot 44 SNAP SHOT 键
    vbKeyInser 45 INS 键
    vbKeyDelete 46 DEL 键
    vbKeyHelp 47 HELP 键
    vbKeyNumlock 144 NUM LOCK 键

    A 键到 Z 键与其 ASCII 码的相应值’A’ 到 ‘Z’ 是一致的
    常数 值 描述
    vbKeyA 65 A 键
    vbKeyB 66 B 键
    vbKeyC 67 C 键
    vbKeyD 68 D 键
    vbKeyE 69 E 键
    vbKeyF 70 F 键
    vbKeyG 71 G 键
    vbKeyH 72 H 键
    vbKeyI 73 I 键
    vbKeyJ 74 J 键
    vbKeyK 75 K 键
    vbKeyL 76 L 键
    vbKeyM 77 M 键
    vbKeyN 78 N 键
    vbKeyO 79 O 键
    vbKeyP 80 P 键
    vbKeyQ 81 Q 键
    vbKeyR 82 R 键
    vbKeyS 83 S 键
    vbKeyT 84 T 键
    vbKeyU 85 U 键
    vbKeyV 86 V 键
    vbKeyW 87 W 键
    vbKeyX 88 X 键
    vbKeyY 89 Y 键
    vbKeyZ 90 Z 键

    0 键到 9 键与其 ASCII 码的相应值 ‘0’ 到 ‘9’ 是一致的
    常数 值 描述
    vbKey0 48 0 键
    vbKey1 49 1 键
    vbKey2 50 2 键
    vbKey3 51 3 键
    vbKey4 52 4 键
    vbKey5 53 5 键
    vbKey6 54 6 键
    vbKey7 55 7 键
    vbKey8 56 8 键
    vbKey9 57 9 键

    数字小键盘上的键
    常数 值 描述
    vbKeyNumpad0 96 0 键
    vbKeyNumpad1 97 1 键
    vbKeyNumpad2 98 2 键
    vbKeyNumpad3 99 3 键
    vbKeyNumpad4 100 4 键
    vbKeyNumpad5 101 5 键
    vbKeyNumpad6 102 6 键
    vbKeyNumpad7 103 7 键
    vbKeyNumpad8 104 8 键
    vbKeyNumpad9 105 9 键
    vbKeyMultiply 106 乘号 (*) 键
    vbKeyAdd 107 加号 (+) 键
    vbKeySeparator 108 ENTER 键(在数字小键盘上)
    vbKeySubtract 109 减号 (-) 键
    vbKeyDecimal 110 小数点 (.) 键
    vbKeyDivide 111 除号 (/) 键

    功能键
    常数 值 描述
    vbKeyF1 112 F1 键
    vbKeyF2 113 F2 键
    vbKeyF3 114 F3 键
    vbKeyF4 115 F4 键
    vbKeyF5 116 F5 键
    vbKeyF6 117 F6 键
    vbKeyF7 118 F7 键
    vbKeyF8 119 F8 键
    vbKeyF9 120 F9 键
    vbKeyF10 121 F10 键
    vbKeyF11 122 F11 键
    vbKeyF12 123 F12 键
    vbKeyF13 124 F13 键
    vbKeyF14 125 F14 键
    vbKeyF15 126 F15 键
    vbKeyF16 127 F16 键

    展开全文
  • 在用VB编程时,我们可能需要通过对TextBox的KeyPress、KeyDown编程来实现限制输入,如只能输入数字、字母等,但是通过鼠标右键的粘贴功能却可以使你的代码功亏一篑,本例将演示如何通过调用API屏蔽TextBox的右键功能...
  • VB中使用文本框技巧两则

    千次阅读 2004-07-13 11:11:00
    VB中的文本框在开发中用得十分频繁,下面是两则小技巧,与大家分享: 1.如何限制文本框只能输入数字键? 代码: Private Sub Text1_KeyPress(KeyAscii As Integer) If Not (IsNumeric(Chr(KeyAscii)) Or Key...

    VB中的文本框在开发中用得十分频繁,下面是两则小技巧,与大家分享:

    1.如何限制文本框只能输入数字键?
       代码:
       Private Sub Text1_KeyPress(KeyAscii As Integer)
           If Not (IsNumeric(Chr(KeyAscii)) Or KeyAscii = 8) Then KeyAscii = 0
       End Sub

    2.如何控制文本框中只可以输入字符,禁止输入汉字?
       Text的IMEMode属性设为 3-Disable

       当然,以上办法只是作一般的限制,如果要做到完全的控制,那么还得把文本框的快捷键'Ctrl+V'和鼠标右键的粘贴给"做掉"才行.

                                                                          --- by 唐细刚

    展开全文
  • 【学生】vb中的各种限制

    热门讨论 2019-08-12 18:35:56
    在学生信息管理系统会遇到输入姓名、学号、联系电话和日期的时候,这个时候为了方便使用,往往是需要限制一下文本框的输入信息的。 【正文】 限制文本框只能输入数字和删除键 Private Sub txtClassno_KeyPress...

    【前言】

    在学生信息管理系统中会遇到输入姓名、学号、联系电话和日期的时候,这个时候为了方便使用,往往是需要限制一下文本框的输入信息的。

    【正文】

    • 限制文本框只能输入数字和删除键
    Private Sub txtClassno_KeyPress(KeyAscii As Integer)
        Select Case KeyAscii
            Case 48 To 57
            Case 8
        Case Else
            KeyAscii = 0
            MsgBox "请输入数字", vbOKOnly + vbExclamation, "提示"
            txtClassno.Text = ""
        End Select
    End Sub
    
    • 限制文本框只能输入汉字和删除键
    Private Sub txtDirector_KeyPress(KeyAscii As Integer)
        If KeyAscii >= -20319 And KeyAscii <= -3652 Or KeyAscii = 8 Then
        Else
            KeyAscii = 0
            MsgBox "请输入汉字!", vbOKOnly + vbExclamation, "提示"
            txtDirector.SetFocus
        End If
    End Sub
    
    
    • 限制输入的数字长度
    If Len(txtTel.Text) <> 11 Then
        MsgBox "请输入11位数字电话号码", vbOKOnly + vbExclamation, "警告"
        txtTel.Text = ""
        txtTel.SetFocus
        Exit Sub
    End If
    
    • 禁止复制
    '禁止单击右键
    Private Sub txtName_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
        If Button = MouseButtonConstants.vbRightButton Then
        MsgBox "右键菜单被禁用.", vbOKOnly, "对不起"
        End If
    End Sub
    
    •  禁止使用剪切板
    '清空剪切板
    Private Sub txtCardNo_KeyDown(KeyCode As Integer, Shift As Integer)
        If Shift = 2 And KeyCode = vbKeyV Then  '如果是Ctrl+V,清空剪贴板
            Clipboard.Clear
        End If
    End Sub
    
     '清空剪切板
    Private Sub txtCardNo_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
        If Button = 2 Then      '如果是右键,清空剪贴板
            Clipboard.Clear
        End If
    End Sub
    • 限制文本框的内容不为空
    '限制文本框输入内容不为空
    If Not Testtxt(txtClassno.Text) Then
         MsgBox "请输入班号!", vbOKOnly + vbExclamation, "警告"
         txtClassno.SetFocus
         Exit Sub
    End If
    
    •  判断文本框是否输入数字
    '判断输入文本框是否输入数字
    If Not IsNumeric(Trim(txtSID.Text)) Then
        MsgBox "请输入数字!", vbOKOnly + vbExclamation, "警告"
        Exit Sub
        txtSID.SetFocus
    End If
    
    •  限制成绩的取值范围是0-120
    '限制成绩的取值范围是0-120
    Private Sub txtResult_Change()
    On Error Resume Next
    If Val(Trim(txtResult.Text)) > 120 Or (Trim(txtResult.Text)) < 0 Then
        MsgBox "输入数字超出范围,请重新输入"
        txtResult.Text = ""
        txtResult.SetFocus
    End If
    End Sub
    
    •  限制用户名只能输入数字和字母
    '限制用户名只能输入数字和字母
    Private Sub txtUsername_KeyPress(KeyAscii As Integer)
        Select Case KeyAscii
            Case 48 To 57  '只能输入数字
            Case 65 To 90  '只能输入大小写字母
            Case 97 To 122
            Case 8 ' 只能输入退格
            Case Else
            KeyAscii = 0  '不能输入空格
            End Select
    End Sub
    
    • 只能输入汉字和数字
    If ((KeyAscii <= 57 And KeyAscii >= 48) Or (KeyAscii <= -3652 And KeyAscii >= -20319) Or KeyAscii = 8) = False Then KeyAscii = 0
    
    
    •  只能输入数字和英文字母
    Private Sub Text1_KeyPress(KeyAscii As Integer)
        If ((KeyAscii >= 48 And KeyAscii <= 57) Or (KeyAscii >= 65 And KeyAscii <= 90) Or (KeyAscii >= 97 And KeyAscii <= 122)) = False Then KeyAscii = 0
    End Sub
    
    • 只能输入汉字和英文字母
    Private Sub txtName_Change()
        txtName.MaxLength = 10  '限制长度为10
    End Sub
    Private Sub txtName_KeyPress(KeyAscii As Integer)
         If ((KeyAscii <= -3652 And KeyAscii >= -20319) Or (KeyAscii >= 65 And KeyAscii <= 90) Or (KeyAscii >= 97 And KeyAscii <= 122) Or KeyAscii = 32 Or KeyAscii = 8) = False Then
            KeyAscii = 0
        End If
    End Sub
    
    • 限制特殊符号,只能输入汉字和字母
    Private Sub txtCoursename_KeyPress(KeyAscii As Integer)
        If KeyAscii < 0 Or KeyAscii = 8 Or KeyAscii = 13 Then
            ElseIf Not Chr(KeyAscii) Like "[a-zA-Z]" Then
            KeyAscii = 0
        End If
    End Sub
    
    • 限制出生日期早于入学日期 
    Dim borndate As Date  
    Dim getdate As Date'定义变量  
    borndate =Trim(txtBorndate.Text)  
    getdate =Trim(txtRudate.Text)  
    If getdate<=borndate then'进行比较  
        MsgBox"入学时间不能早于出生时间,请重新输入",vbOKOnly + vbInformation,"警告"  
        txtRudate.SetFocus  
        Exit Sub  
    End If  
    
    • 限制文本框的输入长度
    txtClassno.MaxLength = 10
    
    • 限制文本框输入内容的取值范围
    If Val(txtClassno.Text) > 2147483647 Or Val(txtClassno.Text) < 1Then
        MsgBox "输入数值在1到2147483647范围内"
        txtClassno.SetFocus
        Exit Sub
    End If
    
    • 限制家庭住址不能输入特殊字符。
    Private Sub txtAddress_KeyPress(KeyAscii As Integer)
        Dim cTemp As String
        cTemp = "`~!@#$%^&*()-=_+[]{};:'\|<>/?.‘“”’、,。——+()《》?,~·……¥!:;【】" & """ '禁止输入特殊的字符"
        If InStr(1, cTemp, Chr(KeyAscii)) <> 0 Then
            KeyAscii = 0
        End If 
    End Sub
    

     

    • 限制text框不可以输入

     locked属性锁定 。 

    • 显示combobox控件不可以输入

    style属性值为2进行锁定。  

     

    【后记】

    暂时先总结这些吧,欢迎斧正~

    展开全文
  • VB中实现只能输入有效实数的文本框

    千次阅读 2010-07-10 20:51:00
    有一个名为TxtNum的TextBox文本框,要求只能输入有效实数,代码如下: Private Sub TxtNum_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles ...
  • VB.net使文本框只能输入数字

    千次阅读 2007-12-14 15:28:00
    导读: VB.net使文本框只能输入数字 编制计算类程序时文本框一般都用于输入数字数据,此时可以通过以下步骤来确保用户输入数据的正确性: 首先添加好文本框控件TextBox后把属性IMEMode的值改成Disable,这样在该...
  • 关于VB.net 的正则表达式(实例)

    千次阅读 2017-03-29 21:19:26
    今天研究了一下关于VB.net 的正则表达式 下面代码的功能就是使得TextBox输入框只能输入“数字和26个英文字母”(代码必须放在TextBox的KeyPress的事件里面) -----------------------------coding--------...
  • VB.NET控制文本框的输入

    千次阅读 2005-02-01 22:30:00
    VB.NET控制文本框的输入 在VB.NET,通过简单的代码就可以实现对文本框的输入控制.如下图:screen.width-333)this.width=screen.width-333" border=0>要想实现对三个文本框的输入按图要求,只需对各个文本框添加...
  • 添加个输入框text1,然后复制下面代码即可。 Private Sub Text1_Change() ...Private Sub Text1_KeyPress(KeyAscii As Integer) If Not ((KeyAscii > 48 And KeyAscii < 57) Or KeyAscii = 8 ...
  • 首先添加好文本框控件TextBox后把属性IMEMode的值改成Disable,这样在该文本框就不能使用中文输入法了。然后对文本框的KeyPress事件添加以下代码 Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVa.....
  • vb.net实现窗体上回车键代替TAB键,用如下方法: 首先设置窗体的 KeyPreview 属性为true 然后加入以下代码: Private Sub FrmLogin_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms....
  • Vb.net代码 Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Text
  • VB.NET在文本框里输入字段看是否是数字,不用函数来判断 mohongmao»[VB.NET]Text控制只可以填写数字 Private Sub TxtPrice_KeyPress(省略) Handles TxtPrice.KeyPress 处理TEXT只可以输入数字和.键 Dim c As ...
  • Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress If Asc(e.KeyChar) = Keys.Enter Then e.Handled = True 这样就能屏蔽...
  • 在TextBox的KeyPress事件,当我们按下回车键的时候,会发出讨厌的"滴"声....<!--google_ad_client = "pub-1508116105633727";google_ad_width = 234;google_ad_height = 60;google_ad_format = "234x60_as";google_...
  • VB键盘事件详解

    2021-01-29 19:44:23
    “ 本节课程一起学习VB中的键盘事件。” 键盘事件的作用: 获得键盘输入信息,只有获得焦点的对象才能接受键盘事件。 键盘事件有三种: KeyPress、KeyDown、KeyUp KeyPress: 按了键盘的某键时触发,返回键盘的Ascii...
  • VB编程的键盘控制

    2016-09-01 15:20:00
    VB中,很多控件都提供了键盘输入功能(如文本框、组合框等),但它们对键盘的处理较简单,遇到复杂一点的要求即无能为力。 因而VB提供了KeyPress、KeyUp、KeyDown三种键盘事件,当用户按键时,会触发这三种事件,...
  • Private Sub Text1_KeyPress(KeyAscii As Integer) Dim booksn As String Dim bookwz As String If KeyAscii = 13 Then booksn = Trim(Text1.Text) strsql = "select * from bookpz where chuchangtiaoma=" & book
  • VB中的键盘与鼠标事件KeyPress事件KeyPress事件简介在窗体上画一个控件(指可以发生KeyPress事件的控件),并双击该控件,进入程序代码窗口后,从"过程"框中选取KeyPress,即可定义KeyPress事件过程。一般格式为:...

空空如也

空空如也

1 2 3 4 5
收藏数 82
精华内容 32
关键字:

vb中keypress