文件夹复制VB6.0实例

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

VB NET版 五子棋（人机对弈）,五子棋游戏源码，单击菜单中的开局即可开始游戏，人先走棋，电脑随后，每一步会有提示，游戏功能不算太复杂。源代码部分，主要实现了游戏数据初始化、获取鼠标单击位置值、绘制棋盘网格、定义图形类对象、重绘控件的控制等，可了解一下VB编写棋牌游戏的一些要领。

VB 柱状图生成的例子,看看,是不是很实用的图表效果,这种图表也叫做直方图表,这是纵向的,也有横向的柱状图.本柱状图的生成是使用了Vb内置的微软图表控件MSChart控件,因此可看作是此控件的应用范例.

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 6.0 动态改变图表的比例,改变图表的视图比例,默认是0.7,点击确认按钮后,图表会变大显示,减小数字,图表会紧接着变小.看了下代码,里面就是一行代码搞定: 　　MSChart1.RowLabel = "" 　　不过这个功能还是很实用的,当视图内容比较多的时候,图表显示的比较小,用这个功能可将图表放大显示. 　　MSChart主要用来生成一些简单的图表，包括饼图、曲线图、柱状图等，较复杂的图表就需要借助三方控件了。

VB6.0 实现表格样式的内容生成Excel表格式，将DataGrid的表格数据转换成Excel格式，生成Excel表文件，用Offie套件就可以打开，在转换前可设置文字格式、样式等参数，看上去是一个国外的程序，代码里的注释全是英文的，如果E文好的话，推荐参考。

VB6 给窗体添加滚动条，调整水平滚动条的一些属性。当窗体的大小发生变化时发生，垂直滚动条与窗体相对位置不变，滚动条的大小随着窗体大小的改变而改变，命令按钮作水平滚动条与垂直滚动条交接处的填充。 　　因代码注释较多，详细代码情况请您下载本源码包，自行解压查看。

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

VB 6 使用ODBC DSN连接SQL Server数据库，要想运行本实例，首先需要附加SQL数据库，然后配置ODBC，ODBC数据源名称是“RSDAGLXT”。将连接数据库的代码写在一个按钮事件中，当用户单击按钮后，开始使用DSN连接数据库。本示例主要是连接SQLSERVER,因此主代码文件代码比较少。连接后会从数据库中读取出数据，并绑定到MSHFlexGrid控件中显示，运行效果请见截图。主代码： 　　Dim cn As New ADODB.Connection 　　Dim rs As New ADODB.Recordset 　　cn.Open DSN=RSDAGLXT;Uid=sa;Pwd= 　　rs.Open 人事档案信息表, cn, adOpenKeyset, adLockOptimistic 　　Set MSHFlexGrid1.DataSource = rs 　　MSHFlexGrid1.ColWidth(0) = 100

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