請教：如何將txt文本或Word文檔轉換成圖片？

Question

對整篇文章，直接轉換成圖片？如果用Print會很慢，可以有其它方法嗎？
多謝了！

Answer 1

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 Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function ReleaseDC Lib "user32" (ByVal hwnd As Long, ByVal hdc As Long) As LongPrivate Sub Command1_Click()
    Dim hdc As Long
    Dim sw As Integer
    Dim sh As Integer
    Picture1.AutoRedraw = True
    hdc = GetDC(Text1.hwnd)
    Picture1.Width = Text1.Width
    Picture1.Height = Text1.Height
    sw = Text1.Width
    sh = Text1.Height
    BitBlt Picture1.hdc, 0, 0, sw, sh, hdc, 0, 0, vbSrcCopy
    ReleaseDC Text1.hwnd, hdc
    Picture1.AutoRedraw = False
    Picture1.Refresh
    SavePicture Picture1.Image, "c:\a.bmp"
End Sub

Answer 2

其中 Text1 里面放上你的文本 ，点击 command1后会生成 c:\a.bmp 文件

Answer 3

謝謝baoaya(点头) 。我先試一試。

Answer 4

現在的問題是：如果文章很長，text框放不下，那就用滾動條。但這樣就不能在picture中現實完全。
即BitBlt截取的僅僅是text框，而不是圖片了。請問，是否可以直接從文件中讀文字，接著打印在picture框中？

Answer 5

可以的,用picture.print 
如何取出你自己看看读写文本的方法

Answer 6

你可以添加一个临时的Text2,大小是一行或者是N行然后把他放到picture框中 然后在打印下面几行BitBlt  的前2个参数 决定重哪里开始画

Answer 7

用picture.print，然后savepicture就行，不过如果文本太长，得自己编程控制每张图片中文字的数量

Answer 8

baoaya(点头)  强接点分