来源：蜘蛛抓取(WebSpider)
时间：2018-05-17 03:19
标签：
结算时成绩中包含x和y
后使用快捷导航没有帐号？
只需一步，快速开始
扫一扫，访问微社区
请完成以下验证码
查看: 1986|回复: 24
【已解决】修改UCS老是提示非单一的UCS Y轴，啥情况？
在线时间 小时
签到天数: 65 天连续签到: 1 天[LV.6]常住居民II
马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。
才可以下载或查看，没有帐号？
本帖最后由 taocitc 于
22:16 编辑
QQ截图50.png (1.71 KB, 下载次数: 0)
20:14 上传
QQ截图22.png (7.53 KB, 下载次数: 0)
20:14 上传
生成的图纸老是提示这个，XAxis和YAxis的值应该怎么取？
acUCSTblRec.Origin = pt1;
acUCSTblRec.XAxis = new Vector3d(1, 0, 0);
acUCSTblRec.YAxis = new Vector3d(0, 1, 0);
这样就没事？
“可以使用 UCSTable 对象的 Add 方法创建新的用户坐标系。这个方法需要输入四个值：原点的坐标、X 轴和 Y 轴上的坐标以及 UCS 的名称”
X轴和Y轴是指世界坐标系的值吗？求高手解答
上一篇：下一篇：
本文地址&<button type="submit" class="pn" onclick="setCopy('【已解决】修改UCS老是提示非单一的UCS Y轴，啥情况？\nhttp://bbs.xdcad.net/thread--1.html', '本文地址已复制到剪贴板用快捷键 Ctrl+V 粘贴到 QQ、MSN 里推荐给你的好友吧！')">推荐给好友
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
在线时间 小时
签到天数: 996 天连续签到: 17 天[LV.10]以坛为家III
凡是&&提到 轴 的，都应该是单位向量，你试下单位向量行吗？
试过了，果然是需要换成单位向量，谢谢&
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
在线时间 小时
签到天数: 65 天连续签到: 1 天[LV.6]常住居民II
凡是&&提到 轴 的，都应该是单位向量，你试下单位向量行吗？
试过了，果然是需要换成单位向量，谢谢
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
在线时间 小时
签到天数: 996 天连续签到: 17 天[LV.10]以坛为家III
你可以看下系统变量 ucsxdir ,ucsydir的值
命令: (getvar &ucsxdir&)
(1.0 0.0 0.0)
命令: (getvar &ucsydir&)
(0.0 1.0 0.0)
复制代码
是单位向量。
[attachimg]54061[/attachimg]
请问你知道如何把空间任意直线的坐标系做成这种吗？&
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
在线时间 小时
签到天数: 65 天连续签到: 1 天[LV.6]常住居民II
你可以看下系统变量 ucsxdir ,ucsydir的值
QQ截图33.png (1.66 KB, 下载次数: 0)
22:25 上传
请问你知道如何把空间任意直线的坐标系做成这种吗？
帮你贴个 和 命令 UCS+V作用一样的C#代码，你参考下如果修改UCS&
你用C#吧？
参考下ARX的AcDbUCSTableRecord类方法
设置下 原点、算出X轴，算出Y轴 就应该行了。&
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
在线时间 小时
签到天数: 996 天连续签到: 17 天[LV.10]以坛为家III
请问你知道如何把空间任意直线的坐标系做成这种吗？
你用C#吧？
参考下的AcDbUCSTableRecord类方法
AcDbUCSTableRecord::setOrigin Function void
setOrigin(
const AcGePoint3d& newOrigin);
newOrigin Input new origin point (in WCS coordinates) for the UCS
Sets the AcDbUCSTableRecord to use newOrigin as the UCS origin point for the UCS it represents. newOrigin must be in WCS coordinates.
The newOrigin value is used for DXF group code 10.
AcDbUCSTableRecord::setXAxis Function void
const AcGeVector3d& xAxis);
xAxis Input new X axis vector (in WCS coordinates) for the UCS
Sets the AcDbUCSTableRecord to use xAxis as the new X axis for the UCS it represents. xAxis must be in WCS coordinates and must have non-zero in length.
The xAxis value is used for DXF group code 11.
AcDbUCSTableRecord::setYAxis Function void
const AcGeVector3d& yAxis);
yAxis Input new Y axis vector (in WCS coordinates) for the UCS
Sets the AcDbUCSTableRecord to use yAxis as the new Y axis for the UCS it represents. yAxis must be in WCS coordinates and must be non-zero in length.
The yAxis value is used for DXF group code 12.
设置下 原点、算出X轴，算出Y轴 就应该行了。
看来没有别的办法，只能算x，y轴了，可是x和y轴的坐标算出来应该是一个圆，难道要随便指定一个点当x或是y？&
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
在线时间 小时
签到天数: 65 天连续签到: 1 天[LV.6]常住居民II
你用C#吧？
看来没有别的办法，只能算x，y轴了，可是x和y轴的坐标算出来应该是一个圆，难道要随便指定一个点当x或是y？
上面我给你贴的代码里面有向量操作的代码， 下面是两个点减法，得到向量。
比如： Vector3d direction = (view.Target - view.Position); 得到方向向量。再normalize得到单位向量。
你查下Vector3d类下面的方&
你得到两个点后，你可以用向量的方法，求向量，在单位化，都有现成的函数。
看下ARX的帮助 AcGeVector3d类下面的方法。
我不用C#，只是给你个提示，语言都是相通的。&
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
在线时间 小时
签到天数: 996 天连续签到: 17 天[LV.10]以坛为家III
请问你知道如何把空间任意直线的坐标系做成这种吗？
帮你贴个 和 命令 UCS+V作用一样的C#代码，你参考下如果修改UCS
///////////////////////////////////////////////////////////////////////////////////////////////////
// Use: Sync UCS with Current view like command UCS V
//
///////////////////////////////////////////////////////////////////////////////////////////////////
[CommandMethod(&UcsV&)]
public static void UcsV()
{
& & Document doc = Application.DocumentManager.MdiActiveD
& & Database db = doc.D
& & Editor ed = doc.E
& & Autodesk.AutoCAD.GraphicsSystem.Manager mng = doc.GraphicsM
& & short cvport = (short)Application.GetSystemVariable(&CVPORT&);
& & Autodesk.AutoCAD.GraphicsSystem.View view = mng.GetGsView(cvport, true);
& & Vector3d direction = (view.Target - view.Position);
& & direction = direction.MultiplyBy(1 / direction.Length);
& & Vector3d upVector = view.UpV
& & upVector = upVector.MultiplyBy(1 / upVector.Length);
& & Vector3d xAxis = direction.CrossProduct(upVector);
& & Matrix3d ucs = Matrix3d.AlignCoordinateSystem(
& && &&&new Point3d(0, 0, 0), Vector3d.XAxis, Vector3d.YAxis, Vector3d.ZAxis,
& && &&&new Point3d(0, 0, 0), xAxis, upVector, direction);
& & ed.CurrentUserCoordinateSystem =
}
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
在线时间 小时
签到天数: 996 天连续签到: 17 天[LV.10]以坛为家III
看来没有别的办法，只能算x，y轴了，可是x和y轴的坐标算出来应该是一个圆，难道要随便指定一个点当x或是y ...
你得到两个点后，你可以用向量的方法，求向量，在单位化，都有现成的函数。
看下的帮助 AcGeVector3d类下面的方法。
我不用C#，只是给你个提示，语言都是相通的。
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
在线时间 小时
签到天数: 996 天连续签到: 17 天[LV.10]以坛为家III
看来没有别的办法，只能算x，y轴了，可是x和y轴的坐标算出来应该是一个圆，难道要随便指定一个点当x或是y ...
上面我给你贴的代码里面有向量操作的代码， 下面是两个点减法，得到向量。
比如： Vector3d direction = (view.Target - view.Position); 得到方向向量。再normalize得到单位向量。
你查下Vector3d类下面的方法。
我想了下，通过计算得到xy轴太复杂，是不是可以通过旋转任意ucs得到指定方向的ucs？&
这段代码我先慢慢消化消化，因为我用的是teigha,有些写法还不太一样，求Z轴，我今天写了一天的方程式……总觉得不对劲，不能这么麻烦&
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
在线时间 小时
签到天数: 972 天连续签到: 1 天[LV.10]以坛为家III
用 SDK 中的函数去计算轴，否则可能因为浮点误差造成 ACAD 认为不是正交坐标系的坐标轴
嗯。谢谢提醒&
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
在线时间 小时
签到天数: 65 天连续签到: 1 天[LV.6]常住居民II
上面我给你贴的代码里面有向量操作的代码， 下面是两个点减法，得到向量。
比如： Vector3d direction ...
这段代码我先慢慢消化消化，因为我用的是teigha,有些写法还不太一样，求Z轴，我今天写了一天的方程式……总觉得不对劲，不能这么麻烦
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
在线时间 小时
签到天数: 65 天连续签到: 1 天[LV.6]常住居民II
用 SDK 中的函数去计算轴，否则可能因为浮点误差造成 ACAD 认为不是正交坐标系的坐标轴
嗯。谢谢提醒
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
在线时间 小时
签到天数: 65 天连续签到: 1 天[LV.6]常住居民II
上面我给你贴的代码里面有向量操作的代码， 下面是两个点减法，得到向量。
比如： Vector3d direction ...
我想了下，通过计算得到xy轴太复杂，是不是可以通过旋转任意ucs得到指定方向的ucs？
怎么会复杂呢？ 轴上两点你不好求吗？&
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
在线时间 小时
签到天数: 996 天连续签到: 17 天[LV.10]以坛为家III
我想了下，通过计算得到xy轴太复杂，是不是可以通过旋转任意ucs得到指定方向的ucs？
怎么会复杂呢？ 轴上两点你不好求吗？
昨天你贴的代码没看明白
我想做的是空间任意两点创建实体，需要用到这两点在ucs的z轴，现在已知的就是这任意两点，想不明白怎么求&
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
Powered byVB基础教程－1
我的图书馆
VB基础教程－1
VB基础教程首先提供VB6.0下载地址：
Visual Basic的基本概念
1．1 & & Visual Basic 概述
1.Visual Basic是什么
Visual Basic（简称VB）是Microsoft公司开发的一种通用的基于对象的程序设计语言。
“Visual” 指的是开发图形用户界面 (GUI) 的方法——不需编写大量代码去描述界面元素的外观和位置，而只要把预先建立的对象add到屏幕上的一点即可。
“Basic”指的是 BASIC (Beginners All-Purpose Symbolic Instruction Code)
语言，一种在计算技术发展历史上应用得最为广泛的语言。Visual Basic 在原有 BASIC
语言的基础上进一步发展，至今包含了数百条语句、函数及关键词，其中很多和 Windows GUI 有直接关系。专业人员可以用 Visual
Basic 实现其它任何 Windows 编程语言的功能，而初学者只要掌握几个关键词就可以建立实用的应用程序。Visual Basic
Scripting Edition (VBScript) 是广泛使用的脚本语言，它是 Visual Basic
语言的子集，可嵌入HTML语言中，用于网页设计，如ASP（Active Server Page）文件。
VB简单易学，通用性强，用途广泛。
2. VB的功能
VB可以用于可以开发多媒体、数据库、网络、图形等方面的应用程序。
¨ & && 数据访问特性允许对包括 Microsoft SQL Server 和其它企业数据库在内的大部分数据库格式建立数据库和前端应用程序，以及可调整的服务器端部件。
¨ & && 有了 ActiveX(TM) 技术就可使用其它应用程序提供的功能，例如 Microsoft Word 字处理器，Microsoft Excel 电子数据表及其它 Windows 应用程序。
¨ & && Internet 能力强大，很容易在应用程序内通过 Internet 或 intranet访问文档和应用程序，或者创建 Internet 服务器应用程序。
¨ & && 已完成的应用程序是使用Visual Basic 虚拟机真正 .exe 文件，可以自由发布。
3. & &VB的发展
VB是伴随Windows操作系统而发展的，在中国使用较广的版本有VB4.0、VB5.0、VB6.0。
VB4.0是为配合WIN95的问世于1995年推出的，既可用于编写WIN3.X平台的16位应用程序也可编写WIN95平台的32位应用程
序；VB5.0主要用于编写WIN95平台的32位应用程序，较之VB4.0主要扩展了数据库、ActiveX和Internet方面的功能；VB6.0
是与WIN98配合于1998年推出的，进一步加强了数据库、Internet和创建控件方面的功能。
4. & &VB中几个常用术语
工程（Project）： 是指用于创建一个应用程序的文件的集合。
对象（Object）： 可控制的某个东西，VB中主要有两类对象：窗体和控件。
窗体（Form）： &应用程序的用户界面，即windows。 &
控件（Control）： 指的是各种按钮、标签、文本框等。
属性（Property）：是指对象的特征，如大小、标题或颜色。
ActiveX ：ActiveX 是基于 Component Object Model (COM) 的可视化控件结构的商标名称。它是一种封装技术，提供封装 COM 组件并将其置入应用程序（如Web 浏览器）的一种方法。
Components Object Model (COM)： 是软件组件互相通讯的一种方式。它是一种二进制和网络标准，允许任意两个组件互相通讯，而不管它们是在什么计算机上运行（只要计算机是相连的），不管各计算机运行的是什么操作系统（只要该操作系统支持 COM），也不管该组件是用什么语言编写的。
5. VB的系统特性
（1）工程限制
1）代码限制：
可被加载到窗体、类或标准模块的代码总数限于 65,534 行。一行代码限于 1023 个字节。在一行中的实际文本之前最多只能有 256 个空格的前导，在一个逻辑行中最多只能有 25 个续行符 ( _)。
2）过程、类型和变量
对每个模块的过程数没有限制。每个过程可包含至多 64K 的代码。如果过程或模块超过这一限制，Visual Basic 便产生编译时间错误。如果遇到这种错误，可将特别大的过程分割成若干个较小的过程，或将模块级声明移到另一模块，来避免此类错误发生。
Visual Basic 用表来保存代码中的标识符名（变量、过程、常量等）。每个表限于 64K。
3）动态链接库声明表
每个窗体和代码模块使用一个描述动态链接库入口点的结构的表。每个结构约 40 个字节，表的大小限于 64K，形成每个模块大约有 1500 个声明。
4）工程名表
整个应用程序用一张包含所有名称的表。这些名称包括：
常量名 、 变量名 、 自定义的类型定义名、 模块名、 DLL 过程声明名。
对工程名表总大小没有限制，但是区分大小写的条目不得超过 32K。如果超过了 32K 的限制，可以在不同的模块中重新使用 private 标识符以限制区分大小写的条目数到达 32K。
在不同的模块中每引用一个标识符，便在输入表中创建一个条目。每一个这样的入口最小是 24 字节，但限于 64K，这样每个模块大约可以有 2000 个引用。
6）模块条目表
该表中每个模块最多达 125 个字节，但有 64K 的总限制，这样每个工程大约可以产生 400 个模块。
VB 中的变量名不多于 255 个字符，而窗体、控件、模块和类名不多于 40 个字符。
（2）工程文件格式 & &
VB 在创建和编译工程时要产生许多文件，分为：设计时文件、杂项开发文件和运行时文件。
设计时文件是工程的建造块，例如基本模块 (.bas) 和窗体模块 (.frm)。
杂项文件是由 Visual Basic 开发环境中的各种不同的进程和函数产生的，例如打包和展开向导从属文件 (.dep)。 &
开发应用程序时会产生各种设计时文件和其它杂项文件，如下表所列：
二进制窗体文件
Visual Basic 工程文件
用户控件的二进制文件
二进制属性页文件
活动的设计器的高速缓存
用户控件文件
打包和展开向导 CAB 信息文件
远程自动化类型库文件
打包和展开向导从属文件
Visual Basic 组工程文件
ActiveX 文档窗体文件
控件许可文件
ActiveX 文档二进制窗体文件
部署向导脚本文件
活动的设计器文件
远程自动化注册文件
活动的设计器的二进制文件
Visual Basic 工程工作空间文件
加载错误的日志文件
向导发射文件
控件类型库缓存文件
WebClass HTML 模板
属性页文件& &
编译应用程序时，所有必须的设计时文件都被包括在运行时可执行文件中。运行时文件如下表所列：
运行中的 ActiveX 部件
可执行文件或 ActiveX 部件
ActiveX 控件
ActiveX 文档状态文件
WebClass HTML 模板
1．2 & & VB 6.0 的集成开发环境简介& &VB 集成开发环境 (IDE——Integrated Developing Environment ) 由以下元素组成：
1． 标题栏
用于显示正在开发或调试的工程名和系统的工作状态（设计态、运行态、中止态）。
2． 菜单栏
570)this.width=570;" src="http://jsjx.hhit.edu.cn/vbweb/study/images/image002.jpg" src_cetemp="http://jsjx.hhit.edu.cn/vbweb/study/images/image002.jpg" onload="javascript:if(this.width>570)this.width=570;" align="absmiddle" border="0">&
& &用于显示所使用的 Visual Basic 命令。VB6.0标准菜单包括：
3． 工具栏
570)this.width=570;" src="http://jsjx.hhit.edu.cn/vbweb/study/images/image004.jpg" src_cetemp="http://jsjx.hhit.edu.cn/vbweb/study/images/image004.jpg" onload="javascript:if(this.width>570)this.width=570;" align="absmiddle" border="0">&
& &在编程环境下用于快速访问常用命令。缺省情况下，启动 VB后显示“标准”工具栏，附加的编辑、窗体设计和调试的工具 栏可以从“视图”菜单上的“工具栏”命令中移进或移出。
4． 窗体设计器
用来设计应用程序的界面。启动VB后，窗体设计器中自动出现一个名为Form1的空白窗体，可以在该窗体中添加控件、图形和图片等来创建所希望的外观，窗
体的外观设计好后，从菜单中选择“文件”→“保存窗体”→在保存对话框中给出合适的文件名（注意扩展名），并选择所需的保存位置→确定。需要再设计另一个
窗体时，单击工具栏上的“添加窗体”按钮即可。
5． 控件（工具）箱
由一组控件按钮组成，用于设计时在窗体中放置控件。除了缺省的工具箱布局之外，还可以通过从上下文菜单中选定“添加选项卡”并在结果选项卡中添加控件来创建自定义布局。
6． 弹出式（上下文）菜单
在要使用的对象上单击鼠标右键即可打开快捷菜单，其上会出现与当前对象相关的经常执行的操作，以加快操作速度。
7． 工程管理器窗口
用于浏览工程中所包含的窗体和模块，还可以从中查看代码、查看对象。
8． 属性窗口
是VB中一个比较复杂的窗口，其中列出了对选定窗体和控件的属性设置值。VB中正是通过改变属性来改变对象的特征，如大小、标题或颜色。
9． 对象浏览器
列出工程中有效的对象，并提供在编码中漫游的快速方法。可以使用“对象浏览器”浏览在 VB中的对象和其它应用程序，查看对那些对象有效的方法和属性，并将代码过程粘贴进自己的应用程序。
１０． 对象浏览器
右击窗体中的对象、从工程管理器中点“查看代码”按钮。
11．窗体布局窗口
Form Layout window允许使用表示屏幕的小图象来布置应用程序中各窗体的位置。
12． 立即、本地和监视窗口这些附加窗口是为调试应用程序提供的，它们只在 IDE 之中运行应用程序时才有效。
1．3 & & 面向对象程序设计的基本概念
1．基本术语
（1） & 对象和对象类& & 对象是代码和数据的组合，可以作为一个单位来处理。对象可以是应用程序的一部分，比如可以是控件或窗体。整个应用程序也是一个对象。在 VB中可能用到的几种类型的对象：
窗体上的控件，象命令按钮和框架，它们都是对象。
Visual Basic 工程中的每一个窗体都是独立的对象。
数据库是对象，并且还包含其他对象，如字段、索引等。
Microsoft Excel 中的图表是对象。 & &
VB中的每个对象都是用类定义的。用饼干模子和饼干之间的关系作比，就会明白对象和它的类之间的关系。饼干模子是类。它确定了每块饼干的特征，比如大小和
形状。用类创建对象,对象就是饼干。类是面向对象程序设计的核心技术，可以理解成一种定义了对象行为和外观的模板；把对象看作是类的原原本本的复制品，
类具有继承性、封装性、多态性、抽象性。
（2） & 属性
属性是对对象特性的描述，VB为每一类对象都规定了若干属性，设计中可以改变具体对象的属性值。比如窗体的背景颜色、高度与宽度。
（3） & 事件（Event）& & &事件是发生在对象上的动作。事件的发生不是随意的，某些事件仅发生在某些对象上。
在VB中事件的调用形式是：
Private Sub对象名_事件名
（事件内容）
End Sub
(4) 方法（Method）& 方法指的是控制对象动作行为的方式。它是对象本身内含的函数或过程，它也是一个动作，是一个简单的不必知道细节的无法改变的事件，但不称作事件；同样，方法也不是随意的，一些对象有一些特定的方法。在VB里方法的调用形式是：
& 对象名．方法名
2． 属性、方法和事件之间的关系& VB 对象具有属性、方法和事件。属性是描述对象的数据；方法告诉对象应做的事情；事件是对象所产生的事情，事件发生时可以编写代码进行处理。& & VB 的窗体和控件是具有自己的属性、方法和事件的对象。可以把属性看作一个对象的性质，把方法看作对象的动作，把事件看作对象的响应。& &日常生活中的对象，如小孩玩的气球同样具有属性、方法和事件。气球的属性包括可以看到的一些性质，如它的直径和颜色。其它一些属性描述气球的状态（充气的或未充气的）或不可见的性质，如它的寿命。通过定义，所有气球都具有这些属性；这些属性也会因气球的不同而不同。& & 气球还具有本身所固有的方法和动作。如：充气方法（用氦气充满气球的动作），放气方法（排出气球中的气体）和上升方法（放手让气球飞走）。所有的气球都具备这些能力。& &气球还有预定义的对某些外部事件的响应。例如，气球对刺破它的事件响应是放气，对放手事件的响应是升空。& &在VB程序设计中，基本的设计机制就是：改变对象的属性、使用对象的方法、为对象事件编写事件过程。程序设计时要做的工作就是决定应更改哪些属性、调用哪些方法、对哪些事件作出响应，从而得到希望的外观和行为。
3．事件驱动模型& & 在传统的或“过程化”的应用程序中，应用程序自身控制了执行哪一部分代码和按何种顺序执行代码。从第一行代码执行程序并按应用程序中预定的路径执行，必要时调用过程。&
在事件驱动的应用程序中，代码不是按照预定的路径执行，而是在响应不同的事件时执行不同的代码片段。事件可以由用户操作触发、也可以由来自操作系统或其它
应用程序的消息触发、甚至由应用程序本身的消息触发。这些事件的顺序决定了代码执行的顺序，因此应用程序每次运行时所经过的代码的路径都是不同的。&
&因为事件的顺序是无法预测的，所以在代码中必须对执行时的“各种状态”作一定的假设。当作出某些假设时（例如，假设在运行来处理某一输入字段的过程之
前，该输入字段必须包含确定的值），应该组织好应用程序的结构，以确保该假设始终有效（例如，在输入字段中有值之前禁止使用启动该处理过程的命令按钮）。&
&在执行中代码也可以触发事件。例如，在程序中改变文本框中的文本将引发文本框的 Change 事件。如果 Change
事件中包含有代码，则将导致该代码的执行。如果原来假设该事件仅能由用户的交互操作所触发，则可能会产生意料之外的结果。正因为这一原因，所以在设计应用
程序时理解事件驱动模型并牢记在心是非常重要的。
4．交互式开发& & 传统的应用程序开发过程可以分为三个明显的步骤：编码、编译和测试代码。但是 Visual Basic 与传统的语言不同，它使用交互式方法开发应用程序，使三个步骤之间不再有明显的界限。& &VB在编程者输入代码时便进行解释，即时捕获并突出显示大多数语法或拼写错误。看起来就象一位专家在监视代码的输入。& & 除即时捕获错误以外，VB 也在输入代码时部分地编译该代码。当准备运行和测试应用程序时，只需极短时间即可完成编译。如果编译器发现了错误，则将错误突出显示于代码中。这时可以更正错误并继续编译，而不需从头开始。& &由于 VB的交互特性，代码运行的效果可以在开发时进行测试，而不必等到编译完成以后。
1．4 & & 利用VB开发应用程序的一般步骤
一个VB程序也称为一个工程，由窗体、标准模块、自定义控件及应用所需的环境设置组成。开发步骤一般如下：
1． 创建程序的用户界面
2． 设置界面上各个对象的属性
3． 编写对象响应事件的程序代码
4． 保存工程
5． 测试应用程序，排除错误
6． 创建可执行程序
1．5 & & 创建VB程序示例
实例名称：VB欢迎你！
570)this.width=570;" src="http://jsjx.hhit.edu.cn/vbweb/study/images/image006.jpg" src_cetemp="http://jsjx.hhit.edu.cn/vbweb/study/images/image006.jpg" onload="javascript:if(this.width>570)this.width=570;" align="absmiddle" border="0">
1．创建程序的用户界面
2．设置界面上各个对象的属性
&H00C0E0FF&&
&H00FF0000&&
欢迎你学习VB！！&
&H000000FF&&
隶书、二号&
True （自动调整外框大小）&
0-Transparent ( 透明)
编写对象响应事件的程序代码
双击各对象，在相应的代码窗口里输入需要的代码。
命令按钮的单击事件
Private Sub Command1_Click() &
Option1.Visible = True
Option2.Visible = True
Label1.ForeColor = #0000ff
Label1.Caption = " & &？ &？ &？"
窗体的单击事件
Private Sub Form_Click() & && &
Form1.Picture = LoadPicture("d:\sj\abc.jpg")
Option1.Visible = False
Option2.Visible = False
Label1.ForeColor = #ff0000
Label1.Caption = "预祝大家成功，干杯！"
窗体的双击事件
Private Sub Form_DblClick() & &
Form1.Picture = LoadPicture("")
Label1.Caption = " &欢迎你学习VB！！"
选项按钮1的单击事件
Private Sub Option1_Click() & &
Label1.Caption = "看清楚 听明白 记下来"
选项按钮2的单击事件
Private Sub Option2_Click() & &
Label1.Caption = "多上机 勤思考 善提问"
570)this.width=570;" src="http://jsjx.hhit.edu.cn/vbweb/study/images/image007.jpg" src_cetemp="http://jsjx.hhit.edu.cn/vbweb/study/images/image007.jpg" onload="javascript:if(this.width>570)this.width=570;" align="absmiddle" border="0">&4．保存工程
（1）从文件菜单中选择保存窗体，将窗体保存成vbwelcomeyou . frm & （2）从文件菜单中选择保存工程，将工程保存成vbwelcomeyou . vbp
5．测试应用程序，排除错误& &根据设想的效果调试程序，直到满足要求为止。
6．创建可执行程序& 从文件菜单中选择 生成vbwelcomeyou . exe ，既可生成一个可执行文件。
注意：设计中遇到问题可以查阅MSDN的帮助文件。
re:[b]第二章 [/b...
第二章 & && && VB的界面设计
2.1 &VB用户界面设计基础
1. 概述& &界面的设计有两步：先绘制控件，然后确定控件属性。
绘制控件：在工具箱里单击想画的控件，在窗体里按下鼠标并拖曳，然后松开鼠标即可。确定属性：先选中控件，然后按F4键或单击工具栏上的属性窗口进入属性（Properties）窗口，再在属性窗口中找到要设置的属性并进行设置。
2. 常用属性的设置
（1）Name属性& &对象都有名字，计算机把名字看成对象于对象之间的根本差异，因此在同一窗体里不许出现重名的情况（除非这是一个控件数组），且名字不得超过40个字。&
&在简单的程序里，给控件命名不是很必要，完全可以使用控件Name属性的缺省值。例如Text1。但在有几十个控件的复杂窗体里，就很难区分它们。所
以，VB推荐由三个小写字母的前缀和一个第一个字母为大写的描述性单词组成的名字。例如cmdMyButton是一个命令按钮（前缀是cmd）
推荐的前缀
确认框（Check Box）
chkCareerChioce &
组合框（Combo Box）
cboCrimesCommitted &
命令钮（Command Button）
数据库控件（Data Control）
datTopSecretInfo &
目录列表框（Directory List Box）
驱动器列表框（Drive List Box）
drvHardDisk &
文件列表框（File List Box）
filDocuments &
窗体（Form）
frm1040Tax &
框架（Frame）
fraGroupButtons &
水平滚动条（Horizontal Scroll Bar）
hsbTemperature &
图形（Image）
imgPrettyDrawing &
标签（Label）
lblFakeName &
线（Line）
linBorder &
列表框（List Box）
lstCandidates &
菜单（Menu）
mnuHamAndEggs &
选项钮（Option Button）
optStation101 &
图形框（Picture Box）
picPrettyPicture &
几何图形（Shape）
shpUpOrShipOut &
文本框（Text Box）
txtWarning &
垂直滚动条（Vertical Scroll Bar）
vsbMoneyRaised
（2）Caption属性& & &Caption即标题，是可以在对象外观上直接看见的文本，可以长达255字符，包括空格和标点符号，比如一个叫cmdOk的命令钮，它的Caption属性就可以是“Ok”。 注意：并不是所有的对象都有此属性，比如文本框、图片框、线条等就没有。
& &为按钮设置热键：在设置Caption属性时，在需要加下划线的字母前加上 “&” 符号，例如 “&File”，输出的就是“File”，这样就可以通过按ALT键和标题上那个带下划线的字母来选取它了, 不必为此编任何代码。
Name和 caption的比较：
1） Name是系统用来识别对象的，编程时需要用它来指代各对象；Caption是给用户看的，提示用户该对象的作用；
2） Name可以采用系统默认的名称，但Caption应该根据实际情况改成意义明了的名词；
3）所有对象都有Name，但不一定都有Caption；
（3）Top，Left属性& & 这两个属性决定对象的位置。只有两种情况需要在属性窗口里设置这两个属性：第一种是用户没有鼠标，第二种是程序员需要十分精确地设定这两个值。当选中对象，单击并拖曳它的时候，便在修改这两个值了。
570)this.width=570;" src="http://jsjx.hhit.edu.cn/vbweb/study/images/image021.gif" src_cetemp="http://jsjx.hhit.edu.cn/vbweb/study/images/image021.gif" onload="javascript:if(this.width>570)this.width=570;" align="absmiddle" border="0">
（4）Height，Width属性& & 这两个属性决定了对象的大小，当选中控件时，它周围出现八个小黑方块，把鼠标指向这些方块，鼠标指针将变成一个双向的箭头，这时按下鼠标并拖曳它，即可改变控件的大小，也就改变了Height，Width属性。
2.2 &创建窗体
1. & &窗体的属性
（1） & && && &常用属性简介
系统识别窗体的标识名，一个窗体名必须以一个字母开头，可包含数字和下划线，但不能包含空格和标点符号。
出现在窗体标题栏中的文本内容
这个属性是用户经常要使用的一种属性。当用户的应用程序在工具条上最小化或在Windows桌面上变为一个独立应用程序时，该属性决定将采用何种图标，窗体控制框里的图标也由它决定。
窗体背景色
可以从属性框里弹出调色板，选择所需要的颜色
窗体前景色
窗体上打印文字的颜色
BorderStyle
这个属性决定了窗体边框的样式，共有6种属性值。改变窗体的BordrStyle属性后，窗体在屏幕上没有变化，它只在运行时才变为所要求的样子。
这个属性用来决定控件是否采用三维效果
ControlBox
控件按钮控件按钮
用来决定是否采用 控件框的属性，仅在程序运行时才有效。
用来改变该窗体上显示信息的字体、字型和字号，它控制着直接在窗体上打印的文本显示。
该属性决定窗体是否可见, 默认情况下是可见的。错误地改变其值是很危险的，窗体会从眼前消失，
WindowState
指定窗体在运行时的三种状态：正常、最小化、最大化。
默认值为True，决定窗体能否被访问。
Left、Top、Height、Width
左边距、顶边距、高度、宽度
决定窗体在屏幕上的位置及窗体大小。
(2)设置属性的方法
1）在设计态通过属性窗口设置
直接在属性窗口中选择或输入既可。
2）在程序代码中改变属性值
代码中的格式为： &对象名 . 属性 = 属性值
例：Form1.BackColor=RGB（255，0，0）
2. & &窗体的常用方法
（1）Hide方法& & 用以隐藏 MDIForm 或 Form 对象，但不能使其卸载。
语法：object.Hide
object 所在处代表一个对象表达式，其值为“应用于”列表中的一个对象。如果省略 object，则带有焦点的窗体就认为是该 object。
说明：
¨ & && && 隐藏窗体时，它就从屏幕上被删除，并将其 Visible 属性设置为 False。
用户将无法访问隐藏窗体上的控件，但是对于运行中的 Visual Basic 应用程序，或对于通过 DDE 与该应用程序通讯的进程及对于
Timer 控件的事件，隐藏窗体的控件仍然是可用的。
¨ & && && 窗体被隐藏时，用户只有等到被隐藏窗体的事件过程的全部代码执行完后才能够与该应用程序交互。
¨ & && && 如果调用 Hide 方法时窗体还没有加载，那么 Hide 方法将加载该窗体但不显示它。
（2）Move方法& & &用以移动 MDIForm、Form 或控件。
语法：object . Move &left, top, width, height
Move 方法的语法包含下列部分：
可选的。一个对象表达式，其值为“应用于”列表中的一个对象。如果省略 object，带有焦点的窗体缺省为 object。
必需的。单精度值，指示 object 左边的水平坐标 (x-轴)。
可选的。单精度值，指示 object 顶边的垂直坐标 (y-轴)。 &
可选的。单精度值，指示 object 新的宽度。
可选的。单精度值，指示 object 新的高度。
说明：只有 left 参数是必须的。但是，要指定任何其它的参数，必须先指定出现在语法中该参数前面的全部参数。例如，如果不先指定 left 和 top 参数，则无法指定 width 参数。任何没有指定的尾部的参数则保持不变。
（3）Print 方法& & 在 Immediate 窗口中显示文本。
[b]语法：object . Print [outputlist]
[/b]Print 方法的语法具有下列对象限定符和部分：
必需的。对象表达式，其值为“应用于”列表中的对象。
outputlist
可选的。要打印的表达式或表达式的列表。如果省略，则打印一空白行。
outputlist 参数具有以下语法和部分：
{Spc(n) | Tab(n)} expression charpos
可选的。用来在输出中插入空白字符，这里，n 为要插入的空白字符数。
可选的。用来将插入点定位在绝对列号上，这里，n 为列号。使用无参数的 Tab(n) 将插入点定位在下一个打印区的起始位置。
expression
可选。要打印的数值表达式或字符串表达式。
可选。指定下个字符的插入点。使用分号 (;) 直接将插入点定位在上一个被显示的字符之后。使用 Tab(n) 将插入点定位在绝对列号上。使用无参数的 Tab 将插入点定位在下一个打印区的起始位置。如果省略 charpos，则在下一行打印下一字符。
说明：
¨ &可以用空白或分号来分隔多个表达式。
¨ &对系统指定的国别设置，用小数点分隔符将所有打印到 Immediate 视窗的数据正确格式化。关键字要用适用于主应用程序的语言输出。
¨对于 Boolean 数据，或者打印 True 或者打印 False。根据主机应用程序的地区设置来翻译 True 和 False 关键字。
¨使用系统能识别的标准短日期格式书写 Date 数据。当日期或时间部件丢失或为零时，只书写已提供的部件。
¨ 如果 outputlist 数据是 Empty，则无内容可写。但是，如果 outputlist 数据是 Null，则输出 Null。在输出 Null 关键字时，要把关键字正确翻译出来。
¨ 要把错误数据作为 Error errorcode 输出。在输出 Error 关键字时，要把关键字正确翻译出来。
¨如果在具有缺省显示空间的模块外使用此方法，则需要 object。例如，如果没有指定对象就在标准模块上调用此方法，则将导致错误发生，但是，如果在窗体模块上进行调用，则会在窗体上显示“outputlist”。
注意： 因为 Print 方法是按照字符比例进行打印，所以字符数与字符所占据的宽度固定的列的数目无关。例如，像 “W”
这样的宽字母占据的宽度超过一固定列宽，而像 "i"
这样的窄字母占据的宽度则较小。考虑到要使用比平均字符更宽的空间，表列一定要留有足够余地。另外，也可以使用固定间距的字体（像 Courier
字体）来确保每一字符均只占一列。
（4）PrintFrom方法
用以将 Form 对象的图象逐位发送给打印机。
语法：object.PrintForm
说明：PrintForm 将打印 Form 对象的全部可见对象和位图。在绘制图形时，如果 AutoRedraw 属性为 True，则在运行时PrintForm 将打印 Form 对象或 PictureBox 控件上的图形。
¨PrintForm 所使用的打印机是由操作系统的控制面板中的设置来决定。
（5） Refresh方法
强制全部重绘一个窗体或控件。
语法：object.Refresh
说明：在下列情况下使用 Refresh 方法：
¨在另一个窗体被加载时显示一个窗体的全部。
¨更新诸如 FileListBox 控件之类的文件系统列表框的内容。
¨ 更新 Data 控件的数据结构。
Refresh 方法不能用于 MDI 窗体，但能用于 MDI 子窗体。不能在 Menu 或 Timer 控件上使用 Refresh 方法。& & 通常，如果没有事件发生，窗体或控件的绘制是自动处理的。但是，有些情况下希望窗体或控件立即更新。例如，如果使用文件列表框、目录列表框或者驱动器列表框显示当前的目录结构状态，当目录结构发生变化时可以使用 Refresh 更新列表。&
& 可以在 Data 控件上使用 Refresh 方法来打开或重新打开数据库（如果 DatabaseName, ReadOnly,
Exclusive 或 Connect 属性的设置值发生改变），并能重建控件的 Recordset 属性内的 dynaset。
（6）Show方法
用以显示 MDIForm 或 Form 对象。
语法：object.Show style, ownerform
Show 方法的语法包含下列部分：
可选的。一个对象表达式，其值为“应用于”列表中的一个对象。如果省略 object，则与活动窗体模块关联的窗体缺省为 object。
可选的。一个整数，它用以决定窗体是模式还是无模式 。如果 style 为 0，则窗体是无模式的；如果 style 为 1，则窗体是模式的。
可选的。字符串表达式，指出部件所属的窗体被显示。对于标准的Visual Basic 窗体，使用关键字 Me。
说明：
¨如果调用 Show 方法时指定的窗体没有装载，Visual Basic 将自动装载该窗体。
¨当 Show 在显示无模式窗体时，随后遇到的代码则要执行。当 Show 在显示模式窗体 (modal form) 时，则随后的代码直到该窗体被隐藏或卸载时才能执行。
¨当 Show 在显示模式窗体时，除了模式窗体中的对象之外不能进行输入（键盘或鼠标单击）。对其它窗体进行输入前程序必须隐藏或卸载模式窗体（通常是处于响应用户某些操作状态）。MDIForm 不能是形式的。
¨在模式窗体显示时，虽然应用程序中的其它窗体失效，但其它应用程序不会失效。
¨应用程序的启动窗体在其 Load 事件调用后会自动出现。
下面的例子说明如何使用ownerform 参数：
Private Sub cmdShowResults_Click()
' 显示模式窗体 frmResults.
frmResults.Show vbModal, Me
（7）Cls方法
清除运行时 Form 或 PictureBox 所生成的图形和文本。
语法：object.Cls
¨Cls 将清除图形和打印语句在运行时所产生的文本和图形，而设计时在 Form 中使用 Picture 属性设置的背景位图和放置的控件不受
Cls 影响。如果激活 Cls 之前 AutoRedraw 属性设置为 False， 调用时该属性设置为 True，则放置在 Form 或
PictureBox 中的图形和文本也不受影响。 这就是说，通过对正在处理的对象的 AutoRedraw 属性进行操作，可以保持 Form 或
PictureBox 中的图形和文本。
¨调用 Cls 之后，object 的 CurrentX 和 CurrentY 属性复位为 0。
3.窗体的常用事件
(1) &Load事件
这个事件发生在窗体被装入内存时，且发生在窗体出现在屏幕之前。窗体出现之前，Visual Basic会看一看Load事件里有没有代码，如果有，那么它先执行这些代码，再让窗体出现在屏幕上。
(2) Click事件，Dblclick事件
这两个事件在单击或双击窗体时发生。不过单击窗体里的控件时，窗体的Click事件并不会发生，Visual Basic会去看控件的Click事件里有没有代码。
(3)Activate (活动事件)与Deactivate（非活动事件）
显示多个窗体时，可以从一个窗体切换到另一个窗体。每次激活一个窗体时，发生Activate 事件，而前一个窗体发生Deactivate事件。
（4）Resize事件
在窗体被改变大小时会触发此事件。
4.窗体的控制
(1) 装入或卸出窗体
要装入或卸出窗体，用Load 或Unload语句。
装入窗体： Load formName
卸出窗体： UnLoad formName
FormName变量是要装入或卸出的窗体名。 Load语句只是把窗体装入内存，并不显示出来，要显示窗体可以使用窗体的Show方法。
(2) 显示或隐藏窗体
要显示或隐藏窗体，用Show或Hide方法。若尚未装入内存则先装入再显示。
显示窗体： &formName.show mode
隐藏窗体： &formName.hide& & FormName变量是窗体名,可选变元mode为0（缺省值）时窗体为非模态，为1时窗体为模态。模态窗体完全占有应用程序控制权，不允许切换到别的应用程序，除非关闭！而非模态窗体则反之。
（3）END语句
END语句的功能是终止应用程序的执行，并从内存卸在所有窗体。语法是： END
1. & && &常用控件介绍
& && && （1）标准控件一
TextBox 文本框
Timer计时器
HscrollBar水平滚动条
ListBox列表框
Pointer 指针
VScrollBar 垂直滚动条
CheckBox 复选框
DirListBox 文件夹列表框
PictureBox图片框
DriveListBox 驱动器列表框
ComboBox 组合框
Shape 图形
FileListBox文件列表框
OptionButton选项按钮
Data 数据控件
CommandButton 命令按钮
Frame 框架
570)this.width=570;" src="http://jsjx.hhit.edu.cn/vbweb/study/images/023.gif" src_cetemp="http://jsjx.hhit.edu.cn/vbweb/study/images/023.gif" onload="javascript:if(this.width>570)this.width=570;" align="absmiddle" border="0">&
（2） & && 常用控件的属性、方法和事件
Name、Caption、Enabled、Fantsize、Height、Width、Index、Left、Top、 TabStop
Move、Refresh、Setfocus（设置焦点）
Click、DblClick、LostFocus（失去焦点）
属性、方法、事件
TextBox &文本框
（用于接受用户在框内输入的内容）
即用户从文本框输入的内容
PasswordChar属性
设置口令时用的掩码，如：用*代替实际输入的内容
MaxLength属性
最大长度，缺省值是0，即可以输入任意个字符
MultiLine属性
为True时可以多行文本，为False时只能输入一行文本
Alignment 属性
文本在框中的对齐方式：0=左对齐，1=右对齐，2=居中
当框中的文本内容发生变化时触发该事件
LostFocus事件
当光标离开文本框时触发该事件
Label 标签（用于在窗体上添加文字说明）
Alignment属性
Caption文本的对齐方式：0=左对齐，1=右对齐，2=居中
WordWrap属性
为True时可根据标签大小自动换行
AutoSize属性
自动调节大小，为True时可根据文本大小自动调整标签大小，为False时标签大小不能改变，过长的文本被截掉
ListBox 列表框
（用于列出可供用户选择的项目列表）
用于保存列表内容，访问： [对象名]. List（列表项序号）
列表项的序号由上到下依次为0、1、2、3……
ListCount属性
列表项数目
ListIndex属性
列表项索引，其值为最后选中的列表项序号，第一个为0，如果未选中任何表项，其值为-1。
列表项正文，其值为最后选中的列表项的文本，它与
List（ListIndex）相同。
Columns属性
列表框显示形式取0时为一列显示所有行，其他值为多列。
排序属性，为True时，列表项按ASCII码排序，为False时，则不排序。
AddItem方法
添加列表项，使用格式：
[ 对象名.] AddItem[b]列表项文本&[[/b]，插入位置序号]
若不指定位置，则插入到列表末尾。&Clear方法
删除列表所有项目
RemoveItem方法
删除列表项，使用格式：
[ 对象名 .] RemoveItem &删除项序号
PictureBox 图片框
Image &图象（用来把图形放入程序里）
AutoSize/Stretch
调整图片框以适应图象 / 调整图象以适应外框
Picture属性
决定控件中显示的图象
imgMyHand.Picture = LoadPicture ( “c:\graphics\hand.bmp” )
删除图形: &imgMyHand.Picture = LoadPicture ( “ ” )
ComboBox 组合框（将列表框和文本框结合在一起）
外观属性：取0时，系统创建一个带下拉式列表框的组合框；为1时，系统创建一个由文本框和列表框直接组合在一起的简单组合框，可以从列表框中选择，也可以
直接在文本框中输入；为2时，系统创建一个没有文本框的下拉式列表框，单击列表框上的按钮才显示文本框，用户不能在文本框中输入，只能在列表框中选择。
其值为用户从列表框中选定的文本或直接输入的文本。
AddItem方法
添加列表项，使用格式：
[ 对象名.] AddItem[b]列表项文本&[[/b]，插入位置序号]
若不指定位置，则插入到列表末尾。
删除列表所有项目
RemoveItem 方法
删除列表项，使用格式：
[ 对象名 .] RemoveItem &删除项序号
CommandButton
Cancel属性
取消属性，它为True时, 按〖ESC〗即等于单击此按钮。
Default属性
缺省属性，它为True时, 按回车键即等于单击此按钮。
Timer计时器
Interval属性
两次调用Timer事件的事件间隔，用于创建动态效果。
Frame 框架
CheckBox 复选框
OptionButton选项按钮
Alignment属性
决定它们的对齐方式，0=左对齐，1=右对齐。
决定它们是否被选中的属性
2. & && &常用控件的使用辨析
（1）文本框和标签的区别：& &
文本框通常用于向计算机输入信息，而标签通常用于输出信息。文本框是一个十分重要的控件，因为由复选框和选项按钮向程序输入的信息毕竟只有少数的几条信息
而已。标签和文本框的区别很小，标签可以看成是一个在运行时不能修改正文的文本框，因此标签主要用于输出信息。
(2) &Label的AutoSize属性和WordWrap属性
¨ & & 为了使标签具有垂直伸展和字换行处理，必须设置它的AutoSize属性和WordWrap属性同时为True。
¨ & & AutoSize属性为False，WordWrap属性为False时，若标签不够高而Caption太长时，Caption将被切割掉。
¨ & & AutoSize属性为False，WordWrap属性为True时，情况也如此。
¨ & && AutoSize属性为True，WordWrap属性为False时，表示可以水平伸展，但只显示一行信息。
(3) PictureBox和Image的Stretch属性和AutoSize属性
¨ &Image只有Stretch属性，而PictureBox只有AutoSize属性。
¨ & AutoSize属性设为True，则PictureBox改变自己的大小来适应其中的图形。
¨ & Stretch属性设为True，则Image中的图形将改变自己的大小来适应外面的边框。
（4）Frame 框架、CheckBox 复选框、OptionButton选项按钮的区别：
¨ &复选框和选项按钮用于向程序输入信息, 框架用来对复选框和选项按钮进行分组。
¨ & 复选框选中时会在小方框里打一个钩，选项按钮选中时会在小圆圈里点一个点。
3．控件使用举例
2.4 & &定制菜单
1． & 菜单概述
Windows中的菜单一般由菜单条、菜单、菜单项、子菜单、弹出式菜单组成。
2． & 普通菜单的设计
（1） 给菜单命名& &菜单标题和菜单命令也有Caption和Name属性，设置了这两个属性就等于创建了菜单。Name是一个抽象名称，Caption是屏幕上可见的，可在Caption里加入 “&” 来设置热键。
（2） &增加和删除菜单
& &在Menu Editor中部有三个命令钮分别是下一个、插入、删除。插入可用来增加新的菜单。在这三个键下面的Caption列表框里选中菜单项（这时它的底色就变成深蓝色），单击插入键，Visual Basic将上一个增亮菜单下推并增亮一空行，就可以输入新菜单名和标题了。删除键可用来删掉菜单。选中要删掉的菜单，单击Delete键就可以删掉它了。
（3） &移动菜单标题
有四种情况：向上移动，向下移动，向左缩排，向右缩排，选中某一菜单标题，安上下箭头，则这个菜单将上下移动到你喜欢的位置上，这也决定了它在界面中的位
置。如果按左右箭头，情况则有所不同。由于菜单是分级的，所以，如果它没有缩排，则它是一个菜单标题；如果它缩排一次，那么它将变成一个菜单命令；如果缩
排两次，那么它将成为一个子菜单命令。VB里可以总共设计四层子菜单。
（4） &设置分离条& &
&分离条是指在菜单中将命令分组的线，VB将分离条也看成一个菜单项，它也需要Caption和Name属性，而且也有其它属性，分离条与菜单项的区别是
分离条的Caption属性必须是连字号即减号。也就是，当设置了一个Caption属性为 “-”
的菜单项时，实际上就设置了一个分离条，分离条的名字可以是barFile1之类，以表明分离条的位置。
（5） 菜单的各种简单属性& 在菜单编辑器里有许多确认框和一些文本框及一个下拉式的列表框，这些决定了菜单的各种属性。
1) Checked 复选属性& & 这个属性值设置为真，将在菜单命令左边产生一个打勾的确认标志。
2) Enabled有效属性& & 各种各样的用户会产生千奇百怪的操作，在许多Edit菜单里都会有不同形式的让菜单命令模糊的情况。Enabled属性为真，则菜单命令是清晰的，Enabled属性为假，则菜单命令是模糊的，这时用户就不能选中这个菜单项了。
3) Visible 可见属性& &对暂时不用的菜单， 如果把Visible属性设为假，则菜单根本不会出现在屏幕上。这样做比把Enabled属性设为假显得更加干脆！
4) Index属性& & 可以生成菜单命令数组，用索引号区分开。例如向File菜单中添加一系列最近打开的文件名。添加菜单可用Load方法。以上属性可以在运行时设置，形成动态的菜单的情况。
mnuUndo.Enabled = False
mnuProperty.Visible = False
还可以改变Caption等属性。
mnuUndo.Caption = “Redo”
（6）为每个菜单项编写事件过程代码
3. 生成弹出式菜单（或浮动菜单）
& 几乎每个Windows应用程序都提供弹出式菜单，用户可以右键单击窗体或控件取得这个菜单。弹出式菜单也属于普通菜单，只是不固定在窗体上，而是可以在任何地方显示。& &弹出式菜单用PopupMenu方法调用。假设已经用菜单编辑器生成了名为mnuedit的菜单，则可以在MouseUp事件加入如下代码就可以生成弹出式菜单：
&If Button = 2 Then PopupMenu mnuedit
4．菜单设计示例
2.5 & & 设计状态条、工具栏、进程条等
1． &创建状态条& & &选中状态条，按F4键进入属性窗口，双击（Custom）可以进入主要的设置窗口SBarCtrl属性窗口。
（1） 选择面板形状& 在SBarCtrl属性窗口里选择General标签，在Style列表框里选择多面板（缺省形式）或单面板简单文本形式。
（2） 添加或删除状态条面板& & 在SBarCtrl属性窗口里选择Panels标签，单击Insert按钮添加一个面板，或单击Remove按钮删除一个面板。
（3） 在单面板里显示文本& & 在SBarCtrl属性窗口里选择General标签，在SimpleText框里输入想显示在状态条面板里的文本。用代码显示的方式是：
& StatusBar1.SimpleText = "New string to appear"
（4） 在多面板里显示文本或图形
1). 在SBarCtrl属性窗口里选择Panels标签，用Index旁的按钮选择面板序号。
2). 在Text框里输入想显示在状态条面板里的文本。
3). 如果想加入图形，单击Browse按钮打开一个图形选择对话框，选择想加入的图形，然后单击打开按钮。
4). 最后按确定按钮。
5). 用代码显示的方式是：StatusBar1.Panels(x).Text = "New string to appear"
6). 编写代码
如果是一个单面板状态条，当用户单击状态条时，只需用下面的事件过程来响应：
Private Sub StatusBar1_Click()
End Sub& & 如果是一个多面板状态条，就需要鉴别用户单击的是哪一个面板，可用下面的事件过程来识别用户所单击的面板：
Private Sub StatusBar1_PanelClick(ByVal Panel As Panel)
Select Case Panel.Index
'Code to follow if user clicks the first panel
'Code to follow if user clicks the second panel
'Code to follow if user clicks the third panel
End Select
2． &创建工具栏
1. 建立工具条
1).在工具箱里单击工具条图标，拖到窗体的任何位置，Visual Basic自动将ToolBar移到顶部。
2).按F4键打开属性窗口。
3).双击（Custom），打开ToolBar属性窗口。
4). 选择Buttons标签。
5). 单击Insert按钮，Visual Basic就会在你的工具条上显示一个空按钮，现在为你的每一个按钮重复这一步。
6). 单击确定按钮。& & 如果想把按钮分组，首先生成一个分隔的按钮，再在刚才提到的对话框里将这个按钮的Style属性改为3-Separator。
（2） 为工具条增加图画
1). 在Visual Basic工具箱里单击ImageList图标，并将它拖到窗体的任何位置（位置不重要，因为它总是不可见的）。
2). 按F4打开属性窗口。
3). 双击（Custom），打开ImageListCtrl属性窗口。
4). 选择Image标签。
5). 单击Insert Picture，在现在图形的对话框里选择想使用的位图或图标，然后单击打开按钮。为每个想添加图形的工具条按钮重复此步。
6). 单击确定按钮。
7). 单击工具条，按F4，双击（Custom），显示ToolBar属性对话框。
8). 选择General标签，在ImageList框里选择刚才添加的ImageList控件。
9). 选择Buttons标签，单击紧挨Index框的向左或向右箭头以选择一个按钮序号。出现在工具条最左边的按钮序号为1。
10). 在Image框里输入一个数，输入为1，则显示刚才ImageList控件里的第一个图形，输入为2，则显示刚才ImageList控件里的第二个图形。
11). 为每个按钮重复第10步。
12). 单击确定按钮，现在Visual Basic就会在工具条上显示精美的图形了。
（3） 为工具条添加文本信息& & 在ToolBar属性对话框中选择Buttons标签，在Caption框里输入想显示在按钮上的文本。
（4） 添加ToolTips& & ToolTips是一种当点到工具按钮时弹出的小标签。ToolTips很方便，可以告诉那些新手每个按钮是干什么用的。在刚才提到的ToolBar属性对话框中选择Buttons标签，在ToolTipText框里输入想作为ToolTip的文本。
（5） 编写代码
双击工具条，以下面的格式输入代码就可以了：
Private Sub Toolbar1_ButtonClick(ByVal Button As Button)
Select Case Button.Index
'Code to follow if user clicks the first button
'Code to follow if user clicks the second button
'Code to follow if user clicks the third button
End Select
3． &创建进程条& 进程条的三个属性：
(1). Min属性代表进程条全空时的值，缺省时为0。
(2). Max属性代表进程条全空时的值，缺省时为100。
(3) Value属性代表进程条当前的值（不用在属性窗口里找这个属性，它不出现在属性窗口中，但它的确存在），它大于Min属性，小于Max属性。改变Value属性的值将改变进程条的进度显示。& 为了了解进程条的功能，在窗体里添加一个进程条和一个命令钮，双击命令钮进入代码窗口，键入如下代码：
Private Sub Command1_Click()
If ProgressBar1.Value
ProgressBar1.Value = ProgressBar1.Value + 5
ProgressBar1.Visible = False ‘当进程条满了的时候让进程条消失
4． &创建滑块
（1）. 选择滑块的外观
1). Orientation属性决定滑块的方位，可以是垂直的或水平的滑块。
2). TickStyle属性决定滑块标记的样子。
3). TickFrequency属性规定了沿着滑块的标记的间隔大小，缺省的状态是1，表明每个可能值都出现标记，如果把值设置为3，则每三个可能值出现一个标记。
（2） 滑块的Min，Max，Value属性& & & 这三个属性和进程条的这三个属性差不多，Min，Max表示滑块的最小和最大值，Value表示进程条的当前值。
（3） 滑块的LargeChange，SmallChange属性& & &LargeChange规定了当用户用鼠标单击滑块时，滑块可移动的距离。SmallChange规定了用户按左箭头或右箭头时滑块的移动距离。
5. 创建TabStrip页框控件
（1） 设置样式& 在TabStrip属性窗口里选择General标签，在Style列表框里选择Tabs或Buttons样式。
（2） 规定TabStrip的标题和ToolTips
1). 在TabStrip属性窗口里选择Tabs标签，在Caption框里输入标题。
2). 在TabStrip属性窗口里选择Tabs标签，在ToolTipText框里输入ToolTip。
（3） 增减标签总数& &在TabStrip属性窗口里选择Tabs标签，单击Insert Tab按钮增加标签，单击Remove Tab按钮删除标签。
（4） 在TabStrip上显示图形
1) 在窗体里拖入一个ImageList控件，
2) 按F4打开属性窗口。
3) 双击（Custom），打开ImageListCtrl属性窗口并选择Image标签。
4) 单击Insert Picture，在现在图形的对话框里选择想使用的位图或图标，然后单击打开按钮。为每个想添加图形的Tab按钮重复此步。
5) 单击确定按钮。现在ImageList里存储了需要的图形。
6) 选择TabStrip，进入TabStrip属性窗口并选择General标签，在ImageList列表框里选择ImageList1。
7) 现在选择Tabs标签，单击紧挨Index框的向左或向右箭头以选择一个Tab序号。在Image框里输入一个数，输入为1，则显示刚才ImageList控件里的第一个图形，输入为2，则显示刚才ImageList控件里的第二个图形。
8) 单击确定按钮。
（5） 用户响应& & 可用类似下面的代码来识别用户在哪一个项目上单击。
Private Sub TabStrip1_Click()
Select Case TabStrip1.SelectedItem.Index
'Code to follow if user clicks the first tab
'Code to follow if user clicks the second tab
'Code to follow if user clicks the third tab
End Select& & & End Sub
（6） 在TabStrip上放置其它控件& & 在用户选择了标签后，TabStrip要求编写代码来显示或隐藏控件。下面的代码上是一个TabStrip上有一个命令钮和一个选项钮的例子，当用户选择了第一个Tab时，选项钮出现，当用户选择了第二个Tab时，命令钮出现。
Private Sub TabStrip1_Click()
Select Case TabStrip1.SelectedItem.Index
Command1.Visible = False
Option1.Visible = True
Command1.Visible = True
Option1.Visible = False
End Select
2.6 &Visual Basic的输入机制& &
&程序的基本操作就是数据的输入，数据处理和数据的输出。Visual Basic可中用于输入的控件主要有：文本框Text Box、复选框Check
Box、选项按钮Option Button、列表框List Box、组合框Combo Box、滚动条Scroll
Bar、通用对话框控件。还有一个函数叫InputBox函数，也可用于数据的输入。
1. 通过文本框输入数据
只要取得文本框的Text属性就可以对其进行操作了。下面的代码可将Text1文本框的正文变成大写输出至Text2文本框。
Private Sub Form_Click ()
Text2.Text = UCase(Text1.Text)
2. 通过复选框和选项按钮输入数据& 只要检测到Check Box和Radio Button的Value属性值就可以知道它们是否被选上了。
3. 通过列表框和组合框输入数据
(1) 列表框List Box和组合框Combo Box的不同& & 它们在Windows的Open，Save As对话框里最为常见。组合框又包括三种类型，这三种类型要在它的Style属性里设置。列表框仅仅把可以选择的项目列出来，而组合框里有的类型可以允许用户输入数据。它们的异同是：
是否有下拉选项
是否允许用户输入&列表框
否&组合框类型0
是&组合框类型1
是&组合框类型2
(2) 列表项目的增减& 使用AddItem，RemoveItem语句可以增减列表项目。通常将项目增减的语句放入Form_Load事件里。
& ListBoxName. AddItem item
& ComboBoxName. AddItem item& & item是新项目名称，必须是字符串类型，非字符串类型可通过Str函数或Format函数来转换。
列表框，组合框的每一项目都有一个Index值，第一个项目的Index值是0，第二个是1，依此类推。删除项目可通过删除其Index值来实现。
ListBoxName. RemoveItem item
& & ComboBoxName. RemoveItem item
如：ListBoxName. RemoveItem 0则删除了第一项，这时原来的第二项就变成了第一项。& & 可以在设计阶段设定列表项目, 方法是：& & 在属性窗口选择List属性，将出现一个下拉列表，在列表中输入第一项，按Ctrl+Enter，输入第二项……，最后用Enter结束。
(3) &取得列表框/组合框的数据& & 可以通过取得Text属性或通过取得ListIndex属性来判断哪一项被选择了。ListIndex属性的值也同样是第一个为0，第二个为1……如：
If List1.Text = “Visual Basic” Then Instructions
If List1.ListIndex = 1 Then Instructions
组合框有时允许用户自己输入数据，这时所输入数据的ListIndex值为－1。
4. 通过滚动条Scroll Bar取得数据
在Visual Basic的工具箱里有两种滚动条：一种是垂直的，一种是水平的，它们的差异无非是摆放的方向不一样。
(1) 滚动条的主要属性及事件
1）Min，Max属性
Min属性决定滚动条最左端或最顶端所代表的值。Max属性决定滚动条最右端或最下端所代表的值。
2）LargeChange,SmallChange属性
SmallChange决定在滚动条两端的箭头钮上单击时改变的值。LargeChange决定在滑块上方或下方区域单击时改变的值。
3）Value属性
Value属性代表当前滑块所处位置的值，这个值由滑块的相对位置决定。
4）Change事件
当滑块位置发生变化时就引发了Change事件。
(2) 取得滚动条的数据
滚动条并不是一个数据输入的好控件，因为无法从滚动条上直接看出输入的数据，但它的优点是可以表示一定范围里的相对位置。为了得到数据，只要取得滚动条的Value属性就可以了。
5. &InputBox函数
InputBox函数提供一个简单的对话框供用户输入信息。在把其它版本的BASIC程序移植到Visual Basic时，InputBox函数通常用来代替INPUT语句。这个对话框的样子基本上是上面的样子。
它的完整语法是：x = InputBox (prompt, title, default, xpos, ypos, helpfile, context)&
其中，prompt是提示的字符串，这个参数是必须的。title是对话框的标题，是可选的。default是文本框里的缺省值，也是可选的。
xpos，ypos决定输入框的位置。helpfile，context用于显示与该框相关的帮助屏幕。返回值 x
将是用户在文本框里输入的数据，x是一个字符串类型的值。如果用户按了Cancel钮，则 x 将为空字符串。
6. 使用通用对话框控件
Windows应用程序里的Open对话框，Save As对话框在各个应用程序里看起来都是一样的，通用对话框控件就可以提供这些对话框的标准功能。
(1) Open对话框及Save As对话框
打开Open对话框使用ShowOpen方法，打开Save As对话框使用ShowSave方法。
Private Sub mnuOpen_Click ()
On Error GoTo ErrorHandler
CommonDialog1.CancelError = True
CommonDialog1.Filter = "Text Files (*.txt)|*.txt|Batch Files (*.bat)|*.bat|All Files (*.*)|*.*"
CommonDialog1.ShowOpen ' display Open common dialog box.
Call OpenFile(CommonDialog1.FileName)
ErrorHandler:
其中第三行决定了在文件格式类型栏里出现的文件类型。第五行需要一个自己的打开文件的过程，这个过程需要的参数就是通用对话框返回的文件名。通用对
话框的CancelError属性设为True的话，用户单击Cancel按钮将产生一个错误信息程序，凭借这个信息程序可以检测到用户的放弃操作。
(2) Color对话框
下面的过程可用用户选择的颜色作为窗体的底色。
Private Sub mnuColor_Click ()
On Error GoTo CancelButton
CommonDialog1.CancelError = True
CommonDialog1.ShowColor
Form1.BackColor = CommonDialog1.Color
CancelButton:
(3) Fonts对话框
下面的过程可用字体对话框改变文本框的字体:
Private Sub mnuFonts_Click ()
On Error GoTo CancelButton
CommonDialog1.CancelError = True
CommonDialog1.Flags = cdlCFBoth ' Flags property must be set to cdlCFBoth
CommonDialog1.ShowFont ' Display Font common dialog box.
Text1.FontName = CommonDialog1.FontName
Text1.FontSize = CommonDialog1.FontSize
Text1.FontBold = CommonDialog1.FontBold
Text1.FontItalic = CommonDialog1.FontItalic
Text1.FontUnderline = CommonDialog1.FontUnderline
Text1.FontStrikethru = CommonDialog1.FontStrikethru
Text1.ForeColor = CommonDialog1.Color
CancelButton:
代码的第三行出现了通用对话框的Flags属性决定了通用对话框的一些可选项，不过即使不赋值给Flags，代码也一样会按缺省的情况去执行的。
2.7 &Visual Basic的输出机制& & 作为输出的对象，Visual
Basic提供了标签，文本框，窗体，图片框（Picture Box）等用于输出，而且Visual
Basic里也有一堆命令、属性涉及信息的输出，较常用的有：MsgBox函数，Print方法，Cls方法，Tab函数，Format函
数，FontName，FontSize，FontBold，FontItalic，FontStrikethru，FontUnderline属
性，CurrentX，CurrentY属性等。
1. 通过MsgBox函数输出
了解Windows应用程序的人都知道当用户操作错误时，应用程序往往打出一个消息框来提示用户的错误，象这样：
Dim Action As Integer
Action = MsgBox("单击确定键将引爆此计算机！", vbYesNo + vbCritical + vbDefaultButton2, "警告！")
If Action = 6 Then Explode
这个功能在Visual Basic里是通过MsgBox函数来实现的，这样程序员就不必自己去画一个消息框了。语法是：
Action = MsgBox (msg, type, title)
其中，msg是消息的内容，是一个字符串型的变量，type及title参数是可以省略的，type参数指定显示的按钮是什么及使用什么样的图标（这个参数往往让新程序员思考几分钟），title参数指定消息框的标题。type参数的含义是：
只显示 Ok 按钮
1&vbOKCancel
显示 Ok &Cancel 按钮
vbAbortRetryIgnore
显示 Abor &Retry &Ignore 按钮
vbYesNoCancel &
显示 Yes &No &Cancel 按钮
显示 Yes &No 按钮 &
vbRetryCancel
显示 Retry Cancel 按钮
vbCritical &
Stop Sign对极其重要的问题提醒用户
32&vbQuestion
Question Mark增亮没有危险的问题
vbExclamation&Exclamation Mark强调警告用户必须知道的事情
vbInformation
Information Mark可以使乏味的信息变得有趣
vbDefaultButton1
第一个按钮缺省
vbDefaultButton2&第二个按钮缺省
vbDefaultButton3&第三个按钮缺省 &
例如：Action = MsgBox (“Are you girl?”, vbYesNo + vbQuestion,
“Question”)。使用这个函数时Visual
Basic将产生一个标题为Question，具有问号和Yes，No按钮的消息框。作为一个函数，本质上还是要返回值的，MsgBox的返回值确定了用
户的选择，程序可根据返回值做出相应的动作。
选择 Ok 按钮
选择 Ignore 按钮 &2
选择 Cancel 按钮
选择 Yes 按钮 &3
选择 Abort 按钮
选择 No 按钮 &4
选择 Retry 按钮 && &
2. Print方法，Cls方法，Tab函数
(1) Print方法
Print 方法的语法是：object. Print expressionlist& &
& object表示Print作用的对象，比如是Form或者是Picture
Box，object是可以省略的，省略时的Print往往在窗体上输出。expressionlist是输出的内容，允许许多项数据的输出，在数据间可
以加入“,”或”;”。加入分号将使下一数据项紧挨着上一数据项输出。而加入逗号，则Visual
Basic将下一数据项在下一打印区输出，其实就是空了几个空格后再输出。两个打印区之间有14个字符的宽度，其实这也很难衡量，比如14个“W”所占的
宽度大概是14个“i”所占宽度的三倍多。幸好中国日本之类的方块字所占的宽度基本上是一样的，所以较好处理一些。
(2) Tab函数& & Tab函数只用在Print方法中，它用来移动下一个字符到打印位置，这将省去数空格的功夫。语法是：Tab (column)& & Tab函数将Visual Basic自定义的14字符宽的打印区扔到一边，用自己的方式定义了新的灵活的打印区宽度。
(3) Cls方法& Cls也是一个古老的BASIC语句,原来它的作用总是把屏幕变成黑色，然后在左上角或左下角闪烁一个光标，Visual Basic里它的作用是清除绘图语句和Print语句产生的文字和图形。
语法是：object. Cls
object指清除的对象，可以是Form或Picture Box。如果object省略，通常Visual Basic都把当前的窗口作为Cls操作的对象。
3. Format函数
Format函数用于制定字符串或数字的输出格式。语法是：x = Format (expression,fmt)
expression是所输出的内容。fmt是指输出的格式，这是一个字符串型的变量，这一项若省略的话，那么Format函数将和Str函数的功能差不多。如：
Format (2, &#”)
2.00 &Format (.7, “0%”) &70% &
Format (1140, “$#,##0”)
$1,140 & 简单地，fmt里的字符是这样的：
意义&0 &显示一数字，若此位置没有数字则补0 &. &
小数点 &# &显示一数字，若此位置没有数字则不显示 &, &千位的分隔符 &% &数字乘以100并在右边加上”%”号
- + $ ( ) &这些字出现在fmt里将原样打出
Format函数也可用来对时间进行输出。
m/d/yy &8/16/96& h:mm:ss a/p&10:41:29 p &
d-mmmm-yy &16-August-96& h:mm &22:41 &
d-mmmm &16-August& h:mm:ss &22:41:29 &
mmmm-yy &august-96 &m/d/yy h:mm &8/16/96 22:41 &
hh:mm AM/PM &10:41 PM & &
4. FontName，FontSize，FontBold，FontItalic，FontStrikethru，FontUnderline属性
很明显，这些属性都与字体有关，许多控件都有这些属性。通常它们在设计阶段可以双击font属性来设置，运行期间可以直接设置。它们的意义是：
FontName &
字体的名称 & FontItalic &字体是否用斜体显示 &
FontSize &字体的大小& FontStrikethru &
字体是否有删除线 &
字体是否用粗体显示& FontUnderline &字体是否有下划线 & & &如：Text1.FontBold = True，将把Text1文本框的FontBold属性设为True。
5. 窗体，图片框的CurrentX，CurrentY属性&
& 这两个不可见的属性确定了下一次打印或绘图的水平及垂直坐标。如上面讲的Print方法，当expression后使用 “,” 时，Visual
Basic将改变CurrentX，CurrentY值为下一打印区域开始的值，于是，输出便指向了下一个打印区域。而Cls方法将把操作对象的
CurrentX，CurrentY的值设为(0,0)。
6. 通过标签控件输出& & 标签控件的特点是运行时不能直接修改它，通常一个文本框旁边都有一个标签用来标识文本框。标签的Autosize和WordWrap属性是一对有用且令人困惑的属性。
re:[b]第三章[/b][b] VB[...
第三章 &VB的程序设计基础
2.1 &VB编码规则
1. &语言元素& VB的语言基础是BASIC语言，VB程序的语言元素主要由：
关键字（如： Dim、Print、Cls）
函数（如：Sin（）、Cos（）Sqr（））
表达式（如：Abs(-23.5)+45*20/3 ）
语句（如：X=X+5 、 IF……ELSE……END IF）等组成。
2. &VB代码书写规则
（1） 程序中不区分字母的大小写，Ab 与AB等效；
（2） 系统对用户程序代码进行自动转换：
1） &对于VB中的关键字，首字母被转换成大写，其余转换成小写
2） &若关键字由多个英文单词组成，则将每个单词的首字母转换成大写
3） &对于用户定义的变量、过程名，以第一次定义的为准，以后输入的自动转换成首次定义的形式
3. &语句书写规则
（1）在同一行上可以书写多行语句，语句间用冒号(：)分隔
（2）单行语句可以分多行书写，在本行后加续行符：空格和下划线 &_
（3） 一行允许多达255个字符
4. &程序的注释方式
（1）整行注释一般以 Rem开头，也可以用撇号 '；
（2）用撇号 ' 引导的注释，既可以是整行的，也可以直接放在语句的后面，最方便；
（3）可以利用“编辑”工具栏的“设置注释块”、“解除注释块”来将设置多行注释。
5. 保留行号和标号
VB源程序接受行号与标号，但不是必须的（早期的BASIC语言中必须用行号）。
标号是以字母开始以冒号结束的字符串，一般用在GOTO语句（现在很少用）中。
2.2 &VB的语言基础
1.数据类型
VB的标准数据类型
数值数据类型
-32,768 到 32,767
-2,147,483,648 到 2,147,483,647
负数：-3. 到 -1.；正数：1. 到 3.
负数： -1.32E308 & & && - 4.47E-324；
正数：4.47E-324 & & & 1.32E308
从 -922,337,203,685,477.5808
到 922,337,203,685,477.5807
True 或 False
100 年1月 1日 到 9999 年 12 月 31 日
4 个字节&任何 Object 引用
变长字符型
10 字节加字符串长度
0 到大约 20 亿
定长字符型
字符串长度
1 到大约 65,400
变体数字型
任何数字值，最大可达 Double 的范围
变体字符型
22 个字节加字符串长度
与变长 String 有相同的范围
1）VB中对没有声明的变量其缺省的数据类型是变体型，可以用来存储各种数据，但所占用的内存比其它类型都多。为提高运行效率(整型效率较高)，或达到一定的运算精确度（浮点型精度较高，但运行较慢），应合理的定义数据类型。
2） 逻辑型数据只有True 和False两个值，转换成整型时，True=-1 ，False=0，将其它类型转换成逻辑型时，非0数转换为True ，0转换为False。
3） 字符型可以包括所有的西文字符和汉字，字符必须用双引号括" "起来, 如："abc123"
4）日期型数据按8字节的浮点数来存储，日期型数表示方式有两种：可以用号码符#括起来，也可以用数字序列表示（小数点左边的数字代表日期，右边代表时间，0为午夜，0。5为中午12点，负数表示是日前的日期和时间）。
如：#3/22/2002# & &# 14:30:20#
Dim T As Date
Print T & &' 打印出来的结果是 12：00：00
５）任何数据类型的数组都需要 20 个字节的内存空间，加上每一数组维数占 4
个字节，再加上数据本身所占用的空间。数据所占用的内存空间可以用数据元数目乘上每个元素的大小加以计算。例如，以 4 个 2 字节之 Integer
数据元所组成的一维数组中的数据，占 8 个字节。这 8 个字节加上额外的 24 个字节，使得这个数组所需总内存空间为 32 个字节。
2. 变量与常量
（1）变量或常量的命名规则
1） 必须以字母或汉字开头，由字母、汉字、数字或下划线组成，长度&#个字符；
2） 不能使用VB中的关键字，并尽量不与VB中标准函数名同名；如：Dim 、Sin
3）VB中不区分变量的大小写，一般变量首字母用大写，其余用小写；常量全部用大写字母表示
4）为了增加程序的可读性，可在变量名前加一个缩写的前缀来表明该变量的数据类型。
（2）变量声明
1）用Dim语句进行显式声明& 语句形式：
Dim &变量名 [As 类型] & && 如： Dim &intX &As integer& & && & 说明：·如果没有As 类型，则默认为变体类型。
·可在变量名后加类型符来代替As 类型 &如： Dim &intX%
·一条语句可以同时定义多个变量，但每个变量必须有自己的类型声明，类型声明不能共用；
·字符串变量根据其存放的长度是否固定，定义方法不同：& & & 定长字符串： &Dim &strA &As &String*10 & & & && & 表示最多存放10个字符，如果赋值不足10个，则右补空；若多于10个，则多余部分截去。& &
不定长字符串：Dim &strA &As &String
& & ’最多可存放2MB个字符
2） 隐式声明
VB中允许变量不经过声明就直接使用，这种称为隐式声明，所有隐式声明的变量都是变体型的。
隐式声明容易造成错误，为了调试程序方便，一般对使用的变量都进行声明，可以在通用声明段使用Option &Explicit 语句来强制显式声明所有变量。
1）直接常量
指在程序中直接给出值的数据，如：123、123&、123.45、1.234E2 、123D3分别表示整型、长整型、单精度浮点型（小数形式）、单精度浮点型（指数形式）、双精度浮点型。
八进制常数： &在数值前加&O ，如 &&O123
十六进制常数：在数值前加&H ，如&H123
2）用户声明的符号常量& & & 用Const来声明： &Const &符号常量名 [As 类型] = 表达式
如：Const &PI=3.14159 & && && && & '声明了常量PI，代表3.14159，单精度型
Const &MAX As Integer=&O144 &''声明了常量MAX，代表八进制数144，整型
Const &COUNT#=45.67 & && && &'声明了常量COUNT，代表45.67，双精度型
3）系统提供的常量
系统定义的常量位于对象库中，在对象浏览器中的Visual Basic（VB）和Visual Basic for Aplication（VBA）等对象库中列出了VB的常量。这些常量可以与应用程序的对象、方法、属性一起使用。
如：Form1.WindowsState=vbMaximized 表示将窗口极大化。
3. & &运算符
（1） & & 算术运算符
IA* iA* iA
-7& & &说明：设表中的变量iA=3, 为整型。& &算术运算符两边的操作数应该是数值型，若是数字字符或逻辑型，则自动转换为数值类型后再运算。
re:[b]（2） [/b][b]字符...（2） & & 字符串运算符
将两个字符串拼接起来&连接符两旁的操作数不管是字符型还是数值型，系统先将操作数转换成字符，然后再连接。
连接符两旁的操作数均为字符型；若均为数值型则进行算术加法运算；若一个为数字字符型，一个数值型，则自动将数字字符转换为数值，然后进行算术加；若一个为非数字字符型，一个数值型，则出错。
（3） & & 关系运算符
"ABCDE"="ABR"
"ABCDE"&"ABR"
"bc"&="大小"
"abc""ABC"
字符串匹配
"ABCDEFG" Like "*DE*"
对象引用比较& &
1） & 如果两个操作数都是数值型，则按其大小比较
2） & 如果两个操作数都是字符型，则按字符的ASCII码值从左到右一一比较
3） & 汉字字符大于西文字符
4） & 关系运算符的优先级相同
5） & VB6.0中Like运算符与通配符的使用：
？——表示任何单一字符
*——表示0个或多个字符
#——表示任何一个数字（0 - 9）
[字符列表]——表示字符列表中的任何单一字符
[！字符列表]—— 表示不在字符列表中的任何单一字符
（4） 逻辑运算符
当操作数为假时，结果为真
两个操作数均为真时，结果才为真
两个操作数中有一个为真时，结果为真
两个操作数不相同，结果才为真，否则为假
两个操作数相同时，结果才为真
第一个操作数为真，第二个操作数为假时，结果才为假，其余都为真
1）若有多个条件时，And必须全部条件为真才为真；Or只要有一个条件为真就为真。
2）如果逻辑运算符对数值进行运算，则以数字的二进制值逐位进行逻辑运算。And运算常用于屏蔽某些位；Or运算常用于把某些位置1。
如：12 And 7 &表示对进行And运算，得到二进制值100，结果为十进制4。
3）对一个数连续进行两次Xor操作，可恢复原值。在动画设计中，用Xor可恢复原来的背景。
（1）表达式的组成& 表达式由常量、变量、运算符、函数和圆括号按一定的规则组成，通过运算后有一个结果，运算结果的类型由数据和运算符共同决定。
（2）表达式的书写规则
1）乘号不能省略
2）括号必须成对出现，均使用圆括号，可以嵌套，但必须配对。
3）表达式从左到右在同一基准上书写，无高低、大小之分。
例：sqr((3*x+y)-z)/(x*y)^4
（3）不同数据类型的转换
操
