Image
Image表示图片。
Image的属性有:
Width:以像素为单位的宽度
Height:以像素为单位的高度
HorizontalResolution:水平分辨率,也就是水平方向每英寸的像素个数。
VerticalResolution:垂直分辨率,也就是垂直方向每英寸的像素个数。
示例
计算指定图片的面积,以平方米为单位:
Dim
img
As
Image =
GetImage("c:\data\girl.jpg")
Dim
mj As
Double
If
img IsNot
Nothing Then
mj = mj
+ img.width
* img.height
/ img.HorizontalResolution
/ img.HorizontalResolution
/ 1550.0031
End
If
OutPut.Show("面积:"
& mj
& "(平方米)")
提示: 1平方米等于1550.0031平方英寸。