Pegasus的ImagXpress 8.0控件,支持各種格式文件的加載。控件封裝了右鍵局部區(qū)域放大的功能,要實現(xiàn)圖片的縮放,把AutoResize屬性設置為PegasusImaging.WinForms.ImagXpress8.AutoResizeType.CropImage,修改 ZoomFactor的值就可以了。
10年積累的做網(wǎng)站、網(wǎng)站設計經(jīng)驗,可以快速應對客戶對網(wǎng)站的新想法和需求。提供各種問題對應的解決方案。讓選擇我們的客戶得到更好、更有力的網(wǎng)絡服務。我雖然不認識你,你也不認識我。但先網(wǎng)站設計制作后付款的網(wǎng)站建設流程,更有杜集免費網(wǎng)站建設讓你可以放心的選擇與我們合作。
PictureBox.SizeMode
屬性
默認情況下,在
Normal
模式中,Image
置于
PictureBox
的左上角,凡是因過大而不適合
PictureBox
的任何圖像部分都將被剪裁掉。
使用
StretchImage
值會使圖像拉伸或收縮,以便適合
PictureBox。
使用
Zoom
的值可以使圖像被拉伸或收縮以適應
PictureBox;但是仍然保持原始縱橫比。
使用
AutoSize
值會使控件調(diào)整大小,以便總是適合圖像的大小。
使用
CenterImage
值會使圖像居于工作區(qū)的中心。
'將image的stretch屬性改為true就行了.
image1.stretch=true
'就是讓圖像適應image.
'或者:
'在窗體加載時設置image的大小.
image1.width=1000
image1.height=2000
方法如下:
1、讀取該圖片;
2、使用PaintPicture方法縮放繪制圖片;
3、保存PictureBox中的圖片。
注意:VB的SavePicture只能保存BMP,想保存為其他格式,只能自己根據(jù)文件格式寫,或者找控件。
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