VB6.0使用汇总
Posted liht_1634
tags:
篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了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系统,在开始菜单的“运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是表明是英语。
------------------------------------------------------------------------------------------------------------------以上是关于VB6.0使用汇总的主要内容,如果未能解决你的问题,请参考以下文章
在VB6.0中,运行一个窗体时,放大该窗体的尺寸时将触发的事件是
vb6.0开发的上位机串口助手(自动识别电脑端口号支持文本十六进制发送)
使用VB6.0查找数组索引
如何使用vb6.0将数据从文本框插入到sql表
串口调试助手,VB6.0开发
串口调试助手,VB6.0开发