把文字变为图片 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

共有3143人关注过本帖树形打印复制链接主题：把文字变为图片

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编辑过]

fntfgz

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | 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()

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

fntfgz

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | 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")

下一主题 >> << 上一主题

主题：把文字变为图片