VFP调用Word创建文档
|
|
|
|
作者：佚名
来源：InterNet 加入时间：2005-1-31 |
|
在应用系统的设计中，有时要求在程序中自动调用Ｍｉｃｒｏｓｏｆｔ 应用程序，如Ｗｏｒｄ或Ｅｘｃｅｌ 等来创建文档或制作表格。在开发一个办公系统时，就采用了这种方法。
设计环境：
①ＭｉｃｒｏＳｏｆｔ Ｖｉｓｕａｌ ＦｏｘＰｒｏ ５．０中文版；
②Ｗｉｎｄｏｗｓ ９８中文操作系统；
③Ｍｉｃｒｏｓｏｆｔ （Ｒ）Ｗｏｒｄ ９７。
首先创建一个表单Ｆｏｒｍ１，在Ｆｏｒｍ１上新建一个命令按扭Ｃｏｍｍａｎｄ１，并设置Ｃｏｍｍａｎｄ１的Ｃａｐｔｉｏｎ 为“自动创建Ｗｏｒｄ文档”。Ｃｏｍｍａｎｄ１的Ｃｌｉｃｋ 过程包括下列命令
语句：ｃ ＭｅｓｓａｇｅＴｉｔｌｅ ＝＇启动窗＇
ｃ ＭｅｓｓａｇｅＴｅｘｔ ＝＇启动Ｍｉｃｒｏｓｏｆｔ （Ｒ）
Ｗｏｒｄ ９７＇ｎＤｉａｌｏｇＴｙｐｅ ＝０＋６４＋０
ｎＡｎｓｗｅｒ ＝ＭＥＳＳＡＧＥＢＯＸ
（ｃ ＭｅｓｓａｇｅＴｅｘｔ ，ｎＤｉａｌｏｇＴｙｐｅ ，ｃ ＭｅｓｓａｇｅＴｉｔｌｅ）
ｆｉｌｅｎａｍｅ ＝＇９９年工作计划＇
ｐｕｂｌｉｃ ｏｂｊｗｄｏｃ
ｎｌｌｏｃａｌｅＩｄ ＝ｓｙｓ（３００４）
＝ｓｙｓ（３００６，１０３３）
ｏｂｊＷＤｄｏｃ ＝ｃｒｅａ（＂ｗｏｒｄ ．ｂａｓｉｃ＂）
ｏｂｊｗｄｄｏｃ ．ａｐｐｓｈｏｗ
ｏｂｊＷＤｄｏｃ ．ａｐｐｍａｘｉ ｍｉｚｅ
ｏｂｊｗｄｄｏｃ ．ｆｉｌｅｎｅｗｄｅｆａｕｌｔ
ｏｂｊｗｄｄｏｃ ．ｆｉｌｅｓａｖｅａｓ（＂＆ｆｉｌｅｎａｍｅ＂）
＝ｓｙｓ（３００６，ｖａｌ（ｎｌＬｏｃａｌｅＩｄ））
ｃ ＭｅｓｓａｇｅＴｉｔｌｅ ＝＇结束窗＇
ｃ ＭｅｓｓａｇｅＴｅｘｔ ＝＇文档创建完毕＇＋ｃｈｒ（１３）＋＇退出Ｍｉ—
ｃｒｏｓｏｆｔ （Ｒ）Ｗｏｒｄ ９７＇
ｎＤｉａｌｏｇＴｙｐｅ ＝０＋６４＋０
ｎＡｎｓｗｅｒ ＝ＭＥＳＳＡＧＥＢＯＸ（ｃ ＭｅｓｓａｇｅＴｅｘｔ ，ｎＤｉａｌｏｇＴｙｐｅ ，
ｃ ＭｅｓｓａｇｅＴｉｔｌｅ）
这样，在命令窗口中运行上述Ｆｏｒｍ 时，单击“自动创建Ｗｏｒｄ 文档”按扭，则自动调用Ｗｏｒｄ ９７创建文档，且文档的名字为“９９年工作计划”。
[文章录入员:nancy] |
|
|
|
|
