picturebox的缩放位置问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → picturebox的缩放位置问题

共有5259人关注过本帖树形打印复制链接主题：picturebox的缩放位置问题

Bin

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2014/1/23 10:05:00 [显示全部帖子]

使用代码计算一下,你扩展的幅度.然后移动起始点即可.

比如你原本 left=50 top=50 图片大小50*50 然后你增大为100*100 你可以设置 left=25 top=25 这样就中心点不变了.

Bin

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：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

Bin

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2014/1/23 10:30:00 [显示全部帖子]

此主题相关图片如下：123.gif

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目7.table

主题：picturebox的缩放位置问题