以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]一个字或字符占多少像素? 已搞掂,谢谢大红袍  (http://foxtable.com/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
.....

打出的效果应顶格靠右,怎么还有空白?

图片点击可在新窗口打开查看此主题相关图片如下:temp.jpg
图片点击可在新窗口打开查看


--  作者:大红袍
--  发布时间: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)