- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]如何在启动封面上加上文字 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=185047)
-- 发布时间：2023/2/1 15:50:00
-- [求助]如何在启动封面上加上文字
就是在splash.jpe 上加上文字，不是用修改图片的方式
-- 发布时间：2023/2/1 16:08:00
--
Dim img as image = getimage("d:\\splash.jpg")
Dim bmp As new bitmap(img.width, img.height) \'宽高
Dim g = graphics.fromimage(bmp)
g.DrawImage(img,0,0)
Dim fnt As New Font("宋体",10)
g.DrawString("需要添加的文字",fnt,Brushes.Black,2,2)
bmp.save(ProjectPath & "splash2.jpg")
bmp.dispose
[此贴子已经被作者于2023/2/2 8:41:41编辑过]
-- 发布时间：2023/2/1 19:17:00
--
这个语句放哪个事件里？
-- 发布时间：2023/2/1 19:25:00
--
此主题相关图片如下：1.png
-- 发布时间：2023/2/2 8:41:00
--
Dim img as Image = getimage("d:\\splash.jpg")
-- 发布时间：2023/2/2 12:34:00
--
以下是引用有点蓝在2023/2/1 16:08:00的发言：
Dim img as image = getimage("d:\\splash.jpg")
Dim bmp As new bitmap(img.width, img.height) \'宽高
Dim g = graphics.fromimage(bmp)
g.DrawImage(img,0,0)
Dim fnt As New Font("宋体",10)
g.DrawString("需要添加的文字",fnt,Brushes.Black,2,2)
bmp.save(ProjectPath & "splash2.jpg")
bmp.dispose
这个语句放哪个事件里？ |
[此贴子已经被作者于2023/2/2 8:41:41编辑过]
-- 发布时间：2023/2/2 13:32:00
--
窗口按钮