VB.NET 超市管理系统

VB 6.0 过程引用传递参数，显示传递前和传递后的参数值： 　　Private Sub mysub(ByRef i As Integer) 　　 i = 100 　　End Sub 　　Private Sub Form_Resize() 　　 Dim num As Integer 　　 num = 1 　　 Print "传递前:" & num 　　 Call mysub(num) 　　 Print "传递后:" & num 　　End Sub

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

VB6.0演示的AutoSize实例，自动改变图片框的大小以显示图形全部内容，当图片框比图形小时，图形超出部分不被显示，减少图片框高度，使图片框小于图形。

vb 排队叫号系统源代码，Cobeyond排队系统，程序分为了中心控制端、CyMobile管理系统、系统通讯端口设置、系统数据库设置、最大终端客户数设置、检查服务器名和端口号等众多子程序。本排队叫号系统可广泛应用于银行大厅排队叫号、便民服务大厅排队叫号等公共服务场所，系统涉及硬件、数据库及网络各方面的编程知识，是一套比较综合的VB管理系统。其中服务人员子程序打开后的界面如截图所示，源码包中还包括了排队叫号系统设计的流程图、网络拓扑结构图等编程资料，请下载源码包查看详情。

一款国外的VB版跳棋游戏源码,源代码中同样包括了很多注释，不过注释都是英文。这款跳棋感觉和国内的不一样，走棋方法不同，试着玩了，按照国内的走棋方法，棋子并不走动，不知道如何玩。但是源代码在VB6.0下可顺利编译成功，有兴趣的可下载源代码参考学习。运行效果如下图所示。

一个使用Winsock控件的VB典型范例，架构为CS结构，由服务端和客户端组成，两者都运行后，可互通消息。调试步骤： 　　1）打开服务器端的“工程1.dsw”工程 　　2）点击运行按钮。 　　1）打开客户端的“工程1.dsw”工程 　　2）点击运行按钮。 　　3）此时服务器端和客户端已经建立连接 　　4）在服务器和客户端分别输入任何内容，另一端将会收到该内容并显示出来。 　　说明：必须先运行服务器端工程，再运行客户端工程。

VB 限制调整窗口大小的最大值，我们根据SetWindowLong函数的说明 ，可写出一个函数，当用户拖动窗口时，控制窗口最大能拖动到什么大小，当达到最大值时，窗口就不能继续被拖大，我们定义一个函数，在打开这个VB窗口时自动加载函数，实现对窗口最大拖动大小的控制： 　　Private Sub Form_Load() 　　 Dim ret As Long 　　 preWinProc = GetWindowLong(Me.hWnd, GWL_WNDPROC) 　　 ret = SetWindowLong(Me.hWnd, GWL_WNDPROC, AddressOf wndproc) 　　End Sub

VB6.0折线图生成实例,使用曲线图展示各项指标完成情况,同样是使用了MSChart控件的功能,这个折线图的数据取自SQL数据库,在程序中会建立数据库操作模块,将数据读取出来,然后交给折线图生成模块,最终生成这种不同颜色的曲线图,每条曲线都代表一项指标,在视图方面,本示例中的折线图可以按行显示标记,也可以叠置显示,最终效果,如测试图示. 　　运行前,请确保已正确连接测试数据库,否则程序不能运行.

VB6.0 使用鼠标分割窗体，用鼠标切分主窗体，实现SplitForm，可以用鼠标切分的窗体，在一些流行的应用程序中，经常见到窗体上有二个相邻的列表框，可以用鼠标任意拉动中间分割条，改变列表框的大校 　　演示窗口其实是一个布满了各种导航菜单的窗口，这也是大家学习的一个亮点哦，作为一个信息管理系统的主界面效果还是相当不错的，分隔窗体在很多时候我们也用得上的。

一款基于VB.NET和sqlserver数据库实现的考勤程序，实现公司员工的日常考勤功能，可实现指定日期的员工考勤，考勤时可选择考勤天数、考勤人，可查询本人的考勤记录，实现的是挺基本的考勤模块，还可显示当前用户的历史记录。 　　本实例的数据库文件在db文件夹下，请自行添加，并配置数据库信息。 　　源代码运行于VS2015环境下。