vb.net圖形放大 vb放大圖片代碼

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

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

成都創(chuàng)新互聯(lián)公司作為成都網(wǎng)站建設(shè)公司，專注重慶網(wǎng)站建設(shè)、網(wǎng)站設(shè)計(jì)，有關(guān)成都企業(yè)網(wǎng)站建設(shè)方案、改版、費(fèi)用等問題，行業(yè)涉及成都攪拌罐車等多個(gè)領(lǐng)域，已為上千家企業(yè)服務(wù)，得到了客戶的尊重與認(rèn)可。

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ì)象，用于存縮放圖像。

求大神指點(diǎn)vb.net 怎么把一張大圖 縮放到 和圖片框一樣大小顯示

PictureBox.SizeMode

屬性

默認(rèn)情況下，在

Normal

模式中，Image

置于

PictureBox

的左上角，凡是因過大而不適合

PictureBox

的任何圖像部分都將被剪裁掉。

使用

StretchImage

值會(huì)使圖像拉伸或收縮，以便適合

PictureBox。

使用

Zoom

的值可以使圖像被拉伸或收縮以適應(yīng)

PictureBox；但是仍然保持原始縱橫比。

使用

AutoSize

值會(huì)使控件調(diào)整大小，以便總是適合圖像的大小。

使用

CenterImage

值會(huì)使圖像居于工作區(qū)的中心。

vb.net中怎么實(shí)現(xiàn)圖片縮小和放大

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

vb.net 如何放大和縮小圖片

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

求大神指點(diǎn) vb.net 數(shù)組添加的圖片框 怎么單價(jià)單擊圖片框的時(shí)候 放大圖片框呢?

'初始化的時(shí)候添加事件

Private Sub Main_Load(....) Handles MyBase.Load

AddHandler pic_10.Click, New EventHandler(AddressOf Pic_Click)'pic_10為你自創(chuàng)建圖片的需放大的圖片名稱

End Sub

'自定義控件處理函數(shù)(注意TabIndex的編號(hào))

Protected Sub Pic_10Click(ByVal sender As Object, ByVal e As EventArgs)

'在這放大圖片

pic_10.Width+=20

pic_10.Height+=20

End Sub

網(wǎng)站題目：vb.net圖形放大 vb放大圖片代碼
本文來源：http://muchs.cn/article34/hjsgse.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供做網(wǎng)站、網(wǎng)站設(shè)計(jì)、ChatGPT、網(wǎng)頁(yè)設(shè)計(jì)公司、自適應(yīng)網(wǎng)站、網(wǎng)站改版

廣告

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