Re: [VB6 ] 請問這有辦法用VB 做嘛？
※ 引述《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
推
12/19 10:56, , 1F
12/19 10:56, 1F
推
12/19 12:47, , 2F
12/19 12:47, 2F
推
12/19 12:47, , 3F
12/19 12:47, 3F
推
12/19 12:51, , 4F
12/19 12:51, 4F
討論串 (同標題文章)