VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)
首页 - 经验之谈 - 如何自制 MetaFile
发表评论(0)作者:, 平台:, 阅读:9994, 日期:2000-03-29
如何自製 MetaFile




MetalFile ,就是副檔名 WMF 或 EMF 的向量圖檔,也就是在 Office 裏廣泛採用的美工圖庫圖案,有點荒謬的是 Office 天天在用 MetalFile,它的繪圖工具畫出來的圖也是 MetalFile,可就不提供把 Office 製作出來的圖存成 WMF 檔的功能。這在其他不會 VB 語言的當然是難事一樁,但你可以利用Office 繪圖工具把圖畫好,將全圖群組化後,按複製,再在 VB 中執行以下的語法,就可以得到獨立的 WMF 圖在 VB 裏應用。


Private Sub Command1_Click()

If Clipboard.GetFormat(vbCFMetafile) Then

Set Picture1.Picture = Clipboard.GetData

SavePicture Picture1.Picture, "c:\test\bin.wmf"

End If

End Sub