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

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

創(chuàng)新互聯(lián)建站是一家集網(wǎng)站建設(shè),天全企業(yè)網(wǎng)站建設(shè),天全品牌網(wǎng)站建設(shè),網(wǎng)站定制,天全網(wǎng)站建設(shè)報(bào)價(jià),網(wǎng)絡(luò)營(yíng)銷,網(wǎng)絡(luò)優(yōu)化,天全網(wǎng)站推廣為一體的創(chuàng)新建站企業(yè)，幫助傳統(tǒng)企業(yè)提升企業(yè)形象加強(qiáng)企業(yè)競(jìng)爭(zhēng)力?？沙浞譂M足這一群體相比中小企業(yè)更為豐富、高端、多元的互聯(lián)網(wǎng)需求。同時(shí)我們時(shí)刻保持專業(yè)、時(shí)尚、前沿，時(shí)刻以成就客戶成長(zhǎng)自我，堅(jiān)持不斷學(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) '新襪笑建一個(gè)放大的圖片

imgnew.Save("D:\Image\tstNewImage.jpg", System.Drawing.Imaging.ImageFormat.Jpeg) '保存放大后圖片

你可以建一個(gè)Form，然后鬧好燃在Form里拖進(jìn)一個(gè)Button，把上面的代碼放在Button_Click事件里面，執(zhí)行就行了。

對(duì)上面代碼的解釋：

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

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

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

4.保存時(shí)的一個(gè)問題：我們必須先建一個(gè)對(duì)象，用于存縮放圖像。

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倍時(shí)SngPer=2,縮小3倍時(shí) 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時(shí),單獨(dú)顯示一個(gè)放大的圖片?

縮州握放操作

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

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

MouseEventArgs.Delta 值可以判斷滾宏陸動(dòng)方向