怎样才能把text里的内容存为pdf或jpg的图片格式

Question

怎样才能把text里的内容存为pdf或jpg的图片格式

Answer 1

pdf就不知道了
估计要用到第三方的库
存bmp还是可以的
用GetDC(Text1.hwnd)
然后BitBlt画在一个PictureBox上,然后SavePicture保存
关于这些函数的用法,你自己google一下吧

Answer 2

用下面的代码把text1画到图片框picture1上，然后怎么保存就看你的了。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
    Picture1.AutoRedraw = True
    hDC = GetDC(Text1.hWnd)
    BitBlt Picture1.hDC, 0, 0, Text1.Width \ Screen.TwipsPerPixelX, Text1.Height \ Screen.TwipsPerPixelY, hDC, 0, 0, vbSrcCopy '抓屏
    ReleaseDC 0, hDC
End Sub

Answer 3

我可以提供这样的控件
========================
提供生成/转换/浏览pdf控件,请联系[email protected]