| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 如何获取文本对象的宽度 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=144832) |
| -- 作者：xa139 -- 发布时间：2019/12/31 9:24:00 -- 如何获取文本对象的宽度 Dim rtitle As New prt.RenderText \'定义一个文本对象 With rtitle .Text = "苏州精准医疗科技有限公司" \'设置文本对象的内容 .Style.Font= New Font("黑体", 16, FontStyle.Bold)
\'字体 .Width = "Auto" .x=val(doc.PageSetting.Width)/2 - val(.Width)/2 .......... 怎样获取文本宽度?
|
| -- 作者：有点蓝 -- 发布时间：2019/12/31 9:46:00 -- Dim left As Integer = val(doc.PageSetting.LeftMargin) .x = "(Parent.Width - Width)/2 +" & left
|