本文整理彙總了VB.NET中System.Drawing.Image.Save方法的典型用法代碼示例。如果您正苦於以下問題：VB.NET Image.Save方法的具體用法？VB.NET Image.Save怎麼用？VB.NET Image.Save使用的例子？那麼恭喜您, 這裏精選的方法代碼示例或許可以為您提供幫助。您也可以進一步了解該方法所在類<a href="https://vimsky.com/examples/detail/vbnet-class-system.drawing.image.html" System.Drawing.Image的用法示例。
在下文中一共展示了Image.Save方法的3個代碼示例，這些例子默認根據受歡迎程度排序。您可以為喜歡或者感覺有用的代碼點讚，您的評價將有助於我們的係統推薦出更棒的VB.NET代碼示例。
示例1: Example_SetJPEGQuality
點讚 20
' 導入命名空間Imports System.DrawingImports System.Drawing.ImagingClass Example_SetJPEGQuality Public Shared Sub Main() Dim myBitmap As Bitmap Dim myImageCodecInfo As ImageCodecInfo Dim myEncoder As Encoder Dim myEncoderParameter As EncoderParameter Dim myEncoderParameters As EncoderParameters ' Create a Bitmap object based on a BMP file.
myBitmap = New Bitmap("Shapes.bmp") ' Get an ImageCodecInfo object that represents the JPEG codec.
myImageCodecInfo = GetEncoderInfo(ImageFormat.Jpeg) ' Create an Encoder object based on the GUID
' for the Quality parameter category.
myEncoder = Encoder.Quality ' Create an EncoderParameters object.
' An EncoderParameters object has an array of EncoderParameter
' objects. In this case, there is only one
' EncoderParameter object in the array.
myEncoderParameters = New EncoderParameters(1) ' Save the bitmap as a JPEG file with quality level 25.
myEncoderParameter = New EncoderParameter(myEncoder, CType(25L, Int32))
myEncoderParameters.Param(0) = myEncoderParameter
myBitmap.Save("Shapes025.jpg", myImageCodecInfo, myEncoderParameters) ' Save the bitmap as a JPEG file with quality level 50.
myEncoderParameter = New EncoderParameter(myEncoder, CType(50L, Int32))
myEncoderParameters.Param(0) = myEncoderParameter
myBitmap.Save("Shapes050.jpg", myImageCodecInfo, myEncoderParameters) ' Save the bitmap as a JPEG file with quality level 75.
myEncoderParameter = New EncoderParameter(myEncoder, CType(75L, Int32))
myEncoderParameters.Param(0) = myEncoderParameter
myBitmap.Save("Shapes075.jpg", myImageCodecInfo, myEncoderParameters) End Sub
Private Shared Function GetEncoderInfo(ByVal format As ImageFormat) As ImageCodecInfo Dim j As Integer
Dim encoders() As ImageCodecInfo
encoders = ImageCodecInfo.GetImageEncoders()
j = 0
While j < encoders.Length If encoders(j).FormatID = format.Guid Then
Return encoders(j) End If
j += 1
End While
Return Nothing
End Function 'GetEncoderInfoEnd Class開發者ID:VB.NET開發者，項目名稱:System.Drawing，代碼行數:63，代碼來源:Image.Save
示例2: ConstructFromResourceSaveAsGif
點讚 18
Private Sub ConstructFromResourceSaveAsGif(ByVal e As PaintEventArgs) ' Construct a bitmap from the button image resource.
Dim bmp1 As New Bitmap(GetType(Button), "Button.bmp") ' Save the image as a GIF.
bmp1.Save("c:\button.gif", System.Drawing.Imaging.ImageFormat.Gif) ' Construct a new image from the GIF file.
Dim bmp2 As New Bitmap("c:\button.gif") ' Draw the two images.
e.Graphics.DrawImage(bmp1, New Point(10, 10))
e.Graphics.DrawImage(bmp2, New Point(10, 40)) ' Dispose of the image files.
bmp1.Dispose()
bmp2.Dispose()End Sub開發者ID:VB.NET開發者，項目名稱:System.Drawing，代碼行數:19，代碼來源:Image.Save
示例3: If
點讚 17
Private Sub Button5_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button5.Click Try
If (image1 IsNot Nothing) Then
image1.Save("c:\myBitmap.bmp")
Button5.Text = "Saved file."
End If
Catch ex As Exception
MessageBox.Show("There was a problem saving the file." _
& "Check the file permissions.") End TryEnd Sub
