推 Elleestjeune:請問一下我文字間有特殊符號或小圖片這個好像沒辦法괠 12/19 10:56
推 fumizuki:特殊符號直接 print 就好了 不過字型(FontName)要改 12/19 12:47
推 fumizuki:圖片用Set pic1=LoadPicture(.....) 讀檔 12/19 12:47
推 fumizuki:pic.PaintPicture pic1, x, y 把圖貼上去 12/19 12:51
※ 引述《Elleestjeune (夏天掰掰)》之銘言：
: 請問一下從Word 把一段文字 copy 下來可以貼到小畫家裡
: 變成一個圖片檔, 這是怎麼做到的呢？ 有辦法在 VB 做到
: 嘛？ 好神奇哦~ 有人可以告訴我怎麼做到的嘛？..謝謝 <O>
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
--
▃▅▇▆▄ ▆▂▃ `
逝去感情如何能留住，半點癡情遺留殊不易，██▅▇▄▃ ▇▃▂" .
█████████▃i ▁▄▇
更多悽悽慘慘的遭遇…………██▆▃ █▅▆▃ˍ▄*
◢ ▂█▄▇▅▂▌.
我不知道，王～八～蛋～～！ ▂▆███ █▄▃ 。fumizuki。Check。
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 218.184.116.55