登录
首页 » VB源码 » VB输入限制:只允许输入汉字

VB输入限制:只允许输入汉字

于 2023-02-18 发布 文件大小:2.09 kB
0 87
下载积分: 2 下载次数: 1

代码说明:

VB输入限制功能一例:只允许输入汉字,本实例只允许用户输入汉字,如果输入其它类型的字符,程序将不允许输入,且会提醒用户。原理是获取键盘上的ASCII值,并判断是否在中文汉字的范围,若不在,就禁止输入。实现本功能的关键代码,分享给大家:   If KeyAscii > 0 And KeyAscii 13 And KeyAscii 8 Then    KeyAscii = 0    MsgBox "只允许输入汉字!", 48, "提示"   End If   因为是对键盘的控制实现对输入的限制,因此若鼠标复制了一段包含其它字符的文字,则程序无能为力,因为鼠标不在监控范围。

下载说明:请别用迅雷下载,失败请重下,重下不扣分!

发表评论

0 个回复

  • VB.net 生成条形code128条
    VB.net绘制生成code128条形码的例子,另外还有EAN128、包括了Code128 A/B/C类型的条形码,程序非常好用,在文本框输入规定要求的数据,即时输入,即时生成。程序中为生成条形码,创建了一些函数,比如显示可见条码文字 如果小于40 不显示文字、获取条形码宽和放大系数、获得条码图形、根据编号获得条纹、获取目标对应的数据、偶数检测判断、获取128图形等,在VB.NET生成条形码的朋友,本范例源码是个很好的参考。
    2022-02-14 15:50:30下载
    积分:1
  • vb RTrim()去除字符串行尾空格
    vb 演示如何去除字符串结尾空格,把输入框中的含有空格的字符串,全部过滤掉空格,这个源码似乎有上结简单了,使用RTrim(),一行代码即可搞定:   Private Sub Command1_Click()    Text2.Text = RTrim(Text1)   End Sub   主要是使用了RTrim()函数,这个函数不只是过滤行尾空格,也会将字符串中间空格过滤掉。
    2022-10-07 20:30:03下载
    积分:1
  • VB 值参与变参举例
    VB 值参与变参如何用的小例子源码,这个其实平时有时候也用到了,只是不知道这是值参或是变参,通过这个小实例,你或许对这两者的用法会更熟悉些,以下代码仅供参考:   Private Sub Command2_Click()   Dim a As Integer, b As Integer    a = 10: b = 20    Picture2.Print "交换前:a="; a; " b= "; b    Swap2 a, b    Picture2.Print "交换后:a="; a; " b= "; b   End Sub
    2022-07-25 08:20:44下载
    积分:1
  • VB Val与汉字的相互转化
    VB 数字与字符串的相互转换(汉字区位码与汉字的相互转化)的例子,主要是使用Val函数来实现转换功能,Val的用法很简单,如Text4.Text = Val(Text3),将此行代码添加到自定义的按钮事件中即可,当用户单击按钮后,可触发此代码执行区位码转换。实现的功能为:   把数字转换成字符串,把字符串转换成数字。
    2022-02-10 12:28:52下载
    积分:1
  • visual studio VB 学生信息管理系统
    用visual studio VB语言编写的学生信息管理系统 WINFORM 数据库采用的是ORACLE 
    2022-02-24 12:49:02下载
    积分:1
  • Vb.NET 贪吃蛇游戏
    游戏说明:   1、控制键    “回车键”-----新游戏或终止游戏    “5”(数字键区的)----暂停或恢复    方向控制键(数字键区的)    “8、2、4、6”----对应控制“上、下、左、右”移动    “1”-----“左下”移动    “3”-----“右下”移动    “7”-----“左上”移动    “9”-----“右下”移动   2、地图    蓝色方块----食物(吃到食物后,蛇身长度增加一节)    红色方块----炸弹(吃到炸弹,所得分数会减去当前级别数的2倍)    地图上一次出现2个食物和1个炸弹,被蛇吃掉后会随机位置补充    灰色方块----蛇头    绿色方块----蛇身    暗海洋绿方块----奖品    当玩家吃到的食物或者炸弹达到5个时就会随机出现一次奖品,奖品    上的数字表示吃到奖品后会增加的分数。每个奖品的初始分数是20--50    之间的随机数,当奖品出现后就会开始不断的减少,所以玩家要尽快吃    到才能增加到更多的分数。   3、计分方法    每吃到一个食物,增加的分数等于当前级别的数值;    每吃到一个炸弹,扣掉的分数等于当前级别数值的2倍;    玩家的起始分数等于当前的级别数值的2倍加1    例如 等级为3,则玩家起始分数是7分;每吃到一个食物加3分;    每吃到一个炸弹减6分   4、游戏结束    当总分
    2022-03-02 23:06:57下载
    积分:1
  • 文件夹复制VB6.0实例
    文件夹复制VB6.0实例源码,这里用了一个用户自定义函数,此函数可以出现一个对话框,并返回所选择的路径,若没有选择返回("")。模拟了Windows系统的文件夹模拟功能,看上去比较低级,只是通过这个功能,熟悉一些VB与文件操作的函数用法。
    2022-03-05 20:29:32下载
    积分:1
  • VB 网络连通检测
    VB 网络连通检测,单击命令按钮可进行网络连通检测,判断是本机否连接到Internet。操作很简单,将连通测试检测结果输出到屏幕上。
    2023-08-30 14:45:02下载
    积分:1
  • VB.NET 超市管理系统
    VB.NET 超市管理系统,数据库基于SQLSERVER,使Label透明显示,进货管理、售货管理、价格管理、进货查询、售货查询、增加用户管理等。这个示范代码主要是演示VB与SQLSERVER数据库之间的各种操作,大部分是一些数据的基础应用。测试前请先附加好数据库,否则会弹出出错提示。
    2022-01-26 05:34:54下载
    积分:1
  • VB 6.0 过程引用传递参数
    VB 6.0 过程引用传递参数,显示传递前和传递后的参数值:   Private Sub mysub(ByRef i As Integer)    i = 100   End Sub   Private Sub Form_Resize()    Dim num As Integer    num = 1    Print "传递前:" & num    Call mysub(num)    Print "传递后:" & num   End Sub
    2022-02-12 05:00:23下载
    积分:1
  • 696518资源总数
  • 105908会员总数
  • 30今日下载