当前位置：首页 -> 技术开发 -> 程序开发 -> 使用Word的“艺术字”工具

使用Word的“艺术字”工具

时间： 2021-07-31 作者：daque

word 97中的“艺术字”东西(wordart)能创造出形形色色的笔墨，令人心旷神怡。即使能在vb中运用“艺术字”该有多好啊！因为有了面向东西本领中的代码重用思维，此刻就不妨轻快地实行这个理想了。　　代码重用重要有两种情势，即二进制代码重用与源代码重用。前者是经过创造和运用东西来实行的；后者，望文生义，是经过接受实行的，后者在c++谈话中被普遍运用。因为visual basic不扶助接受，以是在vb中的代码重用主假如指二进制代码重用，而且vb算得上是二进制代码重用的前驱。它的基础思绪是：开始将待重用的代码和数据编写翻译为二进制文献，称为activex效劳器元件，而后在存户运用步调里创造元件中类的东西来挪用该元件。在vb中最为人们所熟习的控件即是典范的二进制代码重用的例子，每个控件都是一个activex元件，在向窗体中增添一个控件的同声就创造了该控件类的一个新范例，而后经过挪用该控件的属性、本领和事变就重用了该控件中的代码。　　word 97自己即是一个宏大的代码元件，也即是说，word 97中的所有东西库是对外盛开的，它承诺其余运用步调对其举行编制程序。换句话说，word 97中的东西能被其余运用步调所挪用。而“艺术字”恰是word 97中的一种东西，所以不妨简单地在vb中挪用它。　　要运用“艺术字”，必需先把word 97的东西库介入到步调中，而后创造一个东西变量来维持对word运用步调东西的援用，不妨用两种本领创造对word运用步调东西的援用，一种本领是径直证明一个word运用步调的东西变量，比方：　　dim w as new word.application 　　这种本领称为前期绑定，它速率较快；另一种本领是证明一个东西变量w，而后把用createobject因变量创造出的word运用步调东西赋给w，比方：　　dim w as object 　　set w=createobject("word.application") 　这种本领称为后期绑定，它速率较慢。在创造了word运用步调东西后，就不妨以代码的办法像在word中举行简直操纵那么创造新文书档案，并在文书档案中介入“艺术字”。在创造好“艺术字”之后，用剪贴板将其传给窗体。在创造word运用步调东西时，vb会在后盾机动翻开word，所以，在步调中断时，该当先封闭word，其代码如次：　　w.quit wddonotsavechanges 　　底下用一个简直的名目范例帮你轻快进修怎样在vb中运用word东西。　　(1)启用microsoft visual basic 5.0，采用“规范exe”，创造一个新名目；　　(2)采用“名目”菜单中的“援用”选项，表露“援用”对话框，选中"microsoft word 8.0 object library"和"microsoft office 8.0 object library"两项，单击“决定”按钮（见图1）；　　(3)将下列代码介入到form1的“通用”|“证明”选项中：　　dim w as new word.application 　　(4)将下列代码介入到form1的load事变中：　　private sub form_load() 　　 w.documents.add.select 　　 w.activedocument.shapes.addtexteffect(0,"艺术字","隶字",48#,-1,0,183.75,70.5).select 　end sub 　　这边表露的字样是隶字的“艺术字”三个字，你不妨按照本人的爱好来变换字体（如宋体、楷体等）以及变换字样；　　(5)将下列代码介入到form1的click事变中：　　private sub form_click() 　　 w.selection.shaperange.texteffect.presettexteffect = int(rnd(1) * 30) 　　 w.selection.shaperange.texteffect.fontname = "隶字" 　　 w.selection.copy 　　 picture = clipboard.getdata() 　　end sub 　(6)将下列代码介入到form1的unload事变中：　　private sub form_unload(cancel as integer) 　　 w.quit wddonotsavechanges 　　 set w = nothing 　　end sub 　　(7)在窗体上安置一个按钮，其caption属性为"exit"，并在它的click事变中处置退出：　　private sub command1_click() 　　 end 　　end sub 　　(8)运路途序后，当鼠标在窗体上单击时，会随机地表露出一种“艺术字”字型（word中公有30种内建“艺术字”字型），下图辨别给出了隶字与宋体两种各别字体的字样为“艺术字”的几种景象。　　　同样，由这个范例不妨触类旁通，即咱们也不妨在vb中运用excel的图表、powerpoint的幻灯片，由于office 97中的产物都是代码元件，那些产物中的东西库都是不妨被其余运用步调挪用的，以是只有领会那些东西的外部接口（属性、本领和事变），就不妨简单地挪用那些东西了。

使用Word的“艺术字”工具

相关推荐

推荐下载

热门阅览

最新排行