一个使用Winsock控件的VB典型范例

分享一个VB Excel表格生成模块，借助了模块中的ChangeToExcel.ocx组件来生成，使用时需要引入此组件。该组件中具备创建Excel文件、向Excel文件中插入内容、出错处理等功能。 　　Excel表格生成模块为该组件的源代码文件，你还可以通过源码对组件功能进行调整。 　　Demo文件夹下是使用此组件导出Excel文件的例子，单击按钮即可生成Excel文件。

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

VB 6.0 在DataGrid表格中实现下拉列表框，大家可以看截图，在如演示效果所示的DataGrid表格中，单击“单位”一列任意行数据，会显示出一个下拉框，供输入者选择单位，扩展了DataGrid的功能，增加了易用性，提升了用户体验。添加这一功能的核心代码为： 　　Adodc1.CommandType = adCmdTable 　　Adodc1.RecordSource = "tb_stock" 　　Set DataGrid1.DataSource = Adodc1 　　List1.AddItem ("支") 　　List1.AddItem ("瓶") 　　List1.AddItem ("盒") 　　List1.AddItem ("袋") 　　DataGrid1.Columns(6).Button = True 　　仅供参考，本示例是配合数据库实现的，请确保测试时数据库是连接的。

一款基于VB开发的药品管理程序，数据库采用SqlServer，运行之前首先在SQL查询分析器里执行SQL目录下的myMedsys.sql脚本.大家可根据源程序代码自行扩展程序，二次开发完善。

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 TELNET实现源码,虽然很简单,但是对于新手来说比较容易学习

VB6.0制作圆形窗体界面，打开后是一个矩形窗体，双击后变为一个圆形窗口，创建一个矩形区域的API函数,用来将窗口恢复为矩形，同时创建一个椭圆形区域的API函数，圆形应该是一个规则的矩形窗口，代码还是挺简单的，而且还有注释，非常适合学习研究VB的窗体制作，有兴趣的下载源码。

VB 石头剪刀布猜拳游戏，游戏操作方法：在窗体左下方的石头、剪子、布图标中，单击用户想要出的一种手势，电脑会自动给出该手势，任一方赢了都会给出相应提示图片信息。游戏结果判定逻辑： 　　将用户和计算机所选的图片的序号合成一个字符串，根据这个字符串判断用户的输赢 　　00 石头对石头 重来 　　01 石头对剪子 用户赢 　　02 石头对布 用户输 　　10 剪子对石头 用户输 　　11 剪子对剪子 重来 　　12 剪子对布 用户赢 　　20 布对石头 用户赢 　　21 布对剪子 用户输 　　22 布对布 重来

VB 数据库连接通用类，这个数据库连接类支持的版本比较多了，不过有些老了，但是大致的连接原理都一样，支持Access95、Access2000、SQLServer、Dbfiles、Excel等各类存储型数据库的连接方法，并制作成了窗口的形式，以及测试程序，可以打开此数据库测试连接方法。

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