VB6.0检查是否有拨号连接

VB 6.0 按字段显示Access数据库所有值，是一个按条件查询数据库的例子，这里的数据库为BOOK2.mdb，核心的代码如下： 　　Private Sub Adodc1_WillMove(ByVal adReason As ADODB.EventReasonEnum, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset) 　　End Sub 　　Private Sub Form_Load() 　　Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "ook2.mdb;Persist Security Info=False " 　　Adodc1.RecordSource = "select * from 作者" 　　Set DataCombo1.DataSource = Adodc1 　　DataCombo1.DataField = "城市" 　　Set DataCombo1.RowSource = Adodc1 　　DataCombo1.ListField = "姓名" 　　End Sub

本源码基于VB.NET编写，集合了VB.NET中的读取ini文件，窗体Tab标签，界面滑动等效果，界面看上去是一个音乐播放器，其实本程序是侧重于界面的编程设计，演示了窗口中TAB标签切换、界面滑动以及整体界面的美化的具体实现，使用了比较多的三方DLL，已经都打包了，感兴趣的下载源码，在VS2012版本以上的VS中打开并编译。

一个FTP程序的例子，不过这个是支持代理服务器的，用VB编写FTP的例子,支持代理服务器。这个程序同样来自国外VB网站，代码中很多注释，不过是英文的。这个FTP程序的样子似乎还需要完善，和当下流行的、CuteFTP、FlashFXP都有很大的区别，甚至说有点简陋，不过这个代码主查面向学习的，英文好的可下载本源码学习。

VB成绩统计饼图，生成圆形图表，圆饼百分比图表的例子，这种图表相信大家见多了，这个例子介绍了VB简单生成圆饼图的方法，对初学VB的朋友会有帮助，通过这个图表，你可以了解绘图、填充、按比例分配、绘制扇形等是如何实现的，用它来显示优秀人数、良好人数、及格人数、不及格人数所占的比例，各个比例用不同的颜色填充，让结果一清二楚，源代码运行于VB6.0环境 ，运行效果如下图所示。

VB 批量录入数据，批量显示数据在MSHFlexGrid控件中，本示例同时需要SQLSERVER数据库配合，添加的数据也会显示在在表格MSHFlexGrid中。

VB.NET API函数示例，使用VB api函数画线条的一个例子，如图所示的效果中，鼠标单击两端，即可画出一条直线，主要是学习使用VB.NET中的API画图函数用法。示例运行效果请参见截图所示，本页提供该实例的源码下载。

vb.net获取TXT文件的各种属性参数，除了复制、移动文件、删除文件外，还可获取到文件的各种属性参数，不过只是针对TXT文本文件，可以获取到以下的参数：文 件 名 、路 径 、文件大小 、创建文件时间、最近访问时间、最近写入时间、是否隐藏文件、是否只读文件、是否系统文件 、是否脱机文件等 。

VB6.0 利用组合框辅助录入数据，输入框什么的就不多说了，主要学习VB6 中的Combo、DTPicker组合框在录入数据时的用法，方便用户选择数据、选择时间，特别是时间，可固定为指定格式，防止程序出错等。

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

VB 设置随机访问文件的读取位置，本例中是使用Seek语句来设置随机访问文件的读取位置，代码编写方面，主要是掌握Seek的用法，以下代码将用户的单击行为作为触发Seek的事件条件： 　　Private Sub Command1_Click() 　　 Dim str As String * 10 　　 Open App.Path & "MyFile.txt" For Binary As #1 　　 Seek #1, 5 　　 Get #1, , str 　　 Text1.Text = str 　　 Close #1 　　End Sub 　　当用户单击按钮后，执行seek语句。