'将image的stretch属性改为true就行了.
创新互联公司是一家专业提供君山企业网站建设,专注与网站建设、成都网站设计、H5网站设计、小程序制作等业务。10年已为君山众多企业、政府机构等服务。创新互联专业的建站公司优惠进行中。
image1.stretch=true
'就是让图像适应image.
'或者:
'在窗体加载时设置image的大小.
image1.width=1000
image1.height=2000
方法如下:
1、读取该图片;
2、使用PaintPicture方法缩放绘制图片;
3、保存PictureBox中的图片。
注意:VB的SavePicture只能保存BMP,想保存为其他格式,只能自己根据文件格式写,或者找控件。
利用picture控件的话,图片大小可用代码控制。
利用image控件,把stretch属性该为true,就可以通过改变控件大小改变图片大小
移动图片可以移动其所在控件来移动,利用其left
,top
等属性
对与控件的边框可通过改其borderstyle、apperence等属性,选择你喜欢的样式。
Pegasus的ImagXpress 8.0控件,支持各种格式文件的加载。控件封装了右键局部区域放大的功能,要实现图片的缩放,把AutoResize属性设置为PegasusImaging.WinForms.ImagXpress8.AutoResizeType.CropImage,修改 ZoomFactor的值就可以了。
PictureBox.SizeMode
属性
默认情况下,在
Normal
模式中,Image
置于
PictureBox
的左上角,凡是因过大而不适合
PictureBox
的任何图像部分都将被剪裁掉。
使用
StretchImage
值会使图像拉伸或收缩,以便适合
PictureBox。
使用
Zoom
的值可以使图像被拉伸或收缩以适应
PictureBox;但是仍然保持原始纵横比。
使用
AutoSize
值会使控件调整大小,以便总是适合图像的大小。
使用
CenterImage
值会使图像居于工作区的中心。
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。
移动位置:就是改变控件的:Left属性和Top属性;
使边框所谓的润滑,就是设置控件的BorderStyle
属性