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

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

10年積累的成都網(wǎng)站制作、網(wǎng)站設(shè)計經(jīng)驗，可以快速應(yīng)對客戶對網(wǎng)站的新想法和需求。提供各種問題對應(yīng)的解決方案。讓選擇我們的客戶得到更好、更有力的網(wǎng)絡(luò)服務(wù)。我雖然不認識你，你也不認識我。但先網(wǎng)站設(shè)計后付款的網(wǎng)站建設(shè)流程，更有永和免費網(wǎng)站建設(shè)讓你可以放心的選擇與我們合作。

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里拖進一個Button，把上面的代碼放在Button_Click事件里面，執(zhí)行就行了。

對上面代碼的解釋：

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

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

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

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

vb點虐 如何制作多圖動畫 最好用循環(huán)語句~

很簡單啊，軟糖給你代碼

For?i?=?1?To?9999

Dim?名稱?As?String?=?String.Format("Img{0}.png",?編號)?'會返回Img1.png,Img2.png...

picturebox1.Image?=?Bitmap.FromFile(名稱)

Next

滿意請采納，謝謝。

vb點虐 中，如何像下圖一樣，用很簡單的辦法，導(dǎo)入1000張圖片。

很簡單的方法，貌似沒有。這個需要自己寫很多代碼：

用一個ListView控件。

判斷滾動條當(dāng)前所顯示的圖片集合，獲取它們的物理路徑。

用Bitmap.FromImage方法把這些圖片讀出來，

然后獲取縮略圖，

把縮略圖用Graphics.DrawImage()繪制出來。

我可以提供Bitmap如何獲取縮略圖的方法：

'''?summary必須創(chuàng)建一個委托并將對此委托的引用作為獲取縮略圖?callback?參數(shù)傳遞，但不使用此委托。/summary

Public?Function?ThumbnailCallback()?As?Boolean

Return?False

End?Function

'''?summary返回Image，表示圖像指定?寬?和?高?的縮略圖。/summary

Public?Function?獲取縮略圖(位圖?As?Bitmap,?寬?As?Integer,?高?As?Integer)?As?Image

Dim?myCallback?As?New?Image.GetThumbnailImageAbort(ThumbnailCallback)

Return?位圖.GetThumbnailImage(寬,?高,?myCallback,?IntPtr.Zero)

End?Function