VB 让图片自动适应picturebox控件大小的方法

Picturebox控件加载图片的方法如下:
      Picbox1.Picture = LoadPicture("C:\Users\Administrator\Desktop\picture\hmbb.jpg")
如果将Picturebox控件的AutoSize属性设为True的话,可以让图片框自动适应图片的大小,但无法让图片自动适应图片框的大小。
解决方法有两种:
方法一:使用PaintPicture方法,代码如下
      Picbox1.PaintPicture LoadPicture("C:\Users\Administrator\Desktop\picture\hmbb.jpg"), 0, 0, Picbox1.ScaleWidth, Picbox1.ScaleHeight

方法二: 使用Image控件,将其放入PictureBox中,并设其属性Stretch=True,使得图片自动适应image。代码如下
      Image2.Picture = LoadPicture("C:\Users\Administrator\Desktop\picture\hmbb.jpg", vbLPLarge, vbLPColor)

1

 

 

 

 

 

 

 

参与评论 您还未登录,请先 登录 后发表或查看评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
©️2022 CSDN 皮肤主题:黑客帝国 设计师:我叫白小胖 返回首页

打赏作者

pdstar

你的鼓励是我的最大动力

¥2 ¥4 ¥6 ¥10 ¥20
输入1-500的整数
余额支付 (余额:-- )
扫码支付
扫码支付:¥2
获取中
扫码支付

您的余额不足,请更换扫码支付或充值

打赏作者

实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、C币套餐、付费专栏及课程。

余额充值