13518219792
在VB.NET操作縮放圖像中的顯示和保存縮放圖像，用到Image和Graphics類，在VSDotNet2K3下面Reference里自動添加了引用System.Drawing，直接用就行。
成都創新互聯公司專注于文安網站建設服務及定制，我們擁有豐富的企業做網站經驗。 熱誠為您提供文安營銷型網站建設，文安網站制作、文安網頁設計、文安網站官網定制、小程序定制開發服務，打造文安網絡公司原創品牌,更為您提供文安網站排名全網營銷落地服務。
實現VB.NET操作縮放圖像代碼如下：DimimgAsImageImage=Image.FromFile
(D:\Image\tstImage.jpg)
''tstImage是原先的圖片DimgrfxAsGraphics=Me
.CreateGraphics
grfx.DrawImage(img,0,0,img.Width*
3,img.Height*3)''在Form里顯示
DimimgnewAsNewSystem.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事件里面源碼天空
，執行就行了。
對上面VB.NET操作縮放圖像代碼的解釋：
1.要獲取Graphics對象只能從某一事件的參數中獲取或者使用窗體和控件對象的CreateGraphics方法來獲取-----上面代碼使用Me.CreateGraphics來引用這個對象。
2.加載一個圖片用Image類的FromFile或者FromStream方法
3.用DrawImage來顯示一個圖片,該方法有30多個重載方法，可以查MSDN了解細節。
4.保存時的一個問題：我們必須先建一個對象，用于存縮放圖像。
實現代碼如下：
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事件里面，執行就行了。
對上面代碼的解釋：
1.要獲取Graphics對象只能從某一事件的參數中獲取或者使用窗體和控件對象的CreateGraphics方法來獲取-----上面代碼使用Me.CreateGraphics來引用這個對象。
2.加載一個圖片用Image類的FromFile或者FromStream方法
3.用DrawImage來顯示一個圖片,該方法有30多個重載方法，可以查MSDN了解細節。
4.保存時的一個問題：我們必須先建一個對象，用于存縮放圖像。
Pegasus的ImagXpress 8.0控件，支持各種格式文件的加載。控件封裝了右鍵局部區域放大的功能，要實現圖片的縮放，把AutoResize屬性設置為PegasusImaging.WinForms.ImagXpress8.AutoResizeType.CropImage，修改 ZoomFactor的值就可以了。
