UC知道fso 图片宽 高
来源：百度知道 编辑：UC知道 时间：2024/06/07 16:17:14
用FSO 如何获取图片的宽和高，希望高手解答，不要网上的很长的代码。那些我都看过，我要精简的，比如只获取某JPG图片的高宽，写个例子，谢谢！
添加一个image控件~代码如下
Private Sub Form_Load()
Image1.Stretch = False
Image1.Picture = LoadPicture("d:\3.jpg")
Debug.Print Image1.Width / 15 '宽度
Debug.Print Image1.Height / 15 '高度
End Sub
最简单的办法
用Persits.Jpeg这个控件啦..可以获取长度和宽度的
Set Thum = Server.CreateObject("Persits.Jpeg")
' Thum.Open Server.mappath("图片地址")
' L = 1024 '这里定义缩略图的长
' If Thum.OriginalWidth > L Then
' Thum.Width = L
' Thum.Height = Thum.OriginalHeight * L / Thum.OriginalWidth
' Thum.Save Server.MapPath(filename)
' End If
' set Thum = nothing