字体内部间距
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的距离不一样大啊。
好像是字体内部间距。
[解决办法]
你说的是窗口边框吧
[解决办法]
建议先在一个不可见的picture上print,然后用point函数取像素值得到所需字体内部间距。
前提是picture1.autoredraw=true