vb.net 串口通讯测试项目源码

VB 类似超级兔子的程序界面，这只是一个应用程序的界面效果，不包括界面菜单中的功能，因此对界面UI的美化可以参考。这个界面是使用BMP贴图的方式实现，整个窗口就是一张图片，但是经过了处理，添加了菜单，其实挺简单的，当时用在一个手机维修管理系统中了，现在发上来，不知道对大家是否有用？

vb.net 键盘鼠标全局线程钩子实例源码，源码中包括了HOOk的源码和Test项目源码，HookCode目录中是HOOk的源代码，TestForm为测试源码。测试时请把hookcode目录中生成的TheHook.dll文件拷贝至TestForm目录的bin目录下，与exe同级，运行效果如下图所示。

VB 6.0 打印与打印预览功能源码，这个打印预览可以调节预览的放大倍率，在不同的放大状态下预览打印内容，支持打印文字内容和图片的内容，自动调用Windows默认的打印机进行打印，如测试截图所示的效果。

VB6.0 获取汉字拼音简码，获取汉字拼音首字母，这个比较实用了，现在很多地方都会取首字母作为编号、帐号之类的，代码比较多，这里就不帖核心代码了，大家自行下载本源码吧，运行的效果如截图所示。

FSO对象模型提供了三种创建和打开文件的方法：其实本示例是创建了FileSystemObject对象，然后用FSO对象的FileExists、CreateTextFile、OpenTextFile方法，对文件进行操作，演示了三种FSO对象的操作方法，对学习初级的FSO文件操作有相当好的帮助作用。

VB6.0多选文件源代码实例，在打开文件的对话框中，用户一次可选择多个文件，并不像平时那种一次只能打开一个文件。当然，这种打开文件需要程序的支持，而不仅仅是限制于打开多个文件而程序端不支持的现象。

vb禁用窗体最大化、最小化和关闭快捷菜单，禁用最大化、最小化不可用，重点实现了禁止关闭窗口的功能，禁止后窗口上的关闭按钮变成灰色不可点击了，在实现方面，核心代码如下： 　　Private Sub Form_Load() 　　 RemoveMenu GetSystemMenu(Me.hWnd, 0), SC_COLSE, MF_REMOVE//禁止关闭 　　 RemoveMenu GetSystemMenu(Me.hWnd, 0), SC_MAXIMIZE, MF_REMOVE//禁止最大化 　　 RemoveMenu GetSystemMenu(Me.hWnd, 0), SC_MINIMIZE, MF_REMOVE//禁止最小化 　　End Sub

VB.NET 软件在线自动升级功能演示，含源代码，程序自动更新版本源码中核心文件为UpdatingForm.vb，此文件包括了程序自动升级的主要功能，比如更新显示信息、删除不需要的文件、查找客户端需要更新的文件和需要删除的文件、查找服务器端新增需要下载的文件、版本控制文件为必须下载文件、设置当前下载的文件序数、强制结束进程等。 　　本程序需要一个存放软件最新版本的服务器或者是网址，程序运行后最先检测该网址下的软件是否是最新，若该网址不存在或出错，程序将不再继续，直接退出，如图所示。

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

VB6 屏幕滚动字幕，这个文字滚动区域被控制在屏幕的右下角，由右向左开始滚动，中间的高度可以调节，通过调节Me.Top = Screen.Height - Me.Height - 800参数，来改变文字滚动区域距离屏幕顶部的距离，文字滚动的实现是基于计时器和循环来实现，下面的代码可为你提供本效果的实现思路： 　　Label1.Caption = "这里定义需要滚动的文字内容： 用VB制作的文字滚动效果！" 　　Me.Left = Screen.Width 　　Me.Top = Screen.Height - Me.Height - 800 　　BeginPath Me.hWnd 　　SetBkMode Me.hWnd, TRANSPARENT 　　EndPath Me.hWnd 　　rgn = PathToRegion(Me.hWnd) 　　SetWindowRgn Me.hWnd, rgn, True 　　Timer1.Interval = 200 　　Timer1.Enabled = True 　　End Sub 　　Private Sub Timer1_Timer() 　　 Me.Left = Me.Left - 100 　　 If Me.Left < Label1.Width * (-1) Then 　　 Timer1.Enabled = False 　　 Me.Left = Screen.Width 　　 Timer1.Enabled = True 　　 End If 　　End Sub