vb 读取图片遇到的问题

来源：百度知道 编辑：UC知道 时间：2024/05/23 02:17:49
我用loadpicture函数把图片装载到picturebox里面 ，想得到图片的长度和宽度怎么弄啊

你可以将图片先载入image控件里~设置Image1.Stretch = True
Image1.Width
Image1.Height
这2个就是该图片实际长宽了~

VB 中 picturebox 通过 loadpicture装入图片以后
图片 宽度和高度 分别是
Picture.Width
Picture.Height
单位是微米，而不是象素
要得到象素单位下的 宽度和高度 要做一步 换算

Const MILLICMETERCELL = 26.45836'每一个像素点相当于多少微米

Dim w As Long
Dim h As Long

w = Clng(Picture1.Picture.Width / 26.45836 + 0.5)
h = Clng(Picture1.Picture.Height / 26.45836 + 0.5)

w, h 就是 图片 象素的 宽度和高度

Picture1.AutoSize = True
Picture1.ScaleMode = 3
Picture1.Picture = LoadPicture(图片文件名)
图片宽度 = Picture1.ScaleWidth
图片高度 = Picture1.ScaleHeight

我的方法与mosquitokobe 一样，就不打出来了，呵呵