Foxtable(狐表)用户栏目专家坐堂 → 如何获得服务器上图片文件的高和宽


  共有2384人关注过本帖平板打印复制链接

主题:如何获得服务器上图片文件的高和宽

帅哥哟,离线,有人找我吗?
cqlwsam
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1014 积分:7535 威望:0 精华:0 注册:2010/4/12 12:23:00
如何获得服务器上图片文件的高和宽  发帖心情 Post By:2021/3/15 9:50:00 [只看该作者]

窗口中有picturebox控件,需要获得服务器上图片的宽与高,决定图片在控件中的缩放方式。如何获得该图片的宽与高?谢谢!

Dim pb As WinForm.PictureBox = e.form.controls("PictureBox1")
pb.FTPclient = ftp1 '服务器图片
pb.ImageFile = t5 & t1
Dim img As Image = GetImage(t5 & t1)
If img.Height < pb.Height AndAlso img.Width < pb.Width Then
      pb.SizeMode = ImageSizeMode.CenterImage
Else
      pb.SizeMode = ImageSizeMode.Zoom
End If

运行提示:未将对象引用设置到对象的实例。

代码“dim img as image 。。。”前的部分运行正常。
代码错误应该在:Dim img As Image = GetImage(t5 & t1)
[此贴子已经被作者于2021/3/15 9:54:34编辑过]

 回到顶部