- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- picturebox的缩放位置问题 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=45352)
-- 发布时间：2014/1/23 10:03:00
-- picturebox的缩放位置问题
请问大大
如果我要代码缩放的picturebox
怎么令到这个picturebox的中心位置不变呢，也就是向四周扩张
现在默认的是想下右扩张，这样会影响到旁边的picturebox
在不用重新设置位置的情况下，有模式可以设置吗，可以做到吗
-- 发布时间：2014/1/23 10:05:00
--
使用代码计算一下,你扩展的幅度.然后移动起始点即可.
比如你原本 left=50 top=50 图片大小50*50 然后你增大为100*100 你可以设置 left=25 top=25 这样就中心点不变了.
-- 发布时间：2014/1/23 10:13:00
--
这样很不方便
如果我有50个picture位置都不同呢
最好有缩放的对齐模式可以设置呢
-- 发布时间：2014/1/23 10:17:00
--
大哥,可以计算的啊. 不要那么死板啊.
例如点击图片放大,保持中心,只需要在Click事件里放入如下代码. 有多个图片控件,在窗口全局事件写即可.
Dim w As Integer=e.Sender.Width
Dim h As Integer=e.Sender.Height
e.Sender.Width=e.Sender.Width*2
e.Sender.Height=e.Sender.Height*2
e.Sender.Left=e.Sender.Left-(e.Sender.Width-w)/2
e.Sender.Top=e.Sender.Top-(e.Sender.Height-h)/2
-- 发布时间：2014/1/23 10:29:00
--
好的 学到东西了
谢谢大大
-- 发布时间：2014/1/23 10:30:00
--
.
此主题相关图片如下：123.gif
-- 发布时间：2014/1/23 10:45:00
--
Dim w As Integer = e.Sender.Width
Dim h As Integer = e.Sender.Height
Dim l As Integer = e.Sender.Left
Dim t As Integer = e.Sender.Top
e.Sender.Width = e.Sender.Width * 1.1
e.Sender.Height = e.Sender.Height * 1.1
\'e.Sender.Width = e.Sender.Width * 0.9
\'e.Sender.Height = e.Sender.Height * 0.9
e.Sender.Left = l + (w - e.Sender.Width) / 2
e.Sender.Top = t + (h - e.Sender.Height) / 2