vb.net 捕获键盘按键和鼠标XY坐标位置

VB6为菜单制作添加分割线，在菜单项与菜单项之间显示一个分隔线，这个在Windows经典风格的窗口中，十分常见，像一个水平线那样，把菜单分成多个部分，这个水平线带有阴影效果，视觉效果更立体。 　　本窗口中的菜单，是一个企业综合管理系统的主界面面板，那些菜单都是测试用的，你可以看一下菜单中的分隔线是如何嵌入到菜单中的。

Http proxy，由VB6.0编写的代理服务器的源码，要测试代理示例，请单击“LISTEN”按钮并使用浏览器访问代理。 代理端口是3280.您当前的IP是192.168.1.2，此例程等待浏览器发送HTTP请求标头。 收集所有必要信息后，它连接到真实服务器并传递标头数据。 　　打开程序后，可单击监听按钮，实现代码服务的监听功能，也可适时停止这个功能。 　　本源码来自于国外。

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

vb 将数字格式化为金额，这个更像是一个自动计算程序，根据用户输入的单位、数量、价格等参数，自动计算出金额，这才是程序要表达的功能，相差代码： 　　Private Sub Text1_LostFocus(Index As Integer) 　　 Text1(Index).BackColor = &H80000005 　　 If Index = 3 Then Text1(3) = Format(Text1(3), "0.00") 　　End Sub

vb 拖动滑块设置窗体透明度，在如图所示的窗体中，有一个滑块可左右滑动，用户可改变滑块的值，来改变窗体的透明度，如图所示是在30%位置的透明度效果，滑块往右，则透明度减小，也就是窗体越清淅，往左则窗口越来越透明。源码运行于VB6.0，欢迎VB爱好者下载研究源码。

VB.NET自制图片查看器，一个看图工具软件，功能方面主要有图片原图显示、自动缩放图片、图片居中、自动缩放图片框、背景色设置、文件名及其路径、视图ToolStripMenuItem等。你可以通过这个小程序了解一些VB.NET与图片之间的操作技巧，另外还可以学习到窗口对话框的一些基本操作、PictureBox控件用法、目录和文件列表框的使用、处理鼠标事件、偏移量计算图片位置，重画图片、绘图画面，颜色填充、窗体界面元素控制等的控制方法。。

VB net 模拟考试系统,本考试时间为30分钟，系统会进行倒计时。你必须正确输入你所在班级、姓名和学号，交卷后不能再考，即时间未到不要急于点""交卷""！点击""确定""进入考试系统。本考试系统的窗口只允许打开一个，程序会判断窗体是否已经打开，如果已经打开，则不需要重复打开，只是显示。 　　程序正常运行需要SQL数据库，请在测试前附加并连接好。

播放器窗口界面中的操作菜单，实现了弹出菜单的功能，把控制菜下的各菜单项添加到弹出式菜单ContextMenuStrip1中。 　　播放器功能支持DVD格式的视频播放，包括了暂停、播放、停止、弹出等功能。 　　本播放器程序依赖于AxInterop.MSWEBDVDLib.dll、Interop.MSWEBDVDLib.dll。

VB 写的拼图 用数字代表图片，将数字的顺序排列好，就完成了拼图，比起图片版的拼图，要简单多了。 　　玩法：将数字1挪动到最开始的位置，如何移动？要把占位的数字一个一个挪开，依次为1、2、3等数字让位，把整体排序好，就拼好了。

VB编写的倒计时程序，测试时，请输入目标日期与时间，格式如演示截图中所示，然后按下“倒计时”按钮，即可开始倒计时了，会显示出具体剩余的天数和时、分、秒。程序主要基于CDate函数和DateDiff函数来实现，主要代码如下： 　　Private Sub Timer1_Timer() 　　 On Error GoTo H 　　 Timer1.Interval = 1000 　　 Dim i As Date 　　 i = CDate(Text1) 　　 Label1.Caption = "距离" & Text1 & "还剩" & DateDiff("d", Now, i) & "天" & CLng(DateDiff("h", Now, i)) Mod 24 & "小时" & CLng(DateDiff("n", Now, i)) Mod 60 & "分" & CLng(DateDiff("s", Now, i)) Mod 60 & " 秒" 　　 Exit Sub 　　H: 　　 MsgBox "请输入正确的时间" 　　 Timer1.Enabled = False 　　End Sub