VB6.0使用汇总

Posted 2022-08-19 liht_1634

目录：

一、软件的下载与安装 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系统，在开始菜单的“运liht1634行”里面输入“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）版：内测版，内部交liht1634流或者专业测试人员测试用。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是表明是英语。 ------------------------------------------------------------------------------------------------------------------