简介面向VB初学者与有一定基础的程序员这套一百个实例组成的实践教程以案例驱动方式讲解Visual Basic编程覆盖变量、控制结构、事件驱动、控件布局、窗体设计、函数与过程、模块化、错误处理、文件操作、数据库连接、网络通信、图形绘制及多线程等进阶主题帮助读者从语法基础一步步过渡到完整的小型应用开发。教程强调动手实操每个例子都围绕真实场景展开并配有针对性解释能有效培养排错思维与编码习惯。资源以rar压缩包形式提供大小约1.62MB便于快速下载与离线学习目前已有160人学习使用适合自学、课程作业或项目热身。通读全部实例读者不仅能扎实掌握VB的核心语法与常用控件操作还能理解事件驱动编程的精髓并为后续转向VB.NET或C#打下良好基础。1. VB编程100例老掉牙的语言为什么还能帮你干活如果只看技术论坛的热度VB早该被扫进垃圾堆了。但真到接私活、改老系统、应付期末设计的时候你会发现满屏的Python教程帮不上忙反倒是VB6这种“古董”能解决实际问题——大量高校的课程设计、制造业的工控上位机、银行和政务的老业务系统到现在还在跑VB写的程序。这套《VB编程100例》不是什么高深秘籍它就是把100个能直接跑的案例按界面、算法、数据库、文件处理、控件应用分类打包每个例子有代码、有界面截图、有运行效果说明。适合三类人正在做课程设计但没思路的学生、要维护老系统的在职开发者、想快速搭一个Windows小工具的业余爱好者。它不是用来“学”的是拿来“抄”的——抄完改改就能用。2. 先搭环境再谈案例VB6与兼容模式的三件事2.1 为什么多数案例仍停留在VB6时代而不是VB.NET打开这套100例你会看到大量代码形如Text1.Text、Command1.Caption这是VB6的时代特征。VB6和VB.NET虽然名字相近但前者是事件驱动、面向对象的半壁江山后者是彻底的.NET托管框架两者的控件模型、事件写法、数据类型都有本质区别。市面上流传的《VB编程100例》这类资料绝大多数编写于2000年到2010年之间那时VB6还是教学主力所以案例全部基于VB6或VB 6.0中文版。有些读者装了Visual Studio 2019强行打开.vbp工程文件结果提示格式不支持这不是资源有问题而是你用错了环境。VB6程序的运行环境是Windows原生API不依赖.NET Framework启动速度快、内存占用低这是它至今仍在工控行业存在的原因。2.2 在Windows 10/11上安装VB6的兼容配置VB6官方发布于1998年微软早已停止技术支持但在Win10和Win11上依然能装、能跑、能编译出exe。安装时需要做三件事第一安装文件建议使用ISO镜像版而非精简版精简版容易缺少数据访问组件第二安装完成后立即运行一次VB6如果提示“无法定位程序输入点“需要将工程属性中的“兼容性”设置为Windows 7模式第三安装完必须打上USB驱动补丁和鼠标滚轮补丁否则在集成开发环境里鼠标滚轮无效。安装完成后建议在“工具→选项→通用”里把“请求时编译”选中把“后台编译”取消这样调试单步执行时不至于卡顿。窗体编辑器的网格间距默认是120缇100例里有大量控件对齐截图如果你的窗体设计器和例子里显示的位置有偏差先检查一下网格设置是否一致。2.3 打开工程文件的正确姿势与常见报错拿到手后解压文件夹找到形如“实例001.vbp”的工程文件。用VB6打开之前先检查文件夹里是否同时存在form文件.frm和模块文件.bas。如果只下载了单独的源代码文本是无法直接运行的。打开.vbp时常见的报错是找不到某个.ocx控件文件比如MSFlexGrid.ocx或MSChart.ocx。这时候不要慌把这个控件文件拷贝到C:\Windows\System32目录下然后在VB6中点击“工程→部件”浏览注册这个ocx文件即可。还有一种情况是工程引用了ADO对象库但你的系统里没有安装MDAC组件这个在Windows 10以后已经内置但为了保险起见可以在“工程→引用”里确认是否勾选了“Microsoft ActiveX Data Objects 2.x Library”。提示每次打开陌生的VB工程前先备份一份原文件夹。改错了还有后悔药不至于推翻重来。3. 窗体与控件的经典编排从界面布局到事件响应的玄学3.1 100例里最常用的控件属性和事件套路100例里有近40例和窗体控件相关翻来覆去就是Label、TextBox、CommandButton、ListBox、ComboBox、Timer这六个控件。但这些案例的价值在于属性设置的具体数值——比如为了让Label文字垂直居中很多人会去调Top属性但VB6里Label没有VerticalAlignment属性正确的做法是把AutoSize设为False把BorderStyle设为0再调整Top的数值。这些细节书里不会讲透但100例每个都给了完整界面属性对照表。事件方面的套路更实用。拿CommandButton的Click事件来说案例里最常见的写法是先校验文本框是否为空再用MsgBox弹窗最后操作数据。这套三板斧从简单计算器到学生管理系统都是同一个骨架。100例里有一个“带输入校验的登录窗体”案例它的代码里有这样一段Private Sub cmdLogin_Click() If Trim(txtUser.Text) Then MsgBox 用户名不能为空, vbExclamation, 提示 txtUser.SetFocus Exit Sub End If If Trim(txtPass.Text) Then MsgBox 密码不能为空, vbExclamation, 提示 txtPass.SetFocus Exit Sub End If 此处执行真正的验证逻辑 If txtUser.Text admin And txtPass.Text 123456 Then MsgBox 登录成功, vbInformation, 成功 Else MsgBox 用户名或密码错误, vbCritical, 错误 txtPass.Text txtPass.SetFocus End If End Sub这段代码的逻辑说明先用Trim函数去除首尾空格避免用户误输入空格导致校验失效vbExclamation、vbInformation、vbCritical是MsgBox三姐妹弹窗图标不同使用场景也有讲究Exit Sub是提前退出事件过程防止空数据继续往下执行。参数上要注意MsgBox的第一个参数是消息文本第二个是按钮和图标常量的组合第三个是标题栏文字初学者最常犯的错误是顺序颠倒。3.2 让控件随窗口自适应不写一行代码的ScaleMode方案100例里有一个“窗体缩放自适应”案例这个案例的价值被很多人低估了。VB6窗体默认的单位是缇Twip1厘米约等于567缇但不同分辨率下实际显示像素不同。这个案例给出的办法是把窗体的ScaleMode属性改为3Pixel像素然后在Form_Resize事件里用ScaleWidth和ScaleHeight重新计算控件坐标。Private Sub Form_Resize() Dim scaleX As Single Dim scaleY As Single scaleX Me.ScaleWidth / 8000 scaleY Me.ScaleHeight / 6000 cmdOK.Move 100 * scaleX, 4000 * scaleY, 2000 * scaleX, 800 * scaleY txtInput.Move 100 * scaleX, 1000 * scaleY, 6000 * scaleX, 2000 * scaleY End Sub逻辑说明这段代码先把窗体工作区拆成基准宽8000和高6000的虚拟坐标ScaleX和ScaleY分别算出横向和纵向的缩放比例再用Move方法重设控件的Left、Top、Width、Height。参数说明Move四个参数分别对应左、上、宽、高单位是像素。这个做法的缺点是控件会拉伸变形如果界面上有图片框图片会模糊。100例里这个方案其实不算最优解但作为演示够了。对于要求严格的界面我更推荐用Anchor第三方控件但那是另一个话题。3.3 定时器与后台轮询的边界Timer控件的Interval不是越短越好有一个“数字时钟”的案例用Timer控件刷新Label显示时间Interval设为1000也就是一秒触发一次。这个案例的扩展价值在于它演示了Timer的常见误用——有人为了做秒表把Interval设为1导致程序CPU占用飙升到30%以上。Timer控件的机制本身是异步消息触发的Interval最短可设1毫秒但Windows系统的计时器精度只有约15.6毫秒设了也白设白白增加消息队列压力。100例里有一个“系统监控-实时刷新”的案例作者用Interval2000做两秒刷新这个值是CPU占用和实时性的平衡点做上位机数据监控时可以照着抄。另外代码里如果用了DoEvents一定要小心重入问题Timer事件在执行过程中再次触发会导致逻辑错乱。规避方法是在事件开头加一个布尔标志位Private Sub Timer1_Timer() If isBusy Then Exit Sub isBusy True 执行刷新逻辑 isBusy False End Sub逻辑说明布尔变量isBusy作为锁防止Timer事件重叠执行。参数说明Interval属性单位是毫秒一个常见习惯是监视图标动画用500、数据刷新用2000、保存草稿用5000以上。4. 经典算法与数据结构落地把课本习题变成可运行案例4.1 数组排序与查找冒泡、选择、二分三件套100例里有10个左右算法案例包括冒泡排序、选择排序、插入排序、二分查找、递归求阶乘、猴子吃桃、汉诺塔等。这些案例的代码本身不难但难点在于VB6的数组是零基还是壹基——默认是零基但Option Base 1声明后数组起始索引变成1很多人在做二分查找时下标越界就是没注意这个。100例里“二分查找”案例的代码如下Dim arr(1 To 10) As Integer Dim low As Integer, high As Integer, mid As Integer Dim target As Integer low LBound(arr) high UBound(arr) Do While low high mid (low high) \ 2 If arr(mid) target Then low mid 1 ElseIf arr(mid) target Then high mid - 1 Else MsgBox 找到位置是 mid Exit Do End If Loop逻辑说明LBound和UBound动态获取数组上下界避免硬编码索引范围整除运算符是反斜杠\VBA/VB6的数学运算符和C系语言不同取整除用\取余用Mod。参数说明核心是循环条件low high一旦low超过high说明目标不存在循环自然终止。这里有个边界坑如果mid (low high) \ 2的low和high都是极大整数加法可能溢出但VB6的整型是16位最大32767题库场景里不会触发只有做大数组时才需要改成Long并写mid low (high - low) \ 2。4.2 字符串处理与正则Replace、Split和InStr的配合100例里有一个“过滤敏感词”的案例用字符串函数实现文本替换。它的核心逻辑是循环遍历字符串用InStr找到敏感词位置再用Replace替换。这个方法在文本长度大时会很慢但用于课程设计绰绰有余。案例里还提供了第三种思路用VB6自带的VBScript正则表达式。Dim reg As Object Set reg CreateObject(VBScript.RegExp) reg.Pattern [0-9]{11} 匹配11位连续数字 reg.Global True 全局匹配 If reg.Test(txtInput.Text) Then txtOutput.Text reg.Replace(txtInput.Text, ****) Else MsgBox 未找到匹配内容 End If逻辑说明VBScript.RegExp的Pattern语法和Linux里grep用的基础正则接近[0-9]{11}是连续11位数字Global设为True表示替换所有匹配项而不是只替换第一处Test方法返回布尔值判断是否匹配。参数说明CreateObject是VB6动态创建COM组件的关键字这个对象在Windows系统里原生存在不需要额外引用。顺手记一个玄学点RegExp对象的Replace方法返回的是新字符串不会修改原字符串变量所以必须重新赋值。4.3 递归与迭代的效率对比阶乘案例里的溢出坑“递归求阶乘”是100例里必有的经典。代码通常是Function Factorial(ByVal n As Integer) As Long If n 1 Then Factorial 1 Else Factorial n * Factorial(n - 1) End If End Function逻辑说明边界条件是n等于1或0时返回1否则递归调用自身。参数说明ByVal传递参数副本函数的返回值类型是Long32位有符号整型。问题来了13!等于6227020800超过了Long类型2147483647的上限运行会提示溢出。100例里的解法是把返回值类型改成Double精度丢了但至少不报错。我的习惯是干脆把参数声明为ByVal n As Long返回值改Double然后再用Format函数控制输出格式。另外递归深度在VB6里有限制超过约200层会栈溢出追求稳健的话应该改迭代法For循环累乘。这个案例的教训是从课本搬到工程时要留神数据类型边界课本为了演示简单选了Integer真实使用Long起步才稳妥。5. 数据库与文件读写实战从Access到文本文件的五条踩坑记录5.1 用ADO连接Access数据库的三种方式100例里数据库相关案例大概占比两成学生会管理系统、图书管理系统、工资管理系统都会用到数据库操作。VB6数据库访问三板斧是ADO、DAO和Data控件100例主要用的是ADO。连接Access 2003格式的.mdb数据库的写法Dim conn As New ADODB.Connection Dim rs As New ADODB.Recordset Dim strConn As String strConn ProviderMicrosoft.Jet.OLEDB.4.0;Data Source App.Path \data\stu.mdb conn.Open strConn rs.Open SELECT * FROM student WHERE age 20, conn, adOpenKeyset, adLockOptimistic逻辑说明Provider指定数据库引擎Microsoft.Jet.OLEDB.4.0对应Access 2003及以前版本Data Source指向文件路径这里用App.Path取exe所在目录避免硬编码路径rs.Open的三个参数分别是游标类型和锁类型。参数说明adOpenKeyset值为1表示可滚动且能看到其他用户新增的记录adLockOptimistic值为3表示只在调用Update时才锁定记录适合单机版课程设计。这个写法踩过无数坑最典型的是“未找到提供程序”错误——原因是64位系统上VB6默认以32位进程运行而Access数据库驱动也分32和64位混用必然报错。解决方法是确保工程编译为32位exe用Process Explorer确认进程架构同时也别手贱安装64位Access驱动去替代。5.2 “数据源未指定”错误与连接字符串顺序初学者最常见的报错ISAM“无法找到可安装的 ISAM”本质是连接字符串里少写了Provider参数或者写错了路径。100例里有个案例给出了完整连接多数据库的对照表我建议你把它抄在一张卡片上数据库类型Provider参数典型文件名Access 2003以前Microsoft.Jet.OLEDB.4.0.mdbAccess 2007以后Microsoft.ACE.OLEDB.12.0.accdbExcel 2003以前Microsoft.Jet.OLEDB.4.0.xlsSQL ServerSQLOLEDB或SQLNCLI11服务器连接注意Access 2007以后生成的.accdb文件是Jet引擎无法读取的必须装ACE驱动网上搜“AccessDatabaseEngine”装X64版本也经常翻车——因为VB6是32位的必须装32位版ACE引擎即使操作系统是64位也要选X86的安装包这是血泪经验。5.3 读写文本文件Open语句的模式陷阱100例里文件处理案例用的是传统Open语句比如写入日志Open App.Path \log.txt For Append As #1 Print #1, Format(Now(), yyyy-mm-dd hh:nn:ss) 操作成功 Close #1逻辑说明For Append表示追加模式不会覆盖已有内容As #1分配文件号同一文件操作期间文件号唯一。参数说明Format函数的第二个参数的hh对应小时nn对应分钟秒用ss不少人写成yyyy-mm-dd hh:mm:ss会得到意料外的格式——因为mm已经代表分钟了再写冒号加mm相当于重复。写文件的关键是操作后必须Close否则数据停留在缓冲区程序崩溃时会丢失日志。100例里有个“提示保存成功但文件为空”的案例原因就是没Close。用Open语句时三个模式各有用途Input读取、Output覆盖写、Append追加Object字库看多了会顺手但千万别在读取时用Output模式等于先把文件清空了。5.4 二进制文件操作读图片到数组再落盘有一个“图片加密器”案例用了二进制方式读写文件。代码骨架是先Get文件长度再逐字节读取做异或操作最后写回。这个思路放在今天看依然可以借鉴——用VB6实现最简单的文件异或加密Dim fileNo As Integer Dim byteData As Byte Dim i As Long fileNo FreeFile Open App.Path \secret.dat For Binary As #fileNo For i 1 To LOF(fileNo) Get #fileNo, i, byteData byteData byteData Xor 200 Put #fileNo, i, byteData Next i Close #fileNo逻辑说明Binary模式按字节读写Get从指定位置读取一个变量Put写到指定位置LOF返回文件总字节数作为循环终点。参数说明Xor 200的200是密钥解密时再执行一次相同的异或即可还原这个算法入门级但够用。若要处理大文件这个写法效率很低因为逐个字节读写会有大量磁盘IO实际设计时应按块读取比如每次读4KB到字节数组但100例作为教学演示会更侧重易懂。5.5 数据库连接的五条踩坑记录数据库案例的常见问题按“现象→原因→解决”整理如下现象一运行时提示“Microsoft Jet 数据库引擎找不到输入表或查询”表名明明存在。原因SQL语句里的表名写错或者Access表名含空格没有用方括号括起来。解决所有自定义表名、字段名都加方括号例如SELECT * FROM [student info]。现象二字符串SQL拼接时中文条件查不到数据。原因中文字符串常量没有前后加单引号。解决把代码写成WHERE name 张三VB6字符串用双引号包裹SQL内层用单引号。现象三多用户同时访问MDB时偶尔崩溃。原因Jet引擎的锁机制在局域网高并发下脆弱。解决切换为SQL Server或把Access拆分为前后端这是架构层面的事100例不会教你。现象四删除记录后Access文件体积不变。原因Access删除记录不会自动回收空间。解决执行“工具→数据库实用工具→压缩修复数据库”或代码里用DBEngine.CompactDatabase。现象五用ADO打开记录集后再执行UPDATE语句报错。原因记录集未释放时表被锁定。解决rs.Close后再执行新的SQL语句或者改用Command对象执行更新。6. 排查技巧与进阶思路从单步调试到打包部署的收尾习惯100例全部跑通之后想进下一步把调试和部署真正吃透。VB6的调试器在今天看来很朴素但有一个技巧值得花时间练设置中断表达式。在代码窗口左边的灰色条上单击可以设置断点右键断点红点选择“条件”输入表达式如i 50这样只会在第50次循环时中断不用按F8按到手酸。另一个实用技巧是使用Immediate窗口——运行程序进入中断模式后在立即窗口输入?Text1.Text就能查看控件属性值输入?变量名就能计算表达式结果。排查循环内变量异常时我会直接在代码里临时加Debug.Print i这样输出会显示在立即窗口不干扰界面。打包部署是老项目绕不过的一关。VB6自带的打包向导Package Deployment Wizard生成的安装包在Win10上经常出问题典型故障是安装后运行时提示缺少控件。我的习惯是手写安装脚本把exe、所需ocx、dll放在同一目录在安装脚本里用复制文件加RegSvr32注册。所需依赖怎么盘最简单的办法是本机装一个干净虚拟机装上VB6运行库再跑一遍程序注册表对比工具能找到新增的ActiveX条目。但现实中说实在的99%的上位机程序只需要把exe文件和几个必带的ocx拷到目标机器就能跑因为Windows系统自带常用运行库VB6的运行时msvbvm60.dll在Windows 2000以后是系统文件不需要单独分发。关于界面编排有一个进阶习惯我用了十年永远在Form_Load里把窗体的StartUpPosition设为2屏幕中心控件字体全部设为“宋体 9号”或“微软雅黑 9号”这样不同分辨率下观感一致。每次封装完成后必须走一遍三检查机器A是64位Win11、机器B是32位Win7虚拟机、机器C是纯英文系统程序在三种环境下各跑一次典型流程。没测过这三项我绝不敢把程序交给对方。这些都是当年改完一个工控系统界面在客户那边因字体缺失显示错乱的经验教训换来的从那以后我每次交付VB程序都强制走一遍这套清单。希望帮到你——如果你正卡在某个案例跑不通按上面排错顺序走一遍八成能解决。本文还有配套的精品资源点击获取