Pegasus的ImagXpress 8.0控件,支持各種格式文件的加載。控件封裝了右鍵局部區(qū)域放大的功能,要實現(xiàn)圖片的縮放,把AutoResize屬性設(shè)置為PegasusImaging.WinForms.ImagXpress8.AutoResizeType.CropImage,修改 ZoomFactor的值就可以了。
創(chuàng)新互聯(lián)公司專注于吐魯番網(wǎng)站建設(shè)服務(wù)及定制,我們擁有豐富的企業(yè)做網(wǎng)站經(jīng)驗。 熱誠為您提供吐魯番營銷型網(wǎng)站建設(shè),吐魯番網(wǎng)站制作、吐魯番網(wǎng)頁設(shè)計、吐魯番網(wǎng)站官網(wǎng)定制、微信小程序服務(wù),打造吐魯番網(wǎng)絡(luò)公司原創(chuàng)品牌,更為您提供吐魯番網(wǎng)站排名全網(wǎng)營銷落地服務(wù)。
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
PictureBox.SizeMode
屬性
默認(rèn)情況下,在
Normal
模式中,Image
置于
PictureBox
的左上角,凡是因過大而不適合
PictureBox
的任何圖像部分都將被剪裁掉。
使用
StretchImage
值會使圖像拉伸或收縮,以便適合
PictureBox。
使用
Zoom
的值可以使圖像被拉伸或收縮以適應(yīng)
PictureBox;但是仍然保持原始縱橫比。
使用
AutoSize
值會使控件調(diào)整大小,以便總是適合圖像的大小。
使用
CenterImage
值會使圖像居于工作區(qū)的中心。
在VB.NET操作縮放圖像中的顯示和保存縮放圖像,用到Image和Graphics類,在VSDotNet2K3下面Reference里自動添加了引用System.Drawing,直接用就行。
實現(xiàn)VB.NET操作縮放圖像代碼如下:DimimgAsImageImage=Image.FromFile
(D:\Image\tstImage.jpg)
''tstImage是原先的圖片DimgrfxAsGraphics=Me
.CreateGraphics
grfx.DrawImage(img,0,0,img.Width*
3,img.Height*3)''在Form里顯示
DimimgnewAsNewSystem.Drawing.Bitmap
(img,img.Height*3,img.Width*3)
''新建一個放大的圖片
imgnew.Save(D:\Image\tstNewImage.jpg,
System.Drawing.Imaging.ImageFormat.Jpeg)
''保存放大后圖片
你可以建一個Form,然后在Form里拖進(jìn)一個Button,把上面的代碼放在Button_Click事件里面源碼天空
,執(zhí)行就行了。
對上面VB.NET操作縮放圖像代碼的解釋:
1.要獲取Graphics對象只能從某一事件的參數(shù)中獲取或者使用窗體和控件對象的CreateGraphics方法來獲取-----上面代碼使用Me.CreateGraphics來引用這個對象。
2.加載一個圖片用Image類的FromFile或者FromStream方法
3.用DrawImage來顯示一個圖片,該方法有30多個重載方法,可以查MSDN了解細(xì)節(jié)。
4.保存時的一個問題:我們必須先建一個對象,用于存縮放圖像。
名稱欄目:vb.net圖片縮小 vb 圖片框自動調(diào)整大小
地址分享:http://chinadenli.net/article36/dodehpg.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供App設(shè)計、網(wǎng)站設(shè)計公司、App開發(fā)、微信小程序、外貿(mào)網(wǎng)站建設(shè)、
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場,如需處理請聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時需注明來源: 創(chuàng)新互聯(lián)