VB6.0使用汇总一

目录： 一、软件的下载与安装 1、软件下载 2、软件安装 1）弹出"没有发现Acme安装程序"   2）退出VB6.0时显示Visual Basic已经停止工作 二、软件的使用 1、VB输出可执行文件或安装包 2、ComboBox 控件的使用 3、MsComm串口控件 1）MsComm控件的添加   2）MsComm控件的事件及基本属性 4、添加引用无“Microsoft Excel **.* Object Library” 5、Command控件 6、MsgBox控件 7、错误捕捉On Error Goto(Resume) 1）On Error GoTo 0   2）On Error Resume Next   3）On Error GoTo line 8、控件组 10、VB程序的调试 1）F8执行程序，单条执行   2）Ctrl+G可以显示或者关闭立即窗口   3）代码编辑器支持滚轮模式 20、VB函数 1）Mid、Right、Left函数 三、VB编程 1、模拟配网自动化主站系统 四、问题解决 1、打开VB都会出现配置CAD的窗口修复 2、改变图片的像素大小以适应背景大小 附录 1、软件常见的各种版本英文缩写
------------------------------------------------------------------------------------------------------------------
一、软件的下载与安装 1、软件下载 我的百度网盘搜索“VB6.0简体中文企业版” ---------------------------------------------------------- 2、软件安装 1）弹出"没有发现Acme安装程序" 把安装盘下setup文件夹中的所有内容复制到其上一级文件目录下，并将VB98ENT.STF文件复制并命名为acmsetup.STF，然后点击ACMSETUP.EXE安装即可。 ------------------------------- 2）退出VB6.0时显示Visual Basic已经停止工作 在菜单里面有个“外接程序”点击 选择“外界程序管理器” 把可用外接程序中的“Source Code Control”中的 在启动中加载 和 加载/预卸 前面的对钩 去掉 ，点击确定 本次关闭VB6.0还会出现 已停止工作 因为本次打开VB6.0还是要加载source code，修改之后 以后再打开关闭VB6.0就不会出现已停止工作了。
------------------------------------------------------------------------------------------------------------------ 二、软件的使用 1、VB输出可执行文件或安装包 简单的程序,就只要在"文件"菜单下的"生成",生成的EXE文件和你要用的数据库和其他外部文件一起移植到其他电脑上,就可以了。 复杂的程序,建议用"打包",打包完以后,在其他电脑上安装以后再用.打包方法：打开菜单栏“外接程序”-->“外接程序管理器”，选择“打包和展开向导”，选择“加载/卸载”，确定。 在“外接程序管理器”里找到“打包和展开向导”，打开“打包和展开向导”，再一步步进行打包就可以生成一个安装程序。
---------------------------------------------------------- 2、ComboBox 控件的使用 1）虽然通过ComboBox 控件可以显示、编辑和更新大多数标准类型数据库中的信息，但是 DBCombo 提供了更高级的数据访问特性。DBCombo 控件还支持一组与标准组合框控件不同的属性和方法。 2）有三种组合框样式。下拉式组合框、简单组合框、下拉式列表框。 3）在组合框中添加项目，应使用 AddItem 方法。 4）设计时添加项目，选定 List 属性选项并单击向下箭头后就可输入列表项目，然后按 CTRL+ENTER 组合键换到新的一行。只能将项目添加到列表的末尾。所以，如果要将列表按字母顺序排序，则应将 Sorted 属性设置为 True。 5）将 Sorted 属性设置为 True 之后，使用带有 index 参数的 AddItem 方法将导致不可预料的非排序结果。排序时不区分大小写；所以 "chardonnay" 和 "Chardonnay" 被看作一个词。 6）可在组合框中用 RemoveItem 方法删除项目。为了在组合框中删除所有列表项目，应使用 Clear 方法：Combo1.Clear 7）在运行时无论向控件的文本框部分输入了什么文本，Text 属性都与这个文本相对应。这可以是选定的列表选项，或者是用户在文本框中输入的字符串。 8）有了 List 属性就可访问列表中所有项目。Text1.Text = Combo1.List(2) 9）ListIndex 属性设置或返回控件中当前选定项目的索引值，而且只在运行时有效。对组合框的 ListIndex 属性进行设置也会触发控件的 Click 事件。如果未选定项目，或者用户在组合框中输入选项（样式 0 或 1）而不在列表中选择现有项目，则 ListIndex 为 –1。NewIndex 属性可用来跟踪列表中最后添加的项目的索引。 10）为了返回组合框中的项目数，应使用 ListCount 属性。 ---------------------------------------------------------- 3、MsComm串口控件 1）MsComm控件的添加
------------------------------- 2）MsComm控件的事件及基本属性 （1）事件 OnComm：通信控件只提供了一个事件，该事件的触发可以对串口的通信事件及错误进行处理。通 过对CommEvent 属性的判断可知当前的通信错误和事件，分别对每个CommEvent 值进行编程就完 成了对各个错误和事件的处理。如：CommEvent = MSCOMM-EV-SEND 表示发送事件。这些信息 可从VB 提供的常量文件CONSTANT. TXT中查出。 （2）属性 CommPort ：设置通信控件与哪个串口相连接，设置并返回通信口号，为字符型。 Setting ：设置通信的信息格式，为字符型。顺序为：波特率、校验、数据位、停止位。 PortOpen ：布尔型、开关通信口。 InputLen ：从接收缓冲区读取字符个数。 Input ，Output ：读取接收缓冲区或写入发送缓冲区字符。 以上五种属性对串口完成基本的设置和操作，下面的三种属性是描述如何利用VB 提供的事件驱 动机制来实现通 信。 CommEvent ：返回通信过程中产生的错误信息及事件，了解通信状况。 ①发送缓冲区中的字符数少于 SThreshold。ComEvReceive ②接收到 Rthreshold 个字符。在使用 Input 属性移去接收缓冲区中的数据之前，该事件将持续产生。ComEvCTS ③CTS 信号发生变化。ComEvDSR ④DSR 信号发生变化。该事件仅在 DSR 由 1 变为 0 时触发。ComEvCD ⑤CD 信号发生变化。ComEvRing ⑥检测到电话振铃。某些 UART（通用异步收发器）可能不支持本事件。ComEvEOF ⑦收到文件结束符（ASCII 字符 26）。 下列错误同样会触发 OnComm 事件，并且在 CommEvent 属性中写入相应的值。 SThreshold ：设置并返回不触发OnComm事件时发送缓冲区被允许的最少字符数。当缓冲区的字 符少于设置的值时，则触发OnComm事件，并把CommEvent 设为MSCOMMM—EV—SEND。当 SThreshold = 0则禁止发送触发OnComm 事件， 当SThreshold = 1 则发送缓冲区为空时就触发 OnComm事件。利用这一属性，就可完成发送数据后的一系列操作。如：对刚发送的数据进行处理 ，当串口是和MODEM通信时，发送完数据后可进行拆除线路联接、挂机等操作。 RThreshold ：设置并返回不触发OnComm事件时接收缓冲区被允许的最多字符数。当缓冲区的字 符多于设置的值时，则触发OnComm 事件，并把CommEvent 设为MSCOMM-EV-RECEIVE，当 RThreshold = 0则禁止接收触发OnComm 事件，当RThreshold = 1 则接收缓冲区有一个或更多 字符时就触发OnComm事件。利用这一属性，就可完成对串口接收数据的处理。 ---------------------------------------------------------- 4、添加引用无“Microsoft Excel **.* Object Library” 引用中根本找不到“Microsoft Excel **.* Object Library”
打开Office16安装目录选择所有文件




前述引用和部件的区别 "引用"一般是引用函数,这些函数一般封装在dll文件中的,在VB中看不到这些函数，像经常用的API函数，也包括自己封装的函数； "部件"一般是指控件，在VB可以看见这些控件，有一个图标,一般是ocx文件。
出现“找不到工程或库”

“工程-引用”列表中有失效的引用就会这样，所以将相应乱码的失效引用前面的对勾去掉。
---------------------------------------------------------- 5、Command控件 1）过程声明与同名事件或过程的描述不匹配 此情况出现在复制Command控件再修改，这时控件已成控件数组。 Private Sub Command1_Click(Index As Integer) 如果仍然用非控件数组的Click事件：Private Sub Command1_Click( ) 就会发生“过程声明与同名事件或过程的描述不匹配”这样的错误了。 解决：删除原先的控件再从“General”添加，不要再复制即可；或则将Command的Index属性是不是空白，如果有数值，把它设为空白。 ---------------------------------------------------------- 6、MsgBox控件 1）捷报：力度最轻 MsgBox("   操作成功！", vbOKOnly + vbInformation, "提示") ------------------------------- 2）选择：力度中等，需认真对待        If MsgBox("是否继续？", vbYesNo + vbQuestion, "选择") = MsgBoxResult.Ok Then             '//继续        Else             Exit Sub  '//否则退出，或做其它操作。        End If ------------------------------- 3）警告：力度最大，问题严重。需用户停止如今的操作。更改操作。         If MsgBox("电量不足，请尽快蓄电！", vbOKOnly + vbExclamation, "警示") = MsgBoxResult.Ok Then             '//继续         Else             Exit Sub         End If 在编程中，发现有些信息少数字描写叙述不清楚。字数多了以后发现重要信息易被淹没，用户较难找到重点。 此时可采用转行的方式，将最重要的简练写在第一行，其它内容转行详写。这时需用转行符（“vbCr”或“vbCrLf”）解决。 例：MsgBox("系统的基本数据未设定好,暂不支持上机操作。" & vbCrLf & "请联系管理员！", MsgBoxStyle.Exclamation, "提示")
最后，再看看一条MsgBox语句 If MsgBox("是否继续？", vbYesNo + vbQuestion + vbQuestion + vbMsgBoxSetForeground + vbDefaultButton1, "选择") = MsgBoxResult.Ok Then             '//继续         Else             Exit Sub  '//否则退出，或做其它操作         End If 上面的程序没有语法错误。中间以vb开头的keyword也没有顺序的要求，从这里能够看出使用非常easy。 以下对一些经常使用的进行整理： + vbAbort：弹出“中止”button + vbIgnore ：弹出“忽略”button + vbRetry ：弹出“重视”button MsgBoxResult.Abort：单击"中止"button MsgBoxResult.Ignore ：单击"忽略"button MsgBoxResult.Retry ：单击"重试"button ---------------------------------------------------------- 7、错误捕捉On Error Goto(Resume) 1）On Error GoTo 0 表示禁止当前过程中任何已启动的错误处理程序，测试发现用-1居然也可以，和0效果相同。执行本语句之后，如再碰到错误，则系统中断程序执行，弹出错误提示。 ------------------------------- 2）On Error Resume Next 说明当一个运行时错误发生时，控件转到紧接着发生错误的语句之后的语句，并在此继续运行。即出错不提示，继续运行。访问对象时要使用这种形式而不使用 On Error GoTo。 ------------------------------- 3）On Error GoTo line 启动错误处理程序，且该例程从必要的 line 参数中指定的 line 开始。line 参数可以是任何行标签或行号。如果发生一个运行时错误，则控件会跳到 line，激活错误处理程序。用这种语句是要自己写错误处理程序，特别是一些可以预料到的错误。指定的 line 必须在一个过程中，这个过程与 On Error 语句相同； 否则会发生编译时间错误。转到line后可以进行错误处理。错误处理程序中最后除了退出过程（Exit Sub）外，还可以执行： Resume：接着错误的地方执行，重试。  Resume Next：类似On Error Resume Next，忽略当前错误语句，执行下一语句 Resume <标号>：到标号那里去处理。
在处理错误之后使用 Err.Clear 来清除 Err 对象，例如，在对 On Error Resume Next 使用拖延错误处理时就可使用 Clear。每当执行下列语句时就会自动调用 Clear 方法： 任意类型的 Resume 语句 Exit Sub, Exit Function, Exit Property 任何 On Error 语句。 ---------------------------------------------------------- 8、控件组
如果已建立控件组又要取消，只要把其中的Index0.1.2……删除即可。 ---------------------------------------------------------- 10、VB程序的调试 1）F8执行程序，单条执行 ------------------------------- 2）Ctrl+G可以显示或者关闭立即窗口 （1）查看某个变量此时的值，输入：？变量 ＋回车，前提是设置断点或单步运行 （2）人为的给某变量赋值，输入：变量=值 + 回车 （3）在程序中打印需要显示在立即窗口中的变量，Debug.Print 变量
------------------------------- 3）代码编辑器支持滚轮模式 （1）百度云盘搜索“VB6IDEMouseWheelAddin.dll”文件并下载，放在C盘的windows文件夹下。 （2）Windows7或XP系统，在开始菜单的“运行”里面输入“regsvr32 c:\Windows\VB6IDEMouseWheelAddin.dll”
代码编辑器垂直滚动条随鼠标滚轮滚动 （3）打开vb6开发环境（随便打开一个都可以）， 点击菜单“外接程序”->“外接程序管理器”：
（4）在外接程序管理器窗体当中，选择“MouseWheel Fix”这一项，然后在右下方“加载行为”那里打钩“在启动中加载”和 “加载/卸载”两项，然后点击确定就可以了，这样使用VB6开发的软件的代码编辑器垂直滚动条都可以随鼠标滚轮而滚动了（无需重启VB6.0）：
---------------------------------------------------------- 20、VB函数 1）Mid、Right、Left函数 Mid（a,M,N)   从a字符串左起第M位下标开始取值（包含M位），共取N位字符！ 举例：设a="Visual Basic"  ，b=a.Mid(a,4,2)，返回：b="ua" ------------------------------- Right（a,M)   从右起第一位开始取值，向左取M位 举例：设a="Visual Basic"  ，b=a.Ritght(a,3)，返回：b="sic" 它只有一个参数，Right（a,M，N）的写法是错的！ ------------------------------- Left（a,N）   从左起第一位开始取值，向右取N位 举例：设a="Visual Basic"  ，b=a.Left(a,9)，返回：b="Visual Ba" 它也只有一个参数，Right（a,M，N）的写法是错的！ ------------------------------- 注： ①所有的取值函数都要把空格计算上  ②该函数第一位下标为：1
------------------------------------------------------------------------------------------------------------------ 三、VB编程 1、模拟配网自动化主站系统 业余编写的，此程序搜索百度网盘“模拟配网自动化主站系统”。 1）在部件中增加MSComm控制，方法同“3、串口控件MsComm” 2）增加状态档



------------------------------------------------------------------------------------------------------------------ 四、问题解决 1、打开VB都会出现配置CAD的窗口修复 电脑上安装了VB和AutoCAD，可能会出现此问题。

软件管家或直接百度Windows Installer CleanUp Utility下载安装 打开上面安装的程序，找到看到AutoCAD2007，然后Remove
---------------------------------------------------------- 2、改变图片的像素大小以适应背景大小

------------------------------------------------------------------------------------------------------------------ 附录 1、软件常见的各种版本英文缩写 V（Version）：即版本，通常用数字表示版本号。(如:EVEREST Ultimate v4.20.1188 Beta ) Build：用数字或日期标示版本号的一种方式。(如:VeryCD eMule v0.48a Build 071112) SP：Service Pack，升级包。(如:Windows XP SP 2/VistaSP 1/Windows7SP1) 授权和功能划分： Trial：试用版，通常都有时间限制，有些试用版软件还在功能上做了一定的限制。可注册或购买成为正式版 Unregistered：未注册版，通常没有时间限制，在功能上相对于正式版做了一定的限制。可注册或购买成为正式版。 Demo：演示版，仅仅集成了正式版中的几个功能，不能升级成正式版。 Lite：精简版。 Full version：完整版，属于正式版。 语言划分 SC： Simplified Chinese简体中文版。 CN： 简体中文版 GBK： 简体中文汉字内码扩展规范版。 TC： Traditional Chinese繁体中文版。 CHT： 繁体中文版 BIG5： 繁体中文大五码版。 EN： 英文版 Multilanguage： 多语言版 UTF8： Unicode Transformation Format 8 bit，对现有的中文系统不是好的解决方案。
开发阶段划分 α（Alpha）版：内测版，内部交流或者专业测试人员测试用。Bug较多，普通用户最好不要安装。 β（Beta）版：公测版，专业爱好者大规模测试用，存在一些缺陷，该版本也不适合一般用户安装。 γ（Gamma）版：相当成熟的测试版，与即将发行的正式版相差无几。 RC版：Release Candidate。RC 版。是 Release Candidate 的缩写，意思是发布倒计时，候选版本，处于Gamma阶段，该版本已经完成全部功能并清除大部分的BUG。到了这个阶段只会除BUG，不会对软件做任何大的更改。从Alpha到Beta再到Gamma是改进的先后关系，但RC1、RC2往往是取舍关系。 SR版：修正版或更新版，修正了正式版推出后发现的Bug。 Final版：正式版。
其他版本 Enhance： 增强版或者加强版属于正式版 Free： 自由版 Release： 发行版 有时间限制 Upgrade： 升级版 Retail： 零售版 Plus： 属增强版，不过这种大部分是在程序界面及多媒体功能上增强。 Preview： 预览版 Corporation & Enterprise：企业版 Standard： 标准版 Mini： 迷你版也叫精简版只有最基本的功能 Premium： 贵价版 Professional：专业版 Express： 特别版 Deluxe： 豪华版 Regged： 已注册版 Rip：是指从原版文件（一般是指光盘或光盘镜像文件）直接将有用的内容（核心内容）分离出来，剔除无用的文档，例如PDF说明文件啊，视频演示啊之类的东西，也可以算做是精简版吧…但主要内容功能是一点也不能缺少的！另：DVDrip是指将视频和音频直接从DVD光盘里以文件方式分离出来。 RTM： 这基本就是最终的版本，英文是 Release To Manufactur，意思是发布到生产商。 OEM： Original Equipment Manufacturer 是给电脑生产厂的版本，无需多说。 FPP： Full Packaged Product (FPP)/Retail 就是零售版（盒装软件），这种产品的光盘的卷标都带有"FPP"字样，比如英文WXP Pro的FPP版本的光盘卷标就是WXPFPP_EN，其中WX表示是Windows XP，P是Professional（H是Home），FPP表明是零售版本，EN是表明是英语。
------------------------------------------------------------------------------------------------------------------

• 点赞
• 收藏
• 分享
• 文章举报

liht1634 发布了41 篇原创文章 · 获赞 0 · 访问量 436 私信 关注