在VB.NET下面如何顯示和保存縮放圖像

實(shí)現(xiàn)代碼如下：

創(chuàng)新互聯(lián)建站是一家集網(wǎng)站建設(shè),天全企業(yè)網(wǎng)站建設(shè),天全品牌網(wǎng)站建設(shè),網(wǎng)站定制,天全網(wǎng)站建設(shè)報價,網(wǎng)絡(luò)營銷,網(wǎng)絡(luò)優(yōu)化,天全網(wǎng)站推廣為一體的創(chuàng)新建站企業(yè)，幫助傳統(tǒng)企業(yè)提升企業(yè)形象加強(qiáng)企業(yè)競爭力。可充分滿足這一群體相比中小企業(yè)更為豐富、高端、多元的互聯(lián)網(wǎng)需求。同時我們時刻保持專業(yè)、時尚、前沿，時刻以成就客戶成長自我，堅持不斷學(xué)習(xí)、思考、沉淀、凈化自己，讓我們?yōu)楦嗟钠髽I(yè)打造出實(shí)用型網(wǎng)站。

Dim img As Image = Image.FromFile("D:\Image\tstImage.jpg") 'tstImage是原先的圖片

Dim grfx As Graphics = Me.CreateGraphics

grfx.DrawImage(img, 0, 0, img.Width * 3, img.Height * 3) '在Form里顯示

Dim imgnew As New System.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í)行就行了。

對上面代碼的解釋：

1.要獲取Graphics對液虛象只能從某一事件的參數(shù)中獲取或者使用窗體和控件對象的CreateGraphics方法來獲取-----上面代碼使用Me.CreateGraphics來引用這個對象。

2.加載一個圖片用Image類的FromFile或者FromStream方法

3.用DrawImage來顯示一個圖片,該方法有30多個重載方法，可以查MSDN了解細(xì)節(jié)。

4.保存時的一個問題：我們必須先建一個對象，用于存縮放圖像。

vb點(diǎn)虐 中怎么實(shí)現(xiàn)圖片縮小和放大

Pegasus的ImagXpress 8.0控件，支持各種格式文件的答亮知加載。控件封裝了右鍵晌鍵局清消部區(qū)域放大的功能，要實(shí)現(xiàn)圖片的縮放，把AutoResize屬性設(shè)置為PegasusImaging.WinForms.ImagXpress8.AutoResizeType.CropImage，修改 ZoomFactor的值就可以了。

vb點(diǎn)虐 如何放大和縮小圖片

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

vb點(diǎn)虐 當(dāng)鼠標(biāo)移入pictureBox時,單獨(dú)顯示一個放大的圖片?

縮州握放操作

Function 縮放(ByVal bitmap As Bitmap, ByVal 倍數(shù) As Single) As Bitmap

Dim w As Integer = bitmap.Width * 倍數(shù)

Dim h As Integer = bitmap.Height * 倍數(shù)

Dim tem As New Bitmap(w, h)

Dim g As Graphics = Graphics.FromImage(tem)

g.DrawImage(bitmap, New Rectangle(0, 0, w, h), New Rectangle(0, 0, bitmap.Width, bitmap.Height), GraphicsUnit.Pixel)

g.Dispose()

Return tem

End Function

鼠冊絕慶標(biāo)滾輪事件 MouseWheel

MouseEventArgs.Delta 值可以判斷滾宏陸動方向

新聞名稱：vb點(diǎn)虐 雙擊圖片放大 vb放大圖片代碼
文章分享：http://www.chinadenli.net/article14/ddpesde.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供網(wǎng)站排名、網(wǎng)站營銷、品牌網(wǎng)站制作、域名注冊、、網(wǎng)站維護(hù)

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請盡快告知，我們將會在第一時間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場，如需處理請聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時需注明來源： 創(chuàng)新互聯(lián)