作者Elleestjeune (夏天掰掰)
看板Visual_Basic
標題Re: [VB6 ] 請問這有辦法用VB 做嘛？
時間Tue Dec 19 14:31:49 2006
※ 引述《fumizuki (矇面加菲獅)》之銘言：
: Dim pic As PictureBox, s As String
: Set pic = Me.Controls.Add("VB.PIctureBox", "Picture1", Me)
: s = Clipboard.GetText '把剪貼簿中的文字取出來
: If s <> "" Then
: pic.AutoRedraw = True
: pic.FontSize = 16
: pic.FontBold = True
: pic.CurrentX = 0: pic.CurrentY = 0
: pic.Width = pic.TextWidth(s) + 150 '不知道不加150字會超出範圍算不算M$的bug
: pic.Height = pic.TextHeight(s)
: pic.Print s
: SavePicture pic.Image, "c:\vb.gif"
: End If
版大誤會我的意思了..Orz
小弟的問題是小畫家可以把Word的一段文字+圖型直接轉換成圖檔,
試過把那段文+圖直接貼到VB form裡, form.picture 是顯示"中繼檔",
再試過把文+圖貼到小畫家再從小畫家copy 到 VB form, form.picture
則是顯示"點陣圖",小弟不清楚這段的處理是怎麼辦到的, 也試過用
OLE 收納器去接, 用OLE.Paste 可以把這段貼出來, 但用OLE.SaveToFile
或是用OLE.filenumber 寫到某個檔之後卻讀不到原來的格式了..Orz
想在網路上找 OLE 相關的書籍好像都沒有了~ 出版的都是三四年前的書哩~
請問有人有解嘛？ <O>
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 61.220.34.34