以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- [求助]一个字或字符占多少像素? 已搞掂,谢谢大红袍 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=68766) |
-- 作者:yinyb36 -- 发布时间:2015/5/24 21:34:00 -- [求助]一个字或字符占多少像素? 已搞掂,谢谢大红袍 想计算打印水印的位置,怎么跟据字符串的长度和字体的尺寸计算字符串占用的像素:长占用多少像素?高占用多少像素? [此贴子已经被作者于2015/5/24 23:29:25编辑过]
|
-- 作者:大红袍 -- 发布时间:2015/5/24 21:38:00 -- 参考 http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=64395&skin=0
|
-- 作者:yinyb36 -- 发布时间:2015/5/24 22:26:00 -- Dim rt As New prt.RenderText \'定义一个文本对象 rt.Text = str \'设置文本对象的内容 Dim g As Graphics = basemainform.CreateGraphics Dim size = g.MeasureString(rt.Text,fnt) LX = Img.Width - size.width ..... 打出的效果应顶格靠右,怎么还有空白?
|
-- 作者:大红袍 -- 发布时间:2015/5/24 22:31:00 -- 贴出可以测试的代码。 |
-- 作者:yinyb36 -- 发布时间:2015/5/24 22:31:00 -- 或者空白出的像素是多少?加回像素也行 |
-- 作者:大红袍 -- 发布时间:2015/5/24 22:32:00 -- 看4楼 |
-- 作者:yinyb36 -- 发布时间:2015/5/24 22:46:00 -- ,做出的例子又是顶格的 |
-- 作者:大红袍 -- 发布时间:2015/5/24 22:50:00 -- 呃,原本的代码原封不动发上来看看。 |
-- 作者:yinyb36 -- 发布时间:2015/5/24 22:54:00 -- 已搞掂,谢谢大红袍
[此贴子已经被作者于2015/5/24 23:26:45编辑过]
|
-- 作者:大红袍 -- 发布时间:2015/5/24 23:03:00 -- 代码没什么问题,弹出值看一下。
而且,你的代码,就是设置右下角的啊。
TY = Img.Height - fnt.Size - Y msgbox(Y) msgbox(ty) |