2024年5月6日发(作者：)

维普资讯

第２２卷第２期　

２００２年２月　

文章编号：１００１—９０８１（２００２）２一（；０９３—０２　

计算机应用　

Ｃｏｍｐｕｔｅｒ　Ａｐｐｆｉｃａｆｉｏｎｓ　

Ⅵ２２．Ｎｏ．２　

Ｆｅｂ．，２００２　

ＰｏｗｅｒＢｕｉｌｄｅｒ数据窗口打印控制技术及通用打印模块的设计　

黄洪　

（浙江工业大学经贸管理学院管理科学与Ｉ程学科，浙江杭州３１００１４）　

摘要：文中介绍使用ＰｏｗｅｒＢｕｉｌｄｅｒ开发信息系统时数据窗口的打印控制技术，包括打印预览、部　

分打印、缩放打印、边界设置等，并给出了一个具有实用价值的可以挂接任何数据窗口的通用打印模　

块设计实倒。　

关键词：ＰｏｗｅｒＢｕｉｌｄｅｒ；打印；数据窗　；通用程序设计　

中图分类号：３ｔＢ９１．４１　文献标识码：Ａ　

值为整型　

１　引言　

ＰＢ是目前开发信息系统的重要工具，其独有的数据窗Ｅｌ　

技术使得对数据库数据的操纵和显示等相关程序的设计变得　

非常方便。使用数据窗Ｅｌ，不仅可以查询显示数据，而且可以　

通过使用　ｎｔ（）和ｐｒｌｎｔｄａｔａｗｉｎｄｏｗ（）函数方便地实现数据窗１２　

的打印。但信息系统的用户对打印常常需要实行更复杂灵活　

的控制，如在打印之前进行预览、选择部分页面打印、改变纸　

Ｄ　ｕＨ蹦￡　

字符串　

文档名称　

Ｄｕ　ｅ：ｃ：打印方向　

值为整型：Ｊ鲑省岛ｍ　（…）：２水平；３垂直　

ｎ盼　：底部更面边界的宽度　

值为整型　

西ｎ．Ｌ　：页面边界的宽度　

值为整型　

Ｍ　目ｎ．Ｉ｛ｊ　页面边界的宽度　

值为整型　

Ｍ峨　ｎ　１砷：页面边界的宽度　

张大小进行缩放打印、设置打印边界，等等。要象Ｗｏｒｄ等字　

处理软件一样允许用户设置各种打印选项，　实现上述对数　

据窗口打印的完全控制，则必须了解数据窗口的打印属性并　

进行较复杂的编程。本文将详细舟绍数据窗口打印的相关技　

值为整型　

∞　ｍ：打印方向　

术，并给出一个通用的数据窗口打印程序的设计方法。　

值为整型０使用打印机的毓省设置　Ｉ横向：２纵向　

，

２数据窗口的打印控制技术　

对于数据窗口的打印控制，主要是通过设置数据窗口　

Ｒ　打印的页面范泪　

值为字符串，页＿面数字用逗母分开。形如　１，２，５—１　。若为空　

则打印所有页　

ｐｒｉｎｔ属性下的相关属牲来实现。获取和设置数据窗Ｅｌ的打印　

届ｌ生通常使用两种方法：点标记方法和数据窗Ｅｌ函数。其相　

应的语法形式如下：　

一

Ｉ￣ｎｇｅ［ｎｄｕｄｅ：指定打印页　

值为整型　进一步指定要打印Ｉ－进范围中的哪些页：０打日Ｉ全　

都页，ｌ打印偶数更；２｝丁印奇数页　

Ｐａｐｅｒ．Ｓｉｚｅ打印纸张太小　

点标记语法　

ｏｂ　。ｃ￡Ｄ出Ｗ　ｍ　．Ｐ　ｍ　ｐｒｏｐｅｒｅｔ＇　

获取属牲值：　

Ｖｅ￣ｎｂ／ｅ＝ｄ　ｃ曲酬

值为整型：Ｏ采用打印机的缺省设置：１到４１舒剐对应不同太　

小的标准纸张　

设置属性值：　

ｄ￣＇－ｅｏｎｔｒｄ．Ｏｂｊ￣ｔ．１）ｎｌａＷｉｎ＆￣＇Ｐｒｉｎｔ　ｐｒｏｐｅｒｔｙ＝　

－

Ｐｔｅ￣４ｅｗ：是否采用打印预览方式先时数据宦口　

Ｙｅｓ采用：Ｎｏ不采用　

Ｐｒｅｖｉｅｗ　Ｒｕｌｅ￣：在预览方式下是否显示标尺　

Ｙｅｓ显示标尺　Ｎ０不娃示ｆ缺省１　

Ｐｒｅｖｉｅｗ　ｚｌｘ邢：预览时的显示比例　

使用函数　

ｋ　ｒ　ＤａｔａＷｉｒ￣－Ｐｎｍ），ｔｏｐ＝ｍｅ）　

获取属性值：　

Ｖａ￣ａｂ］ｅ＝ｄｖｅ＿ｍｎｔｍ／Ｄ　

值为整型，表示百舟比　缺省为１００％　

设置属性值：　

ｄｗ—ｃｌ圳　．Ｍ　曲Ｐ　ＨｗＬｎｄ　Ｐｒｉｎｔ｝　竹：ｖａｌｕｅ　１　

若要将数据窗口进行缩放打印则还要用到下面一个属　

性，该属性为数据窗Ｅｌ对象的缩放比例，值为整型，表示百分　

比，缺省为１００％。该属性的点标记形式为：　

ｄｗ－ｃｏｎｔｒｄ　ｏｂｊ￣ｔ．ＤａｔａＷｉｎｄｏｗ．Ｚｏｏｍ，在函数中使用则取　

ＤａｔａＷｉｎｄｏｗ　ｚ０ｏ　

其中参数　一ｃ０【｜ｔｍ１是数据窗口控件名，ｐｒｏｐｅｒｔｙ是打印　

属性名，ｖ　ｕｅ是赋给属性的值。常用的打印属性及其取值如　

下：　

Ｃｏｌｏｒ：确定是舌彩色打印　

值为接型１彩色打印；２单色打印　

ｃ　ｅＨ打印份数　

收稿日期：２００１—０８—１７　

３通用打印程序的设计　

通用数据窗口打印程序的设计思路是将皱打印的数据窗　

作者简介：黄洪，副教授，主要研究方向：数据库系坑、管理信息系统、决策支持系统、电子商务　

维普资讯

计算机应用　

口（源数据窗口）复制到通用打印窗口的数据窗口（目标数据　

窗口）中，通过对目标数据窗口的控制实现对源数据窗口的打　

￣Ｘ）０２阜　

接受用户对打印内容的选取，并返回用户的选择结果　“打印　

内容设置”按钮调用该窗口，并根据返回的值完成打印内容的　

设置。　

印控制。其具体实现方法如下（限于篇幅，仅给出关键部分的　

脚本代码）：　

３　１通用打印窗口及其初始化　

建立通用打印窗口ｗ－－ｐｒｉｎｔ，其上包括一个目标数据窗口　

控件　一ｐｒｉｎｔ，以及对该数据窗口控件进行控制的若干命令　

图２　

按钮等如图１所示（为节省篇幅对数据窗口进行了压缩）。　

图１　

首先定义以下实例变量：　

ｄａｔ啪ｎｄｏｗ　ｄｗ…：　

ｉｎｔｅｇｅ￣１　ｐ“ｎＬ　ｒＴ　ｅ＝Ｉ．ｉｉ－ｐｒｌ　。０ｐ　Ｉ，　

ｉｋｐａｇｅｃｏｕｎｔ．ｉＬｒａｎｇｅ－－ｉｎｃｌ￣ｌｅ＝０　

ｎｇ｛　ｐｎｎＬｒａｎｇｅ＝～０；　

在该窗口打开时，完成从源数据窗口到目标数据窗口的　

复制，并进行相关初始设置。窗口打开事件的脚本如下：　

ｂｌａｂ　ｌｂｌｈ－ｄ￣ｓｔａｔｕｓｉｄｗ－ｓｅｕｒｃｅ＝ｍｅ　ａ　ｆ）州　ｅ　ｐａ肺　

／／按取赦打印的数据窗口对象（源数据窗口）　

／／根据瓿取的数据窗口对象柏语法，在数据窗口控｛牛　

ｄ　ｕ兀ｍ巾动态创建目标数据宙ｌ　ｌ对象　

ｄｗ＿ｐｒｉｎｔ　ｃｒｅｍｅ（ｉｄ　ｅ　ｄｅ　ｌ）ｅｆ”ｄａｔａ￣ｎｄｏｗ　ｓｙｎｔａｘ＂１　

／／获取泺数据窗口的完整状忠，并以之设置ｄ　ｐｎｎｔ中的目标数　

据窗口对象｝ｌ勺状态　

ｌｄｗ—ｇｅｔｆｕｌｌｓｔａｔｅ（１ｂＬｄｗｓｔａｔｕｓ）　

ｎｔ　ｓｅｆｕｌｌｓｔａｔ￣（１　ｄ￣－ｚｔａｔｕｓ）　

／／根据操数据窗口的排序规则对目标数据窗口进行排序，并重新　

计算分组数据　

面ｍ．ｓｏｒｔ（）　

ｄｗ＿ｐｔｉｎｔ　州　ｐ　ｃ（）　

／，将目标数据窗口设置成打印欲览方式井显示标ｊ己　

ｄｗ－ｐｔｉｎｔ．ｍｏｄｉｆｙ（“ｄａｔａｗｉｎｄｏｗ．ｐｒｉｍ　ｐ￣＇ｉｅｗ　ｄａｔａｔ￣ｎｄｏｗ．ｐｒｉｎｔ．　

口ｒ　…【…　）　

Ｉ埘ｅｖ哪　Ｌ　ＳｌＩｎｗｐａ　（）／／触发用户定义事件，获得并显示页码　

ｔｈｉｓ．ｔｉｔｌｅ＝ｄｗ＿ｐｒｉｍ　ｄ￣ｂｅ（’ｄａｔａ￣ｎｄｏｗ．ｖ，ｉｎ【ｄ０ｃｕ口　一）　

／／显示打印数据窗口文档的名　

ｅｒｎ－￣ｓｌｅ曲ｎ＝ｒ１００％　／／显示缩放打印的初始比例　

ｄｍⅨ　∞ｋ【ｅｍ＝　１００％’　

／，显示打印预览的初始显示比例　

ｉｆ　ｄｗ＿ｐｆｉｎｔ．ＲｏｗＣｏｔｍｔ（）＝０　Ｔｈｅｎ　

／／投有数据，使得个打印设置按钮无效　

ｃｂ—ｐｄ咄Ｅａ￣ｌｅｄ＝Ｆ　

ｅｂ－ｓｅｔ￣ｒ　Ｅｎａｂｌｅｄ＝蹦　

ｃｈ　Ⅱ【．ＥＴⅢ　ｅｄ＝Ｆ　吕ｅ　

ｃｈ－ｌａｓｔ　Ｅｎａｂｌｅｄ＝Ｆ　ｅ　

ｅｈ－…Ｆａｍｂｌｅｄ＝ｆ　

ｅｈ－ｎ哪Ｅｎａｂ［耐＝Ｆａｌｓｅ　

ｍｄｉｆ　

３　２数据窗口打印内窖的选取　

建立一个ｒｅｐｏｒａｓｅ型窗１：３　ｗ＿ｗｌｍｔ＿ｔａ．－ｐｔｌｒｔｔ如图２，该窗１：３　

本窗口的　确定　命令按钮的脚本如下：　

Ｓｔｒｉｎｇ　ｌＢ—Ｔｔ　

ｉｆ　ｉｉ－ｐｄｎＬｎｒｏｄｅ＝１　ｔｈ帆　

一　

ｎＬｒ　＝。０，　

ｅｎｄｉｆ　

ｌｆｆｉ—ｐｄｎ￣ｍｏｄｅ＝２　１１ｌｃｎ　

｛ｓ—ｐ玎ｎＬ硼　８ｌ　ｐ且ｇＬｒａ　１　ｍ　

Ｉｆｉｓ＿ｐｆｉｎＬｔ＇ａｎｇ￣＝　Ｏｒ　ｋＮｕ¨（Ｌ　ｐｄｎＬ　Ｔ　）’Ｆｈｍ　

¨＿Ｉ　ｎＬｍｄｅ＝１　

Ｌ　Ｄｒｉｎ￣ｒａｎｇｅ＝　０　

Ｅｔ１ｔｊ　

Ｅ　

Ｌ１一ｐｎｎ￣ｍｐｉｅｓ＝ｌｎ　（　ｎ～∞ｐｙ　ｍ）　

ＩＬ咖＝Ｓ￣ｉｎｇ（ｉｉ—ｐｆｉｎｔ－ｃｏｐｉｅｓ）＋　＊　＋ｓｔｘｉｎｇ（ｉｉ—ｒ￣ｎｇｅ－ｉｎｃｌｕｄｅ）　

＋　＊　十＆Ｓ　（ｉＬｐｎｎＬ　１＋　”＋　一　Ｌ　

Ｃ［￣ＷｉｔｈＲｅｔｕｒａ（Ｐａｒｅｎｔ，】ＬＴ【ｌ１　Ｊ　

“打印内容设置”命令按钮的脚本如下：　

ｓｔｉｒｎｇ　ＩＬ　ｐ　，】　

ｉｎｔｅ￣ｒ　ｌｉ－６　．１ｉ—ｓｅｃｏ￣　

】０　ｇ　ｌＥｏｎ＇ｒｅｄｒａｗ　

０ｐｅｒＩ（　一　诅Ｌ　ｎ—ｐ　ｎｔ）　

Ｍｅｓｓａｇｅ．Ｄｔ￣ｌｅＰａｎｎ＝一１　ｒｌ￣ｅｎ　

Ｉ＂Ｕ￣ＩＩｍ　０　

￡ｒ】ｄⅡ　

／，从返回的字符串中析出要设置的参数　

ｔｓ－ｍｐａｎｎ＝Ｍｅｓｓａｇｅ　ＳＣｄｎ　盯ｍ　

ｌＬ６　＝Ｐ昭（１　｜ｅｔｐ　ｎ．　＊”，１）　

ｉｋｌｌｎｎｔ－ｃｏｐｉｍ＝Ｉｎｔｅｇｅｒ（Ｍｉｄ（１ｓ＿￣．１　１Ｌ６　一ｌＪ）　

】Ｌ—ｎｄ＝Ｐｏｓ（】Ｌ憎ｐ　瑚，　＊　．ｈ＿　ｒ８Ｅ十１）　

ｉｉ－ｒａｎｇｅ－ｉｎｃｌｕｄｅ＝ｉｎｔｅｇｅｒ（Ｍｉｄｎｓ—　ｐａｒ【『１．ＩＬ　【十Ｉ．［ｉ－ｓｅｅｏｃｘｔ　

一

１Ｌ－６商一１１）　

ＩＬｆｉｒｓｔ＝Ｉｋｓｅｃｏｃｘｔ　

ｔｉ＿ｓｅｃｍｄ＝Ｐ￣（１ｓ－ｒｅ，ｐａｎｎ．　＊　．１Ｌ　十１）　

ｉｋｐｆｉｎｔ－ｍｏｄｅ＝ｉａｔｅ￣ｒ　ｃ！ｖ［ｔｄ（】ＬⅡｍｍｎ．［ｉ－ｆｉｒｓｔ＋Ｉ，１ｋ￣ｎｄ一　

】Ｌ６　一１＂　

｛ｓ—ｐｎｎＬｒ　Ｍｉｄ（［ｓ－ｒｅ，ｐａｎｎ，Ｉ１　ｄ＋ｌ，Ｌｅｎ（ＩＬ　ｐ明ｎ）　

一

ｔｉ＿ｓｅｃｔｍｄ）　

ｄｗ＿ｐｆｉｍ　ａ，ｊｅｃ【．ＤａｌａＷｉｔ￣＂Ｐｒｉｎｔ　ｃ叩ｉ　＝【Ｌｐ　ｎＬｃ叩　髑　

／／设置打印份戥　

Ｃｈｏｏｓｅ　Ｃａｓｅ　ｉｋ　Ｔｎ—ｎ　ｏｄｅ　／／设置打印范围　

Ｃａｓｅ１　，，打印生都　

ｄｗ－ｐｔｌｎｔ　Ｏｂｊｅｃｔ　ｌ￣ｍＷｉｎｄｏｗ．Ｐｒｉｎｔ．Ｐ　｝Ｒａｎｇｅ＝　

Ｃａｓｅ　２　／／？Ｅ尉打印　

ｄｗ　ｐｒｉｎｔ，Ｏｂｊｅｃｔ　Ｄ　｛ｎｄ㈣Ｐｄｎｔ　Ｐａｇｅ．Ｒ岫　＝ＬＬ　

Ｐ　ｎ￣ｒ／ｍｇｅ　

（下转第９６页）　

维普资讯

计算机应用　

在取消紧急通行后，方可恢复正常通行，反之亦然。　

利用ＶＢ６．０作为开发工具，在Ｗｉｎｄｏｗｓ９８环境下，实现了　

ｌａｌ￣ｌｌ７．ＬｉｎｋＰｏｋｅ　

２ＯＯ２丘　

上位机与Ｐｉｇ之间的串行通信，成功地在交通信号灯控制系　

统中进行了实验。部分通信程序如下：　

定义公用变量；　

Ｐｕｂｌｉｃｆｌａｇ，ｆｌｇｌｎ　ＡｓＩｎｔｅｇｅｒ　

ｌ＂，￣ｂｈｃ　ｎ　ｓＬ　

ｈ　Ⅱ　

下面是黄灯亮的控制程序　

Ｉｆｎ（＝４　Ｔｈｅｎ　

Ｓｈａｐｅ２　ＦｉｌｌＣｏｌ０ｒ＝＆ｔＷＦＦＦ＆　

Ｓ｝ｌａ　ＦｉｌｌＣｏｌ＿１ｒ＝＆ＨＨ１下Ｆ＆　

Ｓｈａｐｅｌ　ＦｉｌｌＣｄｏｒ＝＆Ｈ０＆　

Ｓｋａ￣３　ＦｉＩｌＣｄｏｒ＝＆嗽　

下面是南北紧急通行控制程序：　

ｎｅ　Ｓｕｂ　Ｃｏｍｍｍ￣ｌ＿ＣｌＪｅｋｆ　

日ｍＤｅ４　ＦｉｌｌＣｃａｍ－＝＆ＨＯｇ，　

Ｓｋ　．ＦｉｌｌＣｄ￣＝＆Ｈ０＆　

丌ｉ　＝Ｉ　

Ｈａｇ　Ｉ　

［ａｂｅＤ．Ｃ叨　帅＝　，’　

Ｉｆ　＝Ｉ　Ｔ１１ｍ　

［ａｂｅ１７．１ｊｎｋＭｃｄｅ＝２　

［ａｂｅ１７　ＩｉｎｋＰ＆ｅ　

Ｅｎｄ　

Ｓｋｍｐｅ６．Ｅ１］Ｃｏｌ￣＝＆Ｈ　

Ｓｈ瞄．ＦｉｌｌＣｄ￣＝＆Ｉ－ＷＦ０￣　

ＳｈａＤｅ１．Ｆｉｌ１Ｃｏｌｏｒ＝＆肿＆　

ＥｎｄＩｆ　

５结束语　

随着ＰＬＣ应用的日益普及，对ＰＬＣ的监控和管理显得非　

常必要。在ＰＬＣ与上位机的实时通信中，上位机通过通信程　

序对ＰＬＣ进行读写操作，而Ｐｉｇ无需做复杂的编程，通过通　

Ｅｎｄ　Ｓｕｂ　

下面是取消紧急通行的程序：　

蹦　Ｓｏｂ　Ｃｍｍａｎｄ４一Ｃ１　ｃｋ　ｃ＇　

ＬＩｎｌｏ￣ｄＭｅ　

Ｔｔｒｅ￣ｌ　Ｆｍａｌａｌｅｄ＝Ｆｄｇｅ　

ｌ＂ｕｒ￣ｌ　Ｅ，ｕｄａｌｅｄ＝Ｆａｋ￣ｅ　

Ｆａｄ　

信模块和简单的设置即可响应上位机的命令。　

本文所述的通信程序已成功地用于上述的控制系统中。　

通过该通信软件，利用Ｃ￣ＺＮＢＵＳ的性能和特点，对一定距离内　

的交通干道上的各个十字路１：３的交通状况进行监视和控制，　

完成“点控制”向“线控制”的跨越。同时本程序实现了上位机　

下面是南北通行绿灯亮东西红灯亮的控制程序　

ｌｆ　ｎ＞１４　７ｍｄ　ｎ＜＝２０　Ｔ１１肌　

Ｓｈａｐｅ６．ｎＩ１Ｃｄ＿１ｒ＝＆Ｈｆ　

Ｓｈ￣＿３　阳１Ｃｄ＿１ｒ＝越　

Ｓｈ￣ｏｅ１．ＦｆｌｌＣｏ］ｏｒ＝＆Ｈ０＆　

Ｓｈａ￣２．ＦｉＩＩＣｏ］ｏｒ＝＆｝ｌ０＆　

ｓＩＩ印ｅ５　ＦｉｌｌＣｏｌｏｒ＝＆ｍ＆　

Ｓｔｙ，４　ＦｉＩＩＣ　ｏＦ＝＆｝　＆　

Ｌａｌ￣１３　ＣⅡＤｄ０ｎ＝　

＆　

与ＰＬＣ之间的通信，不仅适用于交通管理，对于建筑管理、消　

防管理和楼宇自动化皆有一定的借鉴意义。　

参考文献　

Ｉ１】邬宽明．ｃ　总线原理和应用系统设计【Ｍ】．北京：北京航空航　

天大学出版社，１９９６．　

【２】阳宪惠现场总绒技术及其应用【Ｍ】北京：清华大学出版社．　

１９９９　

Ｌａｂｅｌ３．ＬｉｎｋＭｏｄｅ＝２　

（上接第　页）　

ｃ心　３　

］ｌ－ｃ￣ｒｒｅｎｎ＇ｏｗ＝　—ｐｆｉｎｔ　

１Ｌ　Ｔｅ【１忡

（）　

Ｉ　ｄⅡ　

／／当前页　

＝ｄｖ＿Ｆｒｉｎｔ．ｄ￣ｆｉｂｅ（　ｅｖａｌｕａｔｅ（　ｐａｇｅ（１　．　＋ｓｔｉｒｎｇ　

Ⅱｌｉ＿ｓｃａｌｅ（１０　

Ｔ　Ｔｅｘｔ＝　１Ｏ％　

ＩＬ－ｓｃａｌｅ＝１０　

ＥｎｄＩｆ　

｛】ＬｃｕＴ眦１廿０ｗ）＋　）　）　

ｉｆｌｅａ（ｋ＿ｅｍＴｅｎｔｐｎｇｅ）＞０　１ｈｅｎ　

ｄｗ－ｗｎｔ　ｍｏｄｉｆｙ（　ＤａｔａＷｉ．ｄｏｗ．Ｚｏｏｍ＝　＋Ｓｔ：ｒｌｎｇ（Ｉｎｔｅｇｅｒ（１ｉ＿ｓｃａｌｅ｝”　

３．４打印机、打印纸等的选择及打印边界的设置　

＋１　ｄ　

㈣

ｉｆ　

Ｅｎｄ凸０㈣　

ｎｔ．岫（　ｄａｔａｗｌｎｄｏｗ　ｐｒｉｎｔ　ｐａｇｅ　ｒａｎｇｅ＝　

在打印机设置命令按钮的单击事件脚车中，调用　

ｎｔＳｃ．ｔｕｐ（）函数即可实现打印机的选择，打印纸的选择，打印　

方向控制等设置，而打印页面边界的设置则可通过拖动数据　

　ｐＢ　＋”　）　

ｄｖ，＇－ｐｆｉｎｔ．０　【ＤａｍＷｉｎｄｏ￣＇Ｐｒｉｍ　ｐａｇｅ　ｒａｎｇｅｉｎｄｕｄｅ＝ｔｉ＿Ｉ　目ｅ—　

窗口标尺上的标志直观地完成，不必使用数据窗口的打印属　

性来实现。这样可充分利用ＰｏｗｅｒＢｕｉｌｄｅｒ的现有资源，简化程　

序设计的复杂程度。　

ｉ￣ｌｕａｅ　ｇ／设置打印贞面　

３　３数据窗口缩放打印的实现　

缩放打印的控制是通过一个ｅｄｉｔｍａｓｋ控件ｅｎ￣ｓｃａｌｅ和两　

４结语　

上述打印控制程序具有通用性，可将其单独保存在一个　

ｐｂｌ库中，研制信息系统时，只需将诙ｐｂｌ库包含在应用中即　

可；在需要打印某数据窗１２１时，只需用函数ＯｐｅｎＷｉｔｈＰａｍ￣（　—　

Ｄｒｌｎｔ，ｄａｔａｗｉｎｄｏｗｔｔａｍｅ）调用密１：３　ｗ＿ｐｒｉｎｔ即可。　

参考文献　

【１】　ｆ美）ｓ　—Ｃｏｌｌａｇｈｅｒ，　【ｎ｜耵Ｈｅｒｈｅ￣．Ｐｔ￣ｅｒＢｍ＇ｌｄｅｒ５　０程序设计太　

全【Ｍ】．北京：机械工业出版杜．１９９７　

个命令按钮控件ｃｂ＿ｍｍｌｌｅｒ、ｃＬ１ａｒｇ盯来实现的，用命令按钮　

来改变缩放比例（呵Ｌｓｃ　．ｔｅｘｔ的值）并触发ｅｔｔ￣ｓｃａｌｅ控件的　

ｍｏｄｉｉｆｅｄ事件．ｅｍ　ｓｃａｌｅ控件的ｍｏｄｉｉｆｅｄ事件脚本如下：　

Ｉｎｔｅｇｅｒ　Ｉｔ－￣ｃａｌｅ　

ＩｆＴｈｌａ．Ｔｅｘｔ＝　Ｔ１１肌　

１】一８ｃ　ｅ＝１１３０　

ｎｓｅ　

ｌＬ８ｃａｌｅ＝Ｉｎｔｅｇｅｒ（肌ｄｆＴｈｉｓ．Ｔｅｘｔ，ｌ，ｆｌｅｎ（ｔｈｉｓ　ｔ　Ｌ）一１”）