PixelToPercentage方法示例
2015-12-15 22:24:25   来源：   评论：0 点击：

下列示例把 TestPicture的顶端坐标、左侧坐标、高度和宽度从30，30，100，150（单位为像素）转换为整个屏幕百分比。

Dim dTop As Double

Dim dLeft As Double

Dim dHeight As Double

Dim dWidth As Double

dTop = 30

dLeft = 30

dHeight = 100

dWidth = 150

TestPicture.PixelToPercentage dTop, dLeft, dHeight, dWidth