以文本方式查看主题

-  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)

--  作者:seal51
--  发布时间:2021/2/20 14:51:00
--  PictureBox图片缩放
PictureBox的图片如何按照图片宽度等比缩放
--  作者:有点蓝
--  发布时间:2021/2/20 15:20:00
--  

PictureBox表示图片框,通常用来显示一个指定的图片。
图片框提供了多种缩放模式:

图片点击可在新窗口打开查看


--  作者:seal51
--  发布时间: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

--  作者:seal51
--  发布时间:2021/2/20 16:00:00
--  
zoom缩小的太多了,看不清了
--  作者:有点蓝
--  发布时间:2021/2/20 16:10:00
--  
那就把图片框设置大一点
--  作者:seal51
--  发布时间:2021/2/20 16:15:00
--  
需要像查看PDF文件,让图片适合宽度

[此贴子已经被作者于2021/2/20 16:17:57编辑过]

--  作者:seal51
--  发布时间: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