Question

vb 图像大小调整问题

(用Imagebox)如图，像这幅图片说明的那样，通过8个点，调整图像的大小，并且可以通过用鼠标点住不放，在窗体内移动图片。

Answer 1

我来赚点分——提供基本方法行吗？

1. 显示：假设你已知道怎么显示图像（为了随意移动图像，先把Imagebox控件加到PictureBox控件上，在PictureBox上画Imagebox边框外这8个手柄）；在任意位置显示图像（image1.move left,top）；图像大小的属性值能获取（图像在ImageBox完整显示并拉伸，则只关注ImageBox尺寸属性值即可）；

2. 移动：如果在ImageBox按下了鼠标则记住此点(xi0,yi0)及(image1.left,image1.top),在鼠标Move事件中根据鼠标在ImageBox的位置(xi,yi), 计算变换量(dx=xi-xi0, dy=yi-yi0), 并把(dx,dy)加到(image1.left,image1.top)；更新这8个手柄；

3. 缩放：当鼠标移到这8个位置附近(在PictureBox.MouseMove中判断)改变其形状属性值，若按下，则根据移动变化量调整Imagebox尺寸或位置——这需要针对每一个位置做出决定，不难办到。
   

Answer 2

我也发个代码给您参考