字体内部间距

JCHB1234 2012-12-21 10:47:48
Private Sub Command1_Click()
Picture1.ScaleMode = vbPixels

Picture1.FontSize = 10
Picture1.Print "x"

Picture1.CurrentX = 20
Picture1.CurrentY = 0

Picture1.FontSize = 100
Picture1.Print "x"
End Sub
上面代码中,第二次打印的X,他的Y轴 虽然是0,但是他和PICTURE1的上边还有距离,怎样获取这个距离呢?第一个X的距离和第二个X的距离不一样大啊。
好像是字体内部间距。
...全文
110 点赞 收藏 5
写回复
5 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
赵4老师 2012-12-24
建议先在一个不可见的picture上print,然后用point函数取像素值得到所需字体内部间距。 前提是picture1.autoredraw=true
回复
JCHB1234 2012-12-24
我知道是字体的内部间隔,但不知那个API能获取到上下的间隔。
回复
JCHB1234 2012-12-24
WORD 里,不管字号有多大差异,底部总是对齐的,PICTURE里怎实现呢
回复
bcrun 2012-12-21
你说的是窗口边框吧
回复
JCHB1234 2012-12-21
不是窗口边框
回复
相关推荐
发帖
API
创建于2007-09-28

1465

社区成员

VB API
申请成为版主
帖子事件
创建了帖子
2012-12-21 10:47
社区公告
暂无公告