VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)
首页 - 经验之谈 - 在VB中使用艺术字
发表评论(0)作者:刘雄伟, 平台:VB6.0+Win98, 阅读:10374, 日期:2000-11-02
在VB中使用艺术字
2000-10-28 14:51:03 刘雄伟

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


在使用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幻灯片等,如果有兴趣的话,可以动手试一试。