189 8069 5689
我来赚点分——提供基本方法行吗？
创新互联建站专注于企业全网营销推广、网站重做改版、古田网站定制设计、自适应品牌网站建设、H5场景定制、商城建设、集团公司官网建设、成都外贸网站建设、高端网站制作、响应式网页设计等建站业务，价格优惠性价比高，为古田等各大城市提供网站开发制作服务。
显示：假设你已知道怎么显示图像（为了随意移动图像，先把Imagebox控件加到PictureBox控件上，在PictureBox上画Imagebox边框外这8个手柄）；在任意位置显示图像（image1.move
left,top）；图像大小的属性值能获取（图像在ImageBox完整显示并拉伸，则只关注ImageBox尺寸属性值即可）；
移动：如果在ImageBox按下了鼠标则记住此点(xi0,yi0)及(image1.left,image1.top),在鼠标Move事件中根据鼠标在ImageBox的位置(xi,yi),
计算变换量(dx=xi-xi0,
dy=yi-yi0),
并把(dx,dy)加到(image1.left,image1.top)；更新这8个手柄；
缩放：当鼠标移到这8个位置附近(在PictureBox.MouseMove中判断)改变其形状属性值，若按下，则根据移动变化量调整Imagebox尺寸或位置——这需要针对每一个位置做出决定，不难办到。
PictureBox.SizeMode
属性
默认情况下，在
Normal
模式中，Image
置于
PictureBox
的左上角，凡是因过大而不适合
PictureBox
的任何图像部分都将被剪裁掉。
使用
StretchImage
值会使图像拉伸或收缩，以便适合
PictureBox。
使用
Zoom
的值可以使图像被拉伸或收缩以适应
PictureBox；但是仍然保持原始纵横比。
使用
AutoSize
值会使控件调整大小，以便总是适合图像的大小。
使用
CenterImage
值会使图像居于工作区的中心。
Pegasus的ImagXpress 8.0控件，支持各种格式文件的加载。控件封装了右键局部区域放大的功能，要实现图片的缩放，把AutoResize属性设置为PegasusImaging.WinForms.ImagXpress8.AutoResizeType.CropImage，修改 ZoomFactor的值就可以了。
Sub 图片缩放()
Dim SngPer As Single = 1 '放大或缩小的比例 放大2倍时SngPer=2,缩小3倍时 SngPer=1/3
Dim PicOld As Image = Image.FromFile("原图片路径")
Dim PicNew As New System.Drawing.Bitmap(PicOld, PicOld.Width * SngPer, PicOld.Height * SngPer)
PicNew.Save("新图片路径", Drawing.Imaging.ImageFormat.Jpeg)
End Sub
'将image的stretch属性改为true就行了.
image1.stretch=true
'就是让图像适应image.
'或者:
'在窗体加载时设置image的大小.
image1.width=1000
image1.height=2000
方法如下：
1、读取该图片；
2、使用PaintPicture方法缩放绘制图片；
3、保存PictureBox中的图片。
注意：VB的SavePicture只能保存BMP，想保存为其他格式，只能自己根据文件格式写，或者找控件。
您好，看到您的问题很久没有人回答，但是问题过期无人回答会被扣分并且你的悬赏分也会被没收！所以我给你提几条建议： 1，提问要尽量完整清晰不要有生僻的字，回答者一点都不知道你的情况如果你的问题也不清楚的话回答者就不知道你说的是什么，就谈不上回答你的问题了。 2，提问时不要一次性提很多相同的问题，提相同的问提让人看着很有压力很烦恼，甚至会认为你作弊的。所以一个问题提一次请出简明即可。 3，提问者应该尊重回答者，别人不是你的奴隶必须为你解决问题，所以提问时请注意文明用语！尊重他人的劳动。 4，不要问一些太简单的问题，不要明知故问，这是浪费回答者宝贵的时间啊！且不要问一些涉嫌违规的问题。 5，不要涉及尖端科学 ，问问里只是一些普通的人，如果你提得问题连科学家都没有答案，很难在这里问出答案来 ？ 6，可以多交一些知识渊博的网友，以前的一些较难的题，如果有人回答对了，可以和回答者成为好朋友，经常保留着联系，有问题了可以互相探讨的！ 您可以不采纳我的答案，但请您一定要考虑下我的建议哦！ 谢谢采纳！祝你得到满意的结果！