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

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

成都創(chuàng)新互聯(lián)提供成都網(wǎng)站設(shè)計(jì)、做網(wǎng)站、網(wǎng)頁(yè)設(shè)計(jì)，品牌網(wǎng)站設(shè)計(jì)，廣告投放平臺(tái)等致力于企業(yè)網(wǎng)站建設(shè)與公司網(wǎng)站制作，十年的網(wǎng)站開(kāi)發(fā)和建站經(jīng)驗(yàn),助力企業(yè)信息化建設(shè)，成功案例突破千余家,是您實(shí)現(xiàn)網(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) '新建一個(gè)放大的圖片

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

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

對(duì)上面代碼的解釋?zhuān)?/p>

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

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

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

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

vb.net 如何保存當(dāng)前頁(yè)為圖片

提供兩個(gè)思路

用printscreen,將其保存到文件，再調(diào)用outlook發(fā)出去，但是您說(shuō)的超出一屏，就麻煩了；

以下代碼保存為文件，引用自MSDN，由于我的SD版本不支持我的outlook,所以暫時(shí)無(wú)法給發(fā)送郵件的例子，請(qǐng)參考吧！

system.Windows.Forms.SendKeys.Send("%{PRTSC}")

? ? ? ?If Not System.Windows.Forms.Clipboard.GetDataObject() Is Nothing Then

? ? ? Dim oDataObj As IDataObject = System.Windows.Forms.Clipboard.GetDataObject()

? ? ? If oDataObj.GetDataPresent(System.Windows.Forms.DataFormats.Bitmap) Then

? ? ? ? ? Dim oImgObj As System.Drawing.Image = oDataObj.GetData(DataFormats.Bitmap, True)

? ? ? ? ? 'To Save as Bitmap

? ? ? ? ? oImgObj.Save("F:\Test.bmp", System.Drawing.Imaging.ImageFormat.Bmp)

? ? ? ? ? 'To Save as Jpeg

? ? ? ? ? oImgObj.Save("D:\Test.jpeg", System.Drawing.Imaging.ImageFormat.Jpeg)

? ? ? ? ? 'To Save as Gif

? ? ? ? ? oImgObj.Save("d:\Test.gif", System.Drawing.Imaging.ImageFormat.Gif)

? ? ? End If

? End If

2.另外出出報(bào)表，再調(diào)用outlook發(fā)出去，只給出數(shù)據(jù)性報(bào)表，而不一定是窗體本身；

vb.net怎樣保存圖片文件，并且保存的圖片名稱(chēng)為當(dāng)前時(shí)間

將PictureBox控件里的圖片，保存為文件：

1，文件格式不變化：

PictureBox1.Image.Save("C:\" Format(Now, "HH-mm-ss") ".bmp")

2，文件格式有變化：

PictureBox1.Image.Save("C:\" Format(Now, "HH-mm-ss") ".bmp", System.Drawing.Imaging.ImageFormat.Bmp)