VB 生成中文验证码的控件附实例调用源码

VB 网络连通检测，单击命令按钮可进行网络连通检测，判断是本机否连接到Internet。操作很简单，将连通测试检测结果输出到屏幕上。

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文件同级。

VB模拟输入的成绩判断奖学金等级，测试前请输入学生的三门功课的成绩，输入成绩后，程序会根据预设的判定一、二、三等奖学金的条件，来判断该同学成绩应该属于几等奖学金。 　　这类程序其实容易实现，中间的一些小技巧我觉得不错，比如当用户输入一科成绩后，光标自动定位到下一个文本框，如果需要用户输入内容比较多的时候，这个功能可大大提升用户体验。 　　更多源码细节请下载查看。

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

VB 6.0将时、分、秒转换为时间，就是把输入文本框中的内容，重新组合，并添加连接符，形成人们视觉习惯上的时间格式。 　　其实实现这个功能，不两行代码就可实现了： 　　Private Sub Command2_Click() 　　 t = TimeSerial(Text1, Text2, Text3) 　　 Label4.Caption = "时间为：" & t 　　End Sub

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

vb 判断经历多少个工作日，在两个日期选择器中选择日期值，然后判断选定的两个日期之间相差了多少天，判断两个定点之间的天数，比较基础，但也很有必要学习，时间和日期计算在很多软件中都要用到，这个例子相对简单些。大致代码： 　　If IsDate(Text1) = True And IsDate(Text2) = True Then 　　 Dim i As Integer 　　 i = gongzuori(CDate(Text1), CDate(Text2)) 　　 Label3.Caption = "经历" & i & "个工作日" 　　Else 　　 MsgBox "请输入日期型" 　　End If

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

一个实现图像的旋转效果实例，由VB6.0编写，前几年的源码，本程序实现图片的逆时针旋转90度，单击窗口中的按钮即可实现旋转功能，这部分代码，可参考如下代码： 　　逆时针旋转90度 　　Private Sub Command2_Click() 　　 For j = 0 To h Step 1 　　 For i = 0 To w Step 1 　　 BitBlt Picture2.hDC, i, j, 1, 1, Me.Picture1.hDC, j, i, srCopy 　　 Next i 　　 Next j 　　End Sub