如何将text控件中的内容存储成图片

Question

非常急，谢了！！

Answer 1

如果是文本框中是图片的路径的话。
用picture控件的loadpicture方法加载这个图片就行。

Answer 2

我的意思是将textbox控件中的文字内容存储成文本

Answer 3

Picture1.Font = Text1.Font
    Picture1.BackColor = Text1.BackColor
    Picture1.Width = Text1.Width
    Picture1.Height = Text1.Height
    Picture1.Cls
    Picture1.AutoRedraw = True
    Picture1.Print Text1
    SavePicture Picture1.Image, "h:\test.bmp"

Answer 4

用api怎么做，实际上我是将textbox中的内容一点不便的拷到图片中，包括在哪里换行等等

Answer 5

Option ExplicitPrivate Declare Function TextOut Lib "gdi32" Alias "TextOutA" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal lpString As String, ByVal nCount As Long) As Long
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 LongPrivate Sub Form_Click()
    TextOut GetDC(Text1.hwnd), 0, 0, "hello world !", Len("hello world !")
    
    BitBlt Picture1.hdc, 0, 0, Text1.Width, Text1.Height, GetDC(Text1.hwnd), 0, 0, vbSrcCopy    SavePicture Picture1.Image, App.Path + "\tmp.bmp"
End SubPrivate Sub Form_Load()
    Picture1.AutoRedraw = True
End Sub========================================================================
bitblt　时的图片大小和位置自己控制调整好了

Answer 6

对了，text1 里面的文字不一定非要用　TextOut　打印出来的，用键盘输入的一样可以用

Answer 7

对了，text1 里面的文字不一定非要用　TextOut　打印出来的，用键盘输入的一样可以用

Answer 8

bitblt函数一定可以满足你的要求，我用过，不过传入text的句柄。

Answer 9

Bitblt函数不行。它不能获取没有显示出来的地方的内容。