Foxtable(狐表)用户栏目专家坐堂 → 把文字变为图片


  共有3140人关注过本帖树形打印复制链接

主题:把文字变为图片

帅哥哟,离线,有人找我吗?
fntfgz
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:422 积分:5081 威望:0 精华:0 注册:2012/11/16 8:21:00
把文字变为图片  发帖心情 Post By:2021/11/30 9:52:00 [只看该作者]

假如我想把 “foxtable打造新一代数据管理的标杆”  这几个字,变为一个图片文件,如下图,请问有什么方法?

 
图片点击可在新窗口打开查看此主题相关图片如下:微信截图_20211130095528.png
图片点击可在新窗口打开查看
我想把三个图片把其变成等宽,然后从上到下排列,合并到一起,成为一个文件,请老师给个思路,有代码更好
[此贴子已经被作者于2021/11/30 9:57:03编辑过]

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:109503 积分:557183 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/11/30 10:13:00 [只看该作者]


 回到顶部
帅哥哟,离线,有人找我吗?
fntfgz
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:422 积分:5081 威望:0 精华:0 注册:2012/11/16 8:21:00
  发帖心情 Post By: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()


如何把这个图片保存下来????


 回到顶部
帅哥,在线噢!
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:109503 积分:557183 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/11/30 10:32:00 [只看该作者]

Save

保存绘制好的图形,语法:

Save(FileName)

FielName: 字符型,指定文件名。 系统会根据文件的扩展名选择合适的格式保存文件,例如文件名是“c:\data\001.gif”,系统会以gif格式保存文件,如果文件名是"c:\data\001.jpg",则以jpg格式保存文件。


 回到顶部
帅哥哟,离线,有人找我吗?
fntfgz
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:422 积分:5081 威望:0 精华:0 注册:2012/11/16 8:21:00
  发帖心情 Post By: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")

 回到顶部
帅哥,在线噢!
有点蓝
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:109503 积分:557183 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By: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

 回到顶部