VB 通过菜单控制操作权限并保存至数据库

本实例是一个比较综合、完整的窗口制作实例，演示了树状导航菜单的制作方法，还有窗口中各种菜单的实现步骤，同时还演示了如何对窗口进行分隔显示，实现了一个带树形菜单的框架式程序主窗口界面，可广泛应用于VB的各种信息管理系统的开发中。VB源代码范例，在VB6.0环境下完美编译运行。

VB.NET 获取全局coordinate鼠标坐标，显示窗体内的XY坐标，窗体外凡是显示屏幕的任意位置都可以显示出坐标，获取全局鼠标坐标，测试截图是获取本窗口外的鼠标坐标，请参见截图效果。随着鼠标移动会显示出各个鼠标坐标点的XY坐标信息。单击窗口的“开始”按钮后，将执行以下代码获取全局坐标： 　　GetCursorPos(p) 　　tooltip1.SetToolTip(Me, "当前鼠标位置 X=:" & p.x & "Y=:" & p.y) 　　tooltip1.Active = True

VB6.0编写的一个轻型仿写字板的多功能文档编辑器源码，具备新建、打开、保存、打英剪切、复制、粘贴、粗体、斜体、下划线、左对齐、置中、右对齐等功能，界面还是挺友好的，文件格式支持DOC格式 (*.doc)|*.doc|RTF格式 (*.rtf)|*.rtf|文本文件 (*.txt)。 　　注：如果这个工程没有帮助文件，显示消息给用户，可以在“工程属性”对话框中为应用程序设置帮助文件。完整源码请下载查看。

游戏说明： 　　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、游戏结束 　　 当总分

VB 6.0 利用文本框组输入数据，你会发现这量个矩阵类型的输入框，输入完一组数据后，会提示输入第二组，当所有都输入完成后，以3行4列的矩阵方式输出数组元素，输入的过程中支持光标的自动定位功能，你可以了解一些提高输入效率的基本操作，有利于提高软件的使用体验。

这是一个用VB.NET开发的应用程序管理工具-类似360桌布助手的某此功能，通过导入保存有常用程序列表的XML文件，来通过程序来管理各应用程序的快捷方式，用户可以把常用的程序收集起来，在这里可以直接双击列表中程序名称或点击【启动程序】来启动每个程序。不用到处找你所安装的程序或软件。方便，快捷，常用程序列表:(用户可以拖放任何文件到下面列表中)。 　　程序列表的操作有导入和导出。

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

一个演示VB高速搜索文件程序，基于API来实现，用于快速查找文件，类似的例子在前几年的书籍实例中，有很多，这一个也是从VB的书中整理出来的，代码中有丰富的注释，主要是分享给VB新手参考学习的。

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.net与OMRON CP系列PLC通讯，截图是辅助程序：FCS校验计算器的运行效果，与PLC通讯的实例在PLC-PC文件夹下，源码在VB.NET环境编译。 　　LBIndustrialCtrls.dll放在debug目录中，与exe文件同级。