Question

VB.net 如何把文字转换为图片？

窗体上有一个textbox和一个按钮，单击按钮的时候textbox的内容转换成图片并保存到指定的位置， 如果内容超过textbox的大小 剩下的部分保存到另一个照片中。
急用。

Answer 1

         Dim bit As Bitmap=New Bitmap(textBox1.ClientRectangle.Width, _
            textBox1.ClientRectangle.Height, _
            System.Drawing.Imaging.PixelFormat.Format24bppRgb)
        
        textBox1.DrawToBitmap(bit,textBox1.ClientRectangle)
        pictureBox1.Image=bit
        bit.Save("")'保存文件的路径

这是保存文本框内容的方法，保存余下内容的方法我还要点事件弄

追问

这个方法可以保存文本框里的内容，余下的内容保存方法写完后我再采纳。

然后这个方法可以保存 Textbox 的内容， 可是 RichTextbox 的内容保存后是一张黑色的图片。
Textbox 可以用 为什么 RichTextbox 不能用？

追答

         richTextBox的DrawToBitmap方法是无效的

Dim txtToDraw As Control '要保存为图片的Control类
         Dim txtToDraw As Control
        txtToDraw=Me.richTextBox1
        Dim bit As Bitmap
        bit=New Bitmap(txtToDraw.ClientRectangle.Width, _
            txtToDraw.ClientRectangle.Height, _
            System.Drawing.Imaging.PixelFormat.Format32bppArgb)
        txtToDraw.DrawToBitmap(bit,txtToDraw.ClientRectangle)
        
        Using g As Graphics= Graphics.FromImage(bit)
            g.Clear(Color.Transparent)
            Dim p As Point=txtToDraw.PointToClient(Point.Empty)
            p.X=-p.X
            p.Y=-p.Y
            g.CopyFromScreen(p,Point.Empty,txtToDraw.ClientSize)
            g.Flush()
            
        End Using
bit.Save("")'保存文件的路径

这个方法实际就是在屏幕上截图，所以可能控件会被某些东西遮住

追问

谢谢，我试试你的代码。
你研究一下余下内容保存的问题，谢谢。
如果 RichTexebox 不能连续保存余下的部分，Texebox 也行。

追答

中英混排的时候可能排版会与文本框的有出入。

其它应该没事。

追问

能不能加我的Q，我们聊聊。

Answer 2

建个图片控件，然后打开白色的图片，把字PRINT到图片上，保存图片即可。

追问

代码怎么写？