VB 有没方法把rtf 或txt文本内容转成BMP图片
如题
如果是txt，
可以将其内容逐行或逐段读到字符串中，
然后用Form或PictureBox控件的Print方法显示
再使用窗口截屏功能保存到bmp文件
也可以用VB调用Word.Application对象在Word里面打开相应txt或rtf文件，再将Word窗口截屏保存到bmp文件
rtf可以load到richedit中，再保存界面就差不多了。
我的想法就是将文本读进richtext后，通过获得文本框的hwnd，然后截屏再保存，就达到LZ的要求了
关注下.
借鉴chenjl1031发表的文本框控件Text1中显示位图是可以的，这需要用API函数BitBlt将位图从Picture1复制到Text1中，要先建立DC。代码作修改:
VB code:
Option Explicit
Private Declare Function GetDC Lib "user32.dll" (ByVal hwnd As Long) As Long
Private Declare Function ReleaseDC Lib "user32.dll" (ByVal hwnd As Long, ByVal hdc As Long) As Long
Private Declare Function BitBlt Lib "gdi32.dll" (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 Const SRCCOPY As Long = &HCC0020
Private Sub Command1_Click() '将TEXTBOX文本作为图象转到PICTUREBOX中
Dim TextDC As Long
Dim Wpic As Long, Hpic As Long
Wpic = Picture1.Width
Hpic = Picture1.Height
'取得文本框DC
TextDC = GetDC(Text1.hwnd)
Call BitB
相关问答：
希望大家能够帮我下.感谢了..
源码传在大米盘 VB6 的源码 http://www.damipan.com/file/3wNoKLW.html
转为VB.NET源码.
小弟完全是新手 不懂的说.麻烦各位帮忙一下
我的EMAIL是:4452 ......
为什么工具栏按扭的宽度改变不了,在属性里改了又变成原来的数值了
大胡子真厉害，回答基本都是爆料级的
大胡子升级真快啊，这才几天就5条短裤外加月排名第一了
想想我这5个短裤混了差不多8年才得到的。
回复 ......
可以吗
好奇怪的题目额！！
可以告诉我们你到底想问什么 ？
2分给我的话就可以。
........................可以吗
可以!
纠结，
29. vb可以这样做不？ ( H )√
A. ......
我在类中有一个函数
Public Function DownloadAdditionalSite(SiteName As siteconfig, Directory As String, ymd As String) As Boolean
siteconfig是我自定义类型的数据，为什么会提示“只有在公共对象模块中� ......
