- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- PictureBox图片缩放 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=160760)
-- 发布时间：2021/2/20 14:51:00
-- PictureBox图片缩放
PictureBox的图片如何按照图片宽度等比缩放
-- 发布时间：2021/2/20 15:20:00
--
PictureBox表示图片框，通常用来显示一个指定的图片。
图片框提供了多种缩放模式：
-- 发布时间：2021/2/20 15:22:00
--
这几种都不适合， 比如设定宽度=1000， 高度随着宽度等比缩放，也就是说如何按指定比例缩放
比如
Dim pic As WinForm.PictureBox = e.Form.Controls("picturebox1")
Dim img As image = getImage(pic.ImageFile)
img.width =1000
img.height=1000 / img.width * img.height \'高度按比例缩放
不知道如何写？？
[此贴子已经被作者于2021/2/20 15:31:18编辑过]
-- 发布时间：2021/2/20 15:46:00
--
PictureBox缩放模式设置为zoom即可，图片会根据图片框的大小自动等比拉伸的。
如果要更改图片，参考：http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=89637
-- 发布时间：2021/2/20 16:00:00
--
zoom缩小的太多了，看不清了
-- 发布时间：2021/2/20 16:10:00
--
那就把图片框设置大一点
-- 发布时间：2021/2/20 16:15:00
--
需要像查看PDF文件，让图片适合宽度
[此贴子已经被作者于2021/2/20 16:17:57编辑过]
-- 发布时间：2021/2/20 16:19:00
--
此主题相关图片如下：qq截图202102201613045353.png
此主题相关图片如下：qq截图202102201614165454.png
[此贴子已经被作者于2021/2/20 16:19:56编辑过]
-- 发布时间：2021/2/20 16:42:00
--
更改图片，参考：http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=89637