可以将RTF文件内容保存为图片吗?怎么实现?

zhouluocheng 2008-04-01 11:44:50
可以将RTF文件内容保存为图片吗?怎么实现?
...全文
198 点赞 收藏 15
写回复
15 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
赵4老师 2011-11-09
可以用虚拟打印机打印到图片中。
回复
无·法 2011-11-08
[Quote=引用 13 楼 yanfuliang 的回复:]

帮顶下 。。。。
[/Quote]三年了,可能楼主都出家了。。。
回复
yanfuliang 2011-11-08
帮顶下 。。。。
回复
zhouluocheng 2008-05-09
怎么没人回答我的问题...没人会吗?等........
回复
都是很好的建议! 值得学习
回复
zhouluocheng 2008-04-15
我就是想让RTF、TXT文件中内容加载到PICTUREBOX中实现各种动作的预览,您介绍的那种是截屏吧,只有添加到文本框中然后截屏才能实现,那如果我想让RTF、TXT这个文件中的内容在后台输出到PICTUREBOX中来实现预览可以吗?请指教
好像DrawText函数不知道可以用不?找了好多关于它的例子,但还是不大会用它。
回复
zhouluocheng 2008-04-14
它只能取当前Richtextbox中能看见的内容啊,如果Richtextbox中有多页的话,那怎么获取它滚动条下边的内容啊?
回复
pvgyetg 2008-04-03
参考下VC的
回复
guyehanxinlei 2008-04-02
学习一下
回复
zhouluocheng 2008-04-01
能说一下方法吗?在线等,急!
回复
CathySun118 2008-04-01
参考下VC的
回复
东方之珠 2008-04-01
顶...
回复
lightsylvanus 2008-04-01
学习下
回复
脆皮大雪糕 2008-04-01
Option Explicit
Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long

Private Sub Command1_Click()

Dim hdcRich As Long
Me.ScaleMode = 3
Me.RichTextBox1.LoadFile "c:\test.rtf"
hdcRich = GetDC(RichTextBox1.hwnd)
Debug.Print BitBlt(Picture1.hDC, 0, 0, Me.RichTextBox1.Width, Me.RichTextBox1.Height, hdcRich, 0, 0, vbSrcCopy)
End Sub


东西到了picture里面剩下的事情就是你的了
回复
导入rtf流,并按实现打印预览的方法,打印预览就是将窗体或控件做成和图片。
回复
相关推荐
发帖
VB基础类
创建于2007-09-28

7491

社区成员

VB 基础类
申请成为版主
帖子事件
创建了帖子
2008-04-01 11:44
社区公告
暂无公告