作者fumizuki (蒙面加菲狮)
看板Visual_Basic
标题Re: [VB6 ] 请问这有办法用VB 做嘛？
时间Mon Dec 18 20:09:59 2006
※ 引述《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
1F：推 Elleestjeune:请问一下我文字间有特殊符号或小图片这个好像没办法괠 12/19 10:56
2F：推 fumizuki:特殊符号直接 print 就好了 不过字型(FontName)要改 12/19 12:47
3F：推 fumizuki:图片用Set pic1=LoadPicture(.....) 读档 12/19 12:47
4F：推 fumizuki:pic.PaintPicture pic1, x, y 把图贴上去 12/19 12:51