VB 使用鼠标分割窗体的Split实例源码

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

VB6.0使用InPutBox显示密码输入框，InPutBox大部分情况下是用于输入数据，与用户交互，但这些数据并不是密码类型的，本实例是展示是使用InPutBox作为密码输入框，其实也是挺简单的： 　　Private Sub Command1_Click() 　　 On Error GoTo Err_Out 　　 Dim lTemp As Long 　　 Dim sTemp As String 　　 lTemp = SetTimer(Me.hwnd, NV_INPUTBOX, 1, AddressOf TimerProc) 　　 sTemp = InputBox("请输入密码", "密码输入框") 　　Err_Out: End Sub

VB6.0仿迅雷悬浮窗口（图标）的实现源码，迅雷的悬浮窗相信大家很熟悉了，其实就是显示一个图标，悬浮在屏幕上，通过这个悬浮图标可单击右键调出菜单，双击图标则会显示主窗口，本源码模拟了悬浮窗口的实现，另外是模拟了悬浮窗口双击显示主窗口的功能。代码中注释不多，不过没有使用过多复杂的代码，对VB新手友好。

VB 6.0 将数组中的数据利用图表分析,也就是用柱状图来显示数组中的数据,所有的操作都是从点击按钮开始的,如下代码: 　　Private Sub Form_Load() 　　Dim i 　　i = Array(1, 2, 3, 4, 5, 6, 7) 　　Dim j 　　For j = 0 To UBound(i) 　　 With MSChart1 　　 .RowCount = UBound(i) + 1 　　 .Row = j + 1 　　 .ColumnCount = 1 　　 .Data = i(j) 　　 .RowLabel = i(j) 　　 End With 　　Next j 　　End Sub

vb获得字符串中指定后几位字符，这里使用vb Right函数一行代码即可搞定，运行代码如示例图所示，在最左侧文字框中输入任意字符串，程序预设的是获取最右侧的2位字符，单击按钮后即可获取到最左侧字符串的最右边2位字符，并显示在Text文本框中，单击按钮后，其实是执行了以下代码： 　　Private Sub Command1_Click() 　　 Text2.Text = Right(Text1, 2) 　　End Sub

vb.net 串口通讯测试项目源码，本源码用于练习SerialPort控件、DataReceived事件、16进制操作，同时用于工程需要。作者：李潇海。 　　运行后先检测测试需用的COM端口是否打开，弹出提示。 　　测试时请确保发送周期为正整数！串口测试窗口中，可配置参数：端口、波特率、检验位、数据位、停止位等，支持以十六进制发送和接收数据，还可以毫秒定时发送数据。操作方式上，可设置自动清空测试数据，发送文件或发送数据等。右侧为串口测试时的结果显示区。

VB使用Microsoft Agent控件制作的软件助手动画，软件助手这个相信大家都熟悉吧，最早的Office里面，就有一个大眼睛小助手，不过感觉这个小助手似乎并没有赢得大家的喜爱。本程序就是调用Windows中固有的Agent控件够实现一个简单的小助手，为制作同类程序的VB开发者提供参考。 　　注：我测试失败了，我的系统是Widows7，当时这个程序是面向Windows XP的。

VB6.0检查你的电脑是否有拨号连接，获取本机的网络连接列表，重点是检测是否有拨号网络连接。

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

VB.NET 演示带Finally的Try Catch 异常处理用法演示，这个源码就是捕捉VB.NET运行错误的，结合了最常规的try catch组合，并且使用了Finally处理的情况，那么为什么要使用Finally呢？使用Finally的好处是，把资源释放或状态还原的代码放到finally块中，可以保证在try和catch语句执行完后，一定会执行finally语句块，而不用考虑各种复杂的跳转情况。