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

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

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

代码说明:

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

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

发表评论

0 个回复

  • VB 控件随窗体自动调整大小
    VB 控件随窗体自动调整大小,像窗口中的ListBox、Image、FileListBox、VB.Frame控件等,都可以随窗口的大小变化而变化,当用户拖动改变窗口大小时,这些控件的大小也会随之改变,这个功能的实现得益于自定义函数Form_Resize(),用此来控制各个控件的变化,来看代码:   Dim x, y As Long   x = Form1.Width - 200 - Frame1.Width - Image1.Width   y = (Frame1.Height - Drive1.Height - Drive1.Top - 200)   Frame1.Width = Frame1.Width + x / 2   Image1.Left = Frame1.Left + Frame1.Width + 100   Image1.Width = Image1.Width + x / 2   Image1.Height = Me.Height - 600   Frame1.Height = Image1.Height   Dir1.Width = Frame1.Width - 280   File1.Width = Dir1.Width   Drive1.Width = Dir1.Width   Dir1.Height = y / 3   File1.Top = Dir1.Top + Dir1.Height + 100   File1.Height = 2 / 3 * y   此段代码被封装在按钮事件中,请参见源代码文件。
    2023-02-03 17:15:04下载
    积分:1
  • VisualBasic 6.0 获取网页超链接
    VisualBasic 6.0 获取网页超链接,VB根据网址打开指定页面,预览网页并获取该页面中所有的超链接,最后会统计出该网页内有多少个链接。   同时本源码还可区分网页中的文本和图片,将剔除图片,在文本中查找超链接个数,主要是针对href进行精准匹配统计出出现的次数,运行效果如下图所示。   具体源代码请下载本源码查看。
    2022-10-27 08:40:03下载
    积分:1
  • VB NET写的DVD播放器
    播放器窗口界面中的操作菜单,实现了弹出菜单的功能,把控制菜下的各菜单项添加到弹出式菜单ContextMenuStrip1中。   播放器功能支持DVD格式的视频播放,包括了暂停、播放、停止、弹出等功能。   本播放器程序依赖于AxInterop.MSWEBDVDLib.dll、Interop.MSWEBDVDLib.dll。
    2023-05-18 15:05:03下载
    积分:1
  • 简单的VB6 播放视频文件程序
    简单的VB6 播放视频文件程序,也算是一个简单的视频文件播放器吧,核心基于Windows中的msdxm.ocx控件,可控制播放文件开始暂停、快进快退等简单操作,在测试时如果程序不能运行,将本目录中的msdxm.ocx文件拷贝到C:WINDOWSsystem32目录下,然后,在"开始"/"运行"中键入regsvr32 C:WINDOWSsystem32msdxm.ocx, 回车再运行程序即可.
    2022-09-24 03:35:03下载
    积分:1
  • VB制作的软件助手动画 使用Microsoft Agent控件完成
    VB使用Microsoft Agent控件制作的软件助手动画,软件助手这个相信大家都熟悉吧,最早的Office里面,就有一个大眼睛小助手,不过感觉这个小助手似乎并没有赢得大家的喜爱。本程序就是调用Windows中固有的Agent控件够实现一个简单的小助手,为制作同类程序的VB开发者提供参考。   注:我测试失败了,我的系统是Widows7,当时这个程序是面向Windows XP的。
    2023-01-24 11:35:03下载
    积分:1
  • VB 使用DataGrid显示书名数据表
    VB 使用DataGrid显示书名数据表,这个例子相当简单,主要是学习在VB编程中如何使用DataGrid数据网格控件,将数据库内容读取出来,然后绑定到DataGrid表格中显示:   Adodc1.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=book"   Adodc1.RecordSource = "select * from 书名"   Set DataGrid1.DataSource = Adodc1   DataGrid1.Columns(3).NumberFormat = "$0.00"   DataGrid1.Columns(4).NumberFormat = "$0.00"   End Sub
    2023-04-26 14:25:03下载
    积分:1
  • VB6.0仿迅雷悬浮窗口(图标)的实现
    VB6.0仿迅雷悬浮窗口(图标)的实现源码,迅雷的悬浮窗相信大家很熟悉了,其实就是显示一个图标,悬浮在屏幕上,通过这个悬浮图标可单击右键调出菜单,双击图标则会显示主窗口,本源码模拟了悬浮窗口的实现,另外是模拟了悬浮窗口双击显示主窗口的功能。代码中注释不多,不过没有使用过多复杂的代码,对VB新手友好。
    2022-03-24 09:58:35下载
    积分:1
  • 网络五子棋游戏之客户大厅和服务器
    网络五子棋游戏源码之客户大厅和服务器 VB编的
    2023-07-18 23:30:04下载
    积分:1
  • VB将 数组元素作为实参
    VB将 数组元素作为实参,本例可以求出三个一元二次方程的根。请先单击命令按钮,先输入各个方程的系数,
    2023-06-29 13:10:04下载
    积分:1
  • 树状导航菜单 +窗体分隔+框架窗口VB范例
    本实例是一个比较综合、完整的窗口制作实例,演示了树状导航菜单的制作方法,还有窗口中各种菜单的实现步骤,同时还演示了如何对窗口进行分隔显示,实现了一个带树形菜单的框架式程序主窗口界面,可广泛应用于VB的各种信息管理系统的开发中。VB源代码范例,在VB6.0环境下完美编译运行。
    2022-09-10 22:15:03下载
    积分:1
  • 696518资源总数
  • 104353会员总数
  • 66今日下载