- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 把文字变为图片 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=173439)
-- 发布时间：2021/11/30 9:52:00
-- 把文字变为图片
假如我想把 “foxtable打造新一代数据管理的标杆” 这几个字，变为一个图片文件，如下图，请问有什么方法？
此主题相关图片如下：微信截图_20211130095528.png
我想把三个图片把其变成等宽，然后从上到下排列，合并到一起，成为一个文件，请老师给个思路，有代码更好
[此贴子已经被作者于2021/11/30 9:57:03编辑过]
-- 发布时间：2021/11/30 10:13:00
--
使用绘图板。参考
-- 发布时间：2021/11/30 10:21:00
--
在指定的位置，用指定的画刷和字体，绘制指定的文本。
参数s指定要绘制的文本，font指定字体，brush指定画刷，x和y指定起始位置。
Dim p As WinForm.Painter = e.Form.Controls("Painter1")
Dim g As Graphics = p.Graphics
Dim fnt As New Font("宋体",16)
Dim msg As String = "I Like Foxtable"
g.DrawString(msg,fnt,Brushes.Red,10,10)
p.Repaint()
如何把这个图片保存下来？？？？
-- 发布时间：2021/11/30 10:32:00
--
Save
保存绘制好的图形，语法：
Save(FileName)
FielName: 字符型，指定文件名。 系统会根据文件的扩展名选择合适的格式保存文件，例如文件名是“c:\\data\\001.gif”，系统会以gif格式保存文件，如果文件名是"c:\\data\\001.jpg"，则以jpg格式保存文件。
-- 发布时间：2021/11/30 11:57:00
--
老师，就是想直接保存下来，不想能过画图板显示，下面这段代码如何修改？
Dim g As Graphics
Dim fnt As New Font("宋体",16)
Dim msg As String = "I Like Foxtable"
g.DrawString(msg,fnt,Brushes.Red,10,10)
g.Save("d:\\a.jpg")
-- 发布时间：2021/11/30 12:04:00
--
Dim bmp = new bitmap(400, 200)
Dim g = graphics.fromimage(bmp)
Dim fnt As New Font("宋体",16)
Dim msg As String = "I Like Foxtable"
g.DrawString(msg,fnt,Brushes.Red,10,10)
bmp.save("d:\\a.jpg")
bmp.Dispose