在VB中使用艺术字

使用Office 97时，可以在Word 97、PowerPoint 97等环境中创建各种奇妙的“艺术字”效果，真是赏心悦目。要是能在VB中使用就好了！其实在VB中，通过以下两种方式可以轻松实现“艺术字”的显示:一种是通过“OLE容器控件”插入Word 97艺术字；另一种是在VB中添加Word 97对象库，通过编程引用“艺术字”对象。以下是两种方式的具体实施步骤:

1.通过OLE容器控件插入“艺术字”

1.新建一个项目，选择“标准EXE”。
2。点击“工具箱”上的“OLE容器控件”(OLE1)，在窗体上拖动一个大小合适的显示框。
3。在出现的“插入对象”对话框中，选择“新建”，对象类型为“Microsoft Word文档”。
4。单击[确定]按钮。将出现Word 97编辑窗口。通过菜单视图/工具栏/艺术字打开艺术字工具栏，通过插入艺术字选择预设的艺术字样式，然后在艺术字编辑窗口中输入文本设置字体。
5。在VB窗口的任意位置单击鼠标，退出Word 97编辑环境。也就是可以看到VB中“艺术字”的显示效果。
6。设置OLE1控件属性。外观为“0平”，背面样式为“0横”，边框样式为“0无”。实现艺术字在窗体上的透明显示。

第二，通过添加“Word 97对象库”，通过编程引用“艺术字”对象。

1.新建一个项目，选择“标准EXE”。执行菜单“项目/参考”命令，显示“参考对话框”。在引用列表框中勾选“Microsoft Office 8.0对象库”和“Microsoft Word 8.0对象库”。通过[OK]按钮将它们添加到VB中。
2。在窗体上添加一个图片框(Picture1)和两个命令按钮(Command1，标题为“艺术字效果演示”)；2、题注为“退出”)。
3。添加以下代码:
option explicit
dim word art as new word . application
private子命令1-click ()
dim I as integer， start Variant
for I = 0 to 29
' 30艺术字样式旋转演示
艺术字. selection . shape range . text effect .
preset text effect = I ' set艺术字样式
Word . selection . shape range . text effect . font name = " simplified block letters "
艺术字. selection.copy
'艺术字被复制到剪贴板
picture 1 . picture = clipboard . get data()
Add.Select
初始化艺术字对象
word art . active document . shapes . add文本效果(0，“显示艺术字”，“阻止字体”，48，1，0，75，75)。select
end sub
private sub form-unload(cancel as integer)
word art . quit wddonotsavechanges
set word art = nothing
end sub
4 .运行程序。单击[艺术字效果演示]按钮，在图片框中开始演示。每3秒钟更改一次“艺术字”样式。
以上程序运行在VB 6.0中文版和PWin 98环境下。通过更改上述TextEffect属性，还可以显示艺术字的其他效果。同理，在VB中也可以使用Excel 97图表和PowerPoint 97幻灯片。有兴趣的话可以自己试试。