在VB中使用艺术字

领测软件测试网

　　 
--------------------------------------------------------------------------------

在使用Office 97时，可以在Word 97、PowerPoint 97等环境中，利用“艺术字”(WordArt)工具创建出各式各样精彩的“艺术字”效果，着实令人赏心悦目。要是在VB中也能使用，那该多好！其实，在VB中，通过以下两种方式，就可以很轻松地实现“艺术字”的显示：一种为通过“OLE容器控件”插入Word 97艺术字；另一种是通过在VB中添加Word 97对象库，编程引用“艺术字”对象即可。以下就是两种方式的具体实现步骤：
一、通过OLE容器控件插入“艺术字”
1、创建一新工程，选择“标准EXE”。
2、在“工具箱”上点击“OLE容器控件”(OLE1)，并在窗体上拖出一适当大小的显示框。
3、在出现的“插入对象”对话框中，选择“新建”，对象类型为“Microsoft Word文档”。
4、点击[确定]按钮。随即出现Word 97编辑窗口，通过菜单“视图/工具栏/艺术字”，打开“艺术字”工具栏，通过“插入艺术字”,选择预设置的“艺术字”式样，然后在编辑“艺术字”文字窗口中输入文字，设置字体。
5、在VB窗口任意处点击鼠标，退出Word 97编辑环境。即可以看到“艺术字”在VB中的显示效果。
6、设置OLE1控件属性。Appearance为“0－Flat”、BackStyle为“0－Transparant”、BorderStyle为“0－None”。实现“艺术字”在窗体上的透明显示。
二、通过添加“Word 97对象库”，编程引用“艺术字”对象
1、新建一新工程，选择“标准EXE”。执行菜单“工程/引用”命令，显示“引用对话框”。在引用列表框中勾选“Microsoft Office 8.0 Object Library”和“Microsoft Word 8.0 Object Library”。通过[确定]按钮把它们添加到VB中。
2、在窗体上添加一图片框(Picture1)，两个命令按钮(Command1,Caption为“艺术字效果演示”；Command2,Caption为“退出”)。
3、添加代码如下：
Option Explicit
Dim WordArt As New Word.Application
Private Sub Command1－Click()
Dim i As Integer, start As Variant
For i = 0 To 29
′30个艺术字式样轮换演示
WordArt.Selection.ShapeRange.TextEffect.
PresetTextEffect=i′设置艺术字式样
WordArt.Selection.ShapeRange.TextEffect.FontName = ″方正行楷简体″
WordArt.Selection.Copy
′艺术字拷贝到剪贴板
Picture1.Picture = Clipboard.GetData()
′在图片框中显示艺术字
start = Timer
Do While Timer < start ＋ 3
DoEvents ′暂停3秒
Loop
Next
End Sub
Private Sub Command2－Click()
Unload Me
End ′退出
End Sub
Private Sub Form－Load()
WordArt.Documents.Add.Select
′初始化“艺术字”对象
WordArt.ActiveDocument.Shapes.AddTextEffect(0, ″显示艺术字″, ″方正行楷简体″, 48, 1, 0, 75, 75).Select
End Sub
Private Sub Form－Unload(Cancel As Integer)
WordArt.Quit wdDoNotSaveChanges
Set WordArt = Nothing
End Sub
4、运行程序。点击[艺术字效果演示]按钮，即在图片框中开始演示。每隔3秒更换一次“艺术字”式样。
以上程序在VB 6.0中文版，PWin 98环境中运行通过。通过改变以上的TextEffect属性，还可以实现“艺术字”的其他效果展示。用同样的方法，也可以在VB中使用Excel 97图表，PowerPoint 97幻灯片等，如果有兴趣的话，可以动手试一试。 

文章来源于领测软件测试网 https://www.ltesting.net/