作者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