简介面向Visual Basic 6.0初学者与桌面应用开发者的系统学习资料包覆盖从基础语法、界面设计到控件属性与API函数调用的完整知识链。内含《VB从入门到精通》《VB6.0基础教程》等多本电子书附大量可运行的示例工程frm、bas、vbp源文件并收录控件属性大全、Visual Basic语言参考函数速查、MSDN帮助文档及Visual C 6.0进阶教材便于对照学习与查漏补缺。压缩包共3583个文件其中以524个ico图标、394个htm帮助页、381个dll运行库、303个gif示意图、216个bmp位图、121个exe可执行程序、76个ocx控件等为主整体约327.4MB目录结构完整。已有8222人学习浏览适合想通过实例快速上手VB6开发、查阅控件属性与函数用法或补充C知识的读者系统使用。1. 别人都在劝退 VB6这份教程加示例为什么还值得下Visual Basic 6.0 这个缩写放到现在的技术讨论里基本没什么热度了但真要接手老系统维护的人十有八九绕不开 vb6 写的老工程。这份「基础教程及示例」的资源把 IDE 操作、语法、常用控件压成了一份能照着做的操作手册而且每个章节背后挂了可以直接跑的示例工程。适合两类人一类是被临时安排去维护老系统的开发者需要在最短时间里看懂 .frm 文件里到底写的什么另一类是嫌新框架太重、想用最快速度把日常琐碎操作做成小工具的从业者。教程不追求讲全讲深追求的是你照着点、照着写能把示例跑起来再把它改成自己的需求。2. VB6 资源包怎么用从文件结构到第一个可运行示例光看教程标题没意义先搞清楚包里是什么。这份资源的结构我用一句话总结教程管「为什么」示例管「怎么跑」。教程章节顺序基本是界面引导 → 语言基础 → 控件用法 → 综合示例每个章节背后有对应编号的示例工程。如果跳过示例只读文档你学到的是概念把示例逐个跑通你学到的是操作手感。下面按我拆这类资源包的顺序来讲。2.1 包里的三类文件教程文档、示例工程、附属资源解压后一般能看到三类东西先用一张表把各自的角色说清扩展名在工程里的角色常见操作.vbp工程入口文件记录窗体、模块、编译选项用 IDE 打开它.frm窗体文件控件布局和事件代码全在里面教程详解的主体可用文本编辑器查看.bas标准模块放公共函数和全局变量综合示例里「界面与逻辑分离」的载体.frx与 .frm 同名的二进制文件存图片、图标不要手动改跟 .frm 一起拷贝.exe编译成品有的示例章节末尾附了对照效果.vbp 本身很小通常就是几行文本记录 TypeExe、引用了哪些 .frm、启动对象是谁。.frm 是 vb6 世界里最值得读的文本文件控件属性、事件代码全在这里面。.bas 用于存放不依赖界面的逻辑这份教程靠后的综合示例会把公共函数挪进去目的是演示界面层和逻辑层分开写的思路。用文本编辑器打开任意一个 .frm你会看到类似这样的结构VERSION 5.00 Begin VB.Form frmMain Caption 示例欢迎程序 ClientHeight 3000 ClientWidth 4800 Begin VB.TextBox txtName Height 375 Left 1200 Text Top 600 Width 2000 End End Attribute VB_Name frmMain这里 Begin 和 End 包住一个控件块块内冒号前的 Caption、Left、Top、Width 都是属性名等号后是值。这些数值单位是 twip也就是 1/1440 英寸IDE 里拖动控件时系统会自动写不用背。最下面的 Attribute VB_Name 是窗体模块名跟磁盘文件名无关所以资源包里出现 frmMain.frm、frmLogin.frm 这种名字时要靠这一行区分模块身份。正常使用中你不会手工编辑 .frm但会看它有个实际好处当你改坏了一个工程把 .frm 和原始版本用对比工具一比对能精确看到改了什么。后面排错章节会用到这个技巧。2.2 从打开工程到跑通三步操作加 IDE 布局安装完成后先别急着双击 .vbp我一般建议右键 IDE 的快捷方式选择「以管理员身份运行」然后在文件菜单里点「打开工程」定位到示例目录里的 .vbp。打开后直接按 F5 运行。这一步如果报错九成是路径问题把整个示例目录从压缩包里解出来后放到纯英文路径下比如 D:\VbDemo\01再试一次大部分「跑不起来」就消失了。跑通后先别写代码把 IDE 四个区域认一遍工具箱左侧竖条放文本框、按钮、标签等控件双击或拖到窗体上工程资源管理器右上部看当前工程有哪些窗体、模块属性窗口右下部选中控件后在这里改属性代码窗口双击窗体任意空白处进入事件代码写在这里提示属性窗口第一项常常是 (Name)这是控件在代码里的名字下面那行 Caption 才是界面显示的文字。新手最容易在这里把两个搞混代码里引用 txtName属性里名称却写成了 Text1运行必然报错。F5 是一键运行F8 是单步执行每按一次执行一行配合代码窗口左下角的「立即窗口」可以一边跑一边用 Debug.Print 输出变量值。资源教程很多地方让你「按 F8 观察变量变化」指的就是这个操作。2.3 第一个示例解剖按钮事件与代码结构这份教程的第一个示例通常是「输入名字点按钮显示欢迎语」。看代码比看描述快事件过程长这样Private Sub cmdOK_Click() Dim sName As String sName Trim$(txtName.Text) If sName Then MsgBox 名字不能为空, vbExclamation, 提示 Exit Sub End If lblResult.Caption 你好 sName End Sub先解释命名规律cmdOK 是按钮控件txtName 是文本框lblResult 是标签。教程里要求你写代码前先把控件名改成这种前缀格式是因为 vb6 的事件过程名是「控件名_事件名」拼出来的cmdOK_Click 意味着这是 cmdOK 按钮的点击事件你一旦在属性窗口改了控件名这里的事件过程也要跟着改否则事件就断开了。代码逻辑本身不复杂Trim$ 去掉文本框首尾空格空字符串就走 MsgBox 弹窗并退出过程有内容就把欢迎语拼进标签的 Caption。注意最后一行用的是字符串拼接而不是这一点在第三章讲类型时会详细展开。vbExclamation是个内置常量控制弹窗左侧的图标样式这是 vb6 里最常见的参数化写法之一。提示MsgBox 的返回值可以接代码写成If MsgBox(确定继续, vbYesNo) vbYes Then就能做二次确认教程后面多处示例都用到了这个返回值别只当它是弹通知用的。3. VB6 语法与控件教程里最容易卡住的三类细节教程的语法章节往往写得很薄但真正卡住新手的从来不是语法本身而是类型边界、分支结构、属性含义这三类细节。这三个点只要有一个没搞透示例照抄都会跑出莫名其妙的结果。下面按我实际带人时的讲解顺序展开。3.1 变量声明与数据类型Variant 省事也最埋雷vb6 的变量声明不强制不声明时默认是 Variant 类型什么都能装。好处是写着爽坏处是变量名拼错时IDE 会静默地把它当一个新的 Variant 变量来用初值是 0 或空字符串程序不报错但结果永远不对这就是典型的黑匣子问题。我拿到任何示例工程第一件事就是在代码顶部加一行 Option Explicit强制所有变量先声明。Option Explicit Dim nIdx As Integer 16 位整数上限 32767统计量小的时候够用 Dim lRow As Long 32 位整数统计行数、循环计数首选 Dim dPrice As Double 浮点涉及小数和金额时用 Dim sBuf As String 变长字符串注意 Trim$、Left$ 这类带 $ 的函数返回字符串Integer 看起来省空间但边界特别容易踩处理几百条记录没问题上万条记录循环里累加一超过 32767 就溢出报错运行当场中断。所以整数我一般直接用 Long教程里也有提醒但很多老示例代码仍然写的是 Integer照抄前值得多想一层。Variant 自动转型一样有代价字符串 123 可以做加法空字符串会被当成 0混着用就会触发「类型不匹配」的实时错误。加 Option Explicit 之后拼错的变量会在编译阶段标出来不用等运行时才暴露。数据类型这节记住一张表就够日常使用类型位数常用场景注意点Integer16循环小计数32767 就爆Long32计数、索引整数默认选它Single / Double32 / 64小数运算Double 更稳String变长文本处理注意与 Variant 混用时的隐性转换Boolean16开关状态值为 True / FalseDate64日期时间计算要转成序列数3.2 流程控制Select Case、For、Do 各自的适用边界教程里的流程控制无非 If、Select Case、For、Do 这四样但示例代码往往混着写新手抄的时候不清楚为什么换写法。我的习惯是分支多了就用 Select Case固定次数用 For次数未知用 Do。看一段对照 多分支判断Select Case 命中即退出不需要 break这是与 C 系语言最大的差异 Select Case nLevel Case 1 sMsg 低 Case 2 To 5 sMsg 中 Case Is 6 sMsg 高 Case Else sMsg 未知 End Select 固定次数用 For含起点、终点、步长三个参数 For i 1 To 10 Step 2 acc acc i Next 未知次数用 Do While条件在循环体内变化 Do While rs.EOF False rs.MoveNext Loop这里几个写法是教程容易一带而过但实际很常用的Case 2 To 5 表示闭区间 2 到 5Case Is 6 是带比较操作符的写法Case Else 兜底命中一个分支后直接跳到 End Select不往下穿透。For 的 Step 支持负数For i 10 To 1 Step -1就是倒序批量处理文件改名时经常用到。Do While 最需要注意的是条件必须在循环体内被改变否则就是死循环教程示例里最容易改出死循环的地方就在这里一旦窗体卡死按 CtrlBreak 中断运行是最快的解脱方式。3.3 控件属性与事件顺序Caption、Text、Tag、KeyPress控件属性里最容易混的是 Caption 和 Text标签、按钮、窗体用的是 Caption文本框和组合框用的是 Text。很多人把文本框的值赋给 Caption界面显示不出来就是因为用错了属性。Enabled 和 Visible 也别混EnabledFalse 控件变灰但还在界面上占位置VisibleFalse 是直接消失两种情况在界面排错时表现完全不同。Tag 属性是最容易被忽略的隐藏位每个控件都有专门用来存自定义标记界面上不显示。我常拿它存控件用途比如 txtName.Tag 存 input_name批量处理时遍历控件就能靠 Tag 区分职责不用写死控件名。事件顺序也很关键看这个例子Private Sub txtName_KeyPress(KeyAscii As Integer) If KeyAscii 13 Then 回车键的 ASCII 码 KeyAscii 0 把回车吃掉避免系统响铃 cmdOK_Click 直接调用按钮的事件过程 End If End Sub Private Sub Form_Load() With cmdOK .Caption 确定 .Enabled False 初始不可点 .Tag btn_ok End With End SubKeyPress 事件里 KeyAscii 是参数也是出口你在过程里改它的值系统就会用新值处理写成 0 意味着这次按键被完全吞掉。回车键的 ASCII 是 13所以文本框里按回车等同于点按钮这是桌面工具里最常见的交互优化。With...End With 是给同一对象连续赋值时的简化写法省去重复写对象名的麻烦。Form_Load 在窗体加载时触发一次初始化逻辑放这里最合适之后才是用户的各种输入事件顺序是 Form_Load → KeyPress → Click理清这个顺序你就知道资源教程里的示例为什么把初始化代码都堆在 Form_Load 里。4. 避坑篇VB6 示例跑不起来的五个常见现场资源包里附的示例绝大多数在装好环境的机器上能直接跑。但如果你用的是新系统或者示例是从压缩包里解出来的下面几个坑我几乎每次都遇到。按「现象 → 原因 → 解决」的形式整理省得你一个个搜。4.1 双击 .vbp 没反应或在 IDE 里提示无法加载工程现象双击工程文件没反应或者在「打开工程」时直接弹错误对话框提示工程格式不正确。原因权限不足IDE 以普通权限启动时访问注册表受限另一个常见原因是示例目录或解压路径带了中文、空格vb6 对这类路径解析非常脆弱。解决右键 IDE 快捷方式选「以管理员身份运行」再重新打开工程同时把示例整个目录挪到纯英文路径下。如果还报「格式不正确」用记事本打开 .vbp检查第一行是否是 TypeExe若文件被编码成了带 BOM 的 UTF-8第一行会被读坏另存为 ANSI 编码即可。4.2 窗体中文显示成乱码现象双击示例的 .frm 文件在外部文本编辑器里看中文全是乱码或者在外面改了 .frm 后再用 IDE 打开窗体加载失败。原因.frm 文件是 ANSI 编码保存的现代文本编辑器默认按 UTF-8 读字符对不上就显示乱码。解决不要用外部编辑器直接改 .frm非要看用记事本打开另存时编码选 ANSI。一定注意别把 UTF-8 编码存回去否则 IDE 会拒绝加载整个窗体。这个坑我在帮别人排查时见过很多次属于「改了一行毁了一整个窗体」的典型翻车现场。4.3 运行报「实时错误 13类型不匹配」现象在文本框里输入数字点按钮做算术运算弹出错误 13程序中断。原因TextBox 的 Text 属性是字符串拿字符串直接做加法时Variant 自动转型会尝试把内容转成数值一旦内容不是纯数字或混入空字符串转换就失败。解决所有从文本框取数的操作显式转换之后再算Dim dA As Double dA Val(txtA.Text) Val(txtB.Text)Val 函数从头解析数字字符遇到非数字就停止解析不到就返回 0比直接用 Text 稳得多。涉及小数时用 CDbl涉及整数用 CLng这类转换函数在资源教程的语法附录里都有建议全部扫一遍。4.4 编译出来的 EXE 拷到别的机器跑不起来现象本机编译运行一切正常拷贝到没有装 IDE 的机器上双击没反应或提示缺少运行库。原因vb6 生成的 EXE 依赖运行库文件比如 msvbvm60.dll 这一族目标机器没有这套运行库就起不来。解决在目标机器上安装 vb6 运行库或用「打包和部署向导」生成安装包临时应急的做法是直接拷一个装有完整 IDE 的机器来跑。注意编译选项里不要勾选「使用增强模式」这类花哨选项生成的 EXE 依赖会少一些。4.5 程序不报错但结果永远是 0现象运行没有错误提示但计算结果固定为 0或者循环只执行了一次怎么看都找不到问题。原因大概率是变量名拼写不一致。以前带过的 A 同学 就栽在这上面声明了 nCount后面所有累加写成了 nContvb6 遇到未声明的 nCont 就自动创建一个新的 Variant初值 0所以结果永远是 0。这也解释了为什么教程要求加 Option Explicit。解决代码文件顶部加一行 Option Explicit然后按 F5 编译IDE 会把所有未声明的变量一个个标出来错拼的瞬间暴露。从那以后我接手的任何示例第一件事就是确认有没有这一行。5. 收尾实战把登录示例改成批量重命名工具教程的示例大多停在「能跑」这一步真正有用的是把示例骨架拆出来换皮。我拿资源里按钮加文本框的示例做底改了一个批量重命名小工具界面就是三个文本框加一个按钮分别接收目录路径、旧关键字、新关键字Private Sub cmdRun_Click() Dim sFolder As String Dim sOld As String Dim sNew As String Dim sFile As String sFolder txtFolder.Text sOld txtOld.Text sNew txtNew.Text If Dir(sFolder, vbDirectory) Then MsgBox 目录不存在, vbCritical, 检查路径 Exit Sub End If sFile Dir(sFolder \* sOld *) Do While sFile Name sFolder \ sFile As _ sFolder \ Replace(sFile, sOld, sNew) sFile Dir Loop MsgBox 处理完成, vbInformation, 重命名 End Sub这里有两个老式写法值得记住Dir 函数第一次调用时带路径加通配符返回第一个匹配的文件名之后再调用时不带参数返回下一条直到返回空字符串。这是遍历文件列表的经典惯用法。Name...As 是文件重命名的专用指令对比「复制再删除」的方式它在同一目录下只是改个名字速度快得多。Replace 函数接收三个参数分别是源字符串、旧子串、新子串一次性替换全部匹配。代码里那个_是续行符把过长的 Name 语句拆成两行是 vb6 的标准写法。改造思路三步走从资源包示例里复制一个窗体 → 按需要改名控件 → 把写死的逻辑换成输入框参数。教程后面的综合示例基本都能按这个套路改成自己的工具。编译成 EXE 后丢在桌面几十个文件换个前缀点一下几秒完成比手动一个个改快太多。从那以后我每次拿到「教程加示例」这类资源包都强制先跑通原样工程、再动手改改一行验证一次翻车了就直接从包里重新解一份原版 .frm示例就是最好用的后悔药。希望帮到你。本文还有配套的精品资源点击获取