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

[zhouluocheng]

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

[用户 昵称]

导入rtf流，并按实现打印预览的方法，打印预览就是将窗体或控件做成和图片。

[脆皮大雪糕]

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里面剩下的事情就是你的了

[lightsylvanus]

学习下

[东方之珠]

顶...

[CathySun118]

参考下VC的

[zhouluocheng]

能说一下方法吗?在线等,急!

[guyehanxinlei]

学习一下

[pvgyetg]

参考下VC的

[zhouluocheng]

它只能取当前Richtextbox中能看见的内容啊,如果Richtextbox中有多页的话,那怎么获取它滚动条下边的内容啊?

[zhouluocheng]

我就是想让RTF、TXT文件中内容加载到PICTUREBOX中实现各种动作的预览,您介绍的那种是截屏吧，只有添加到文本框中然后截屏才能实现，那如果我想让RTF、TXT这个文件中的内容在后台输出到PICTUREBOX中来实现预览可以吗？请指教
好像DrawText函数不知道可以用不？找了好多关于它的例子，但还是不大会用它。

[knowledge_Is_Life]

都是很好的建议! 值得学习

[zhouluocheng]

怎么没人回答我的问题...没人会吗?等........

[yanfuliang]

帮顶下 。。。。

[无·法]

[Quote=引用 13 楼 yanfuliang 的回复:]

帮顶下 。。。。
[/Quote]三年了，可能楼主都出家了。。。

[赵4老师]

可以用虚拟打印机打印到图片中。