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

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

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

代码说明:

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

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

发表评论

0 个回复

  • VB 以TextStream流的方式打开文本文件
    VB 以流的方式打开文本文件,创建FileSystemObject MyFSO对象,创建TextStream对象,然后使用对象GetFile文件,最后使用对象OpenAsTextStream读取流文件,具体用法,可参见以下代码:   Private Sub Form_Load()    Dim MyFSO As New FileSystemObject    Dim MyFile As File    Dim MyTS As TextStream    Set MyFile = MyFSO.GetFile(App.Path & "MyFile.txt")    Set MyTS = MyFile.OpenAsTextStream(ForReading)    Text1.Text = MyTS.ReadAll    MyTS.Close   End Sub   完整的可编译实例,请下载源码包。
    2022-06-14 22:18:23下载
    积分:1
  • VB.NET邮件发送实例 可发附件
    VB.NET编写支持发送附件的邮件发送实例,本实例源码中包含用于将电子邮件发送到简单邮件传输协议(SMTP)服务器进行传送的类,这里使用了SmtpClient 类发送电子邮件,可设置允许添加的附件类型,支持文本文件(*.txt)|*.txt|Word文档(*.doc)|*.doc|图像文件*.BMP;*.JPG;*.GIF等格式,为了避免程序出错,在本程序刚启动时,帐号、密码框暂时不可用。
    2022-08-15 21:36:57下载
    积分:1
  • VB.NET 小型家庭理财系统
    VB.NET 小型家庭理财记帐系统源代码,功能模块:文件、导入导出、操作、查询、删除、修改、关于软件、经手人、项目、收支类型等的管理。本程序感觉重点在数据库部分的设计 ,里面对帐务明细的查询功能,对于熟悉VB.NET与数据库的各种操作十分有帮助。本财务管理系统的数据库为SQLSERVER,为了确保本程序正常运行,请在运行前附加Database数据库到你的SQLSERVER中,并连接好数据库字符串,需要修改Module1.vb文件。
    2022-04-10 12:53:23下载
    积分:1
  • vb.net 读取INI文件示例
    vb.net vs2008读取INI文件示例,ini文件名为 Send.ini,代码中包括了一个读ini API函数。   Ini文件说明:   [节名] []中的节名对应此API的第一参数   Name=内容 Name对应此API的第二参数   API的第三参数是没有取到匹配内容时返回的字符串;   API的第四参数是要返回的字符串;   API的第五参数是字符串缓冲的长度,一般255;   API的第六参数是INI文件的路径。
    2022-02-20 08:44:55下载
    积分:1
  • 简单的VB6 播放视频文件程序
    简单的VB6 播放视频文件程序,也算是一个简单的视频文件播放器吧,核心基于Windows中的msdxm.ocx控件,可控制播放文件开始暂停、快进快退等简单操作,在测试时如果程序不能运行,将本目录中的msdxm.ocx文件拷贝到C:WINDOWSsystem32目录下,然后,在"开始"/"运行"中键入regsvr32 C:WINDOWSsystem32msdxm.ocx, 回车再运行程序即可.
    2022-09-24 03:35:03下载
    积分:1
  • VB删除指定路径下的文件夹【目录】
    VB6.0 删除指定路径下的文件夹【目录】 ,删除时请输入要删除文件夹的所在路径和名称,单击按钮即可。支持遍历目录删除文件,我觉得这是一个挺好的使用FSO操作的VB范例,对于VB新手学习相关的文件操作有很好的帮助。
    2022-03-19 05:31:28下载
    积分:1
  • vb串口调试助手,可用于自己做调试测试工具
    1.用易懂的VB语言编程   2.可设置串口号波特率   3.支持十六进或字符形式发送或接收,可定时发送。3,可自己换程序的图片
    2022-07-13 02:02:52下载
    积分:1
  • vb利用数据窗口辅助录入数据
    vb利用数据窗口辅助录入数据,也就是本程序窗口中,生成了一些数据辅助窗口,可对用户的录入工作提供一些帮助,其实就是一些供用户选择的组件之类的,用户了用户,又提升了数据录入的准确性,在VB6.0中,本源码可顺利编译成功,运行后如示例图所示。
    2023-07-26 19:20:03下载
    积分:1
  • vb.net 故意引发错误演示全局异常捕获处理
    本程序主要是演示vb.net全局错误异常消息的捕获处理,程序运行后故意引发错误,并弹出消息处理框,类似于在VB.NET调试器中显示的错误消息,指出错误原因、错误位置和具体代码,方便程序员对错误及时纠正处理,程序运行效果如图所示。
    2022-09-01 05:15:03下载
    积分:1
  • VB利用地址偏移访问内存
    VB利用地址偏移访问内存,整个处理过程 封装在事件函数中,用户单击后,执行以下代码:   Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)   Private Sub Form_Load()    Dim i As Long    Dim j As Long    i = 1234    j = 4321    Debug.Print VarPtr(i)    Debug.Print VarPtr(j)    CopyMemory ByVal VarPtr(i), ByVal VarPtr(i) - 4, 4    Text1.Text = i   End Sub
    2022-08-20 12:19:05下载
    积分:1
  • 696518资源总数
  • 105570会员总数
  • 13今日下载