VB.Net by API/System.Drawing/Image

Материал из VB Эксперт
Перейти к: навигация, поиск

Image.Flags

<source lang="vbnet"> Imports System.Drawing Imports System.Drawing.Drawing2D Imports System.Windows.Forms public class ImageProperty 

  public Shared Sub Main
       Application.Run(New Form1)
  End Sub

End class public class Form1 

 Inherits System.Windows.Forms.Form
 Protected Overrides Sub OnPaint(ByVal e As PaintEventArgs)
       Dim curImage As Image = Image.FromFile("yourfile.jpg")
       curImage.RotateFlip(RotateFlipType.RotateNoneFlipXY)
       e.Graphics.DrawImage(curImage, New Rectangle(0, 0, 100, 100))
       Console.WriteLine("Size:" + curImage.Size.ToString)
       Console.WriteLine(" RawFormat:" + curImage.RawFormat.ToString)
       Console.WriteLine(" Vertical Resolution:" + curImage.VerticalResolution.ToString)
       Console.WriteLine(" Horizontal Resolution:" + curImage.HorizontalResolution.ToString)
       Console.WriteLine(" PixelFormat:" + curImage.PixelFormat.ToString)
       Console.WriteLine(" Flags:" + curImage.Flags.ToString)
       
 End Sub
 Public Sub New()
  
   MyBase.New()
   Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
   Me.ClientSize = New System.Drawing.Size(292, 273)
   Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
 End Sub

End Class 


 </source>


Image.FromFile

<source lang="vbnet"> Imports System.Drawing Imports System.Drawing.Drawing2D Imports System.Windows.Forms public class TransparentColor 

  public Shared Sub Main
       Application.Run(New Form1)
  End Sub

End class public class Form1 

 Inherits System.Windows.Forms.Form
 Protected Overrides Sub OnPaint(ByVal e As PaintEventArgs)
       Dim g As Graphics = e.Graphics
       Dim curImage As Image = Image.FromFile("yourfile.jpg")
       g.DrawImage(curImage, 0, 0, curImage.Width, curImage.Height)
       Dim opqPen As New Pen(Color.FromArgb(255, 0, 255, 0), 10)
       Dim transPen As New Pen(Color.FromArgb(128, 0, 255, 0), 10)
       Dim totTransPen As New Pen(Color.FromArgb(40, 0, 255, 0), 10)
       g.DrawLine(opqPen, 10, 10, 200, 10)
       g.DrawLine(transPen, 10, 30, 200, 30)
       g.DrawLine(totTransPen, 10, 50, 200, 50)
       Dim semiTransBrush As New SolidBrush(Color.FromArgb(60, 0, 255, 0))
       g.FillRectangle(semiTransBrush, 20, 100, 200, 100)
 End Sub
 Public Sub New()
  
   MyBase.New()
   Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
   Me.ClientSize = New System.Drawing.Size(292, 273)
   Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
 End Sub

End Class 


 </source>


Image.HorizontalResolution

<source lang="vbnet"> Imports System.Drawing Imports System.Drawing.Drawing2D Imports System.Windows.Forms public class ImageProperty 

  public Shared Sub Main
       Application.Run(New Form1)
  End Sub

End class public class Form1 

 Inherits System.Windows.Forms.Form
 Protected Overrides Sub OnPaint(ByVal e As PaintEventArgs)
       Dim curImage As Image = Image.FromFile("yourfile.jpg")
       curImage.RotateFlip(RotateFlipType.RotateNoneFlipXY)
       e.Graphics.DrawImage(curImage, New Rectangle(0, 0, 100, 100))
       Console.WriteLine("Size:" + curImage.Size.ToString)
       Console.WriteLine(" RawFormat:" + curImage.RawFormat.ToString)
       Console.WriteLine(" Vertical Resolution:" + curImage.VerticalResolution.ToString)
       Console.WriteLine(" Horizontal Resolution:" + curImage.HorizontalResolution.ToString)
       Console.WriteLine(" PixelFormat:" + curImage.PixelFormat.ToString)
       Console.WriteLine(" Flags:" + curImage.Flags.ToString)
       
 End Sub
 Public Sub New()
  
   MyBase.New()
   Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
   Me.ClientSize = New System.Drawing.Size(292, 273)
   Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
 End Sub

End Class 


 </source>


Image.PixelFormat

<source lang="vbnet"> Imports System.Drawing Imports System.Drawing.Drawing2D Imports System.Windows.Forms public class ImageProperty 

  public Shared Sub Main
       Application.Run(New Form1)
  End Sub

End class public class Form1 

 Inherits System.Windows.Forms.Form
 Protected Overrides Sub OnPaint(ByVal e As PaintEventArgs)
       Dim curImage As Image = Image.FromFile("yourfile.jpg")
       curImage.RotateFlip(RotateFlipType.RotateNoneFlipXY)
       e.Graphics.DrawImage(curImage, New Rectangle(0, 0, 100, 100))
       Console.WriteLine("Size:" + curImage.Size.ToString)
       Console.WriteLine(" RawFormat:" + curImage.RawFormat.ToString)
       Console.WriteLine(" Vertical Resolution:" + curImage.VerticalResolution.ToString)
       Console.WriteLine(" Horizontal Resolution:" + curImage.HorizontalResolution.ToString)
       Console.WriteLine(" PixelFormat:" + curImage.PixelFormat.ToString)
       Console.WriteLine(" Flags:" + curImage.Flags.ToString)
       
 End Sub
 Public Sub New()
  
   MyBase.New()
   Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
   Me.ClientSize = New System.Drawing.Size(292, 273)
   Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
 End Sub

End Class 


 </source>


Image.PropertyItems

<source lang="vbnet"> Imports System.Drawing.Imaging Imports System.Drawing Imports System.Drawing.Drawing2D Imports System.Windows.Forms public class MainClass 

  public Shared Sub Main
       Dim curImage As Image = Image.FromFile("yourfile.JPG")
       Dim imgProperties As PropertyItem() = curImage.PropertyItems
       Console.WriteLine(imgProperties.Length.ToString())
       Dim i As Integer
       For i = 0 To imgProperties.Length - 1
           Console.WriteLine("Id :" + imgProperties(i).Id.ToString)
           Console.WriteLine("Value:" + BitConverter.ToString(imgProperties(i).Value))
       Next i
  End Sub

End class 


 </source>


Image.RawFormat

<source lang="vbnet"> Imports System.Drawing Imports System.Drawing.Drawing2D Imports System.Windows.Forms public class ImageProperty 

  public Shared Sub Main
       Application.Run(New Form1)
  End Sub

End class public class Form1 

 Inherits System.Windows.Forms.Form
 Protected Overrides Sub OnPaint(ByVal e As PaintEventArgs)
       Dim curImage As Image = Image.FromFile("yourfile.jpg")
       curImage.RotateFlip(RotateFlipType.RotateNoneFlipXY)
       e.Graphics.DrawImage(curImage, New Rectangle(0, 0, 100, 100))
       Console.WriteLine("Size:" + curImage.Size.ToString)
       Console.WriteLine(" RawFormat:" + curImage.RawFormat.ToString)
       Console.WriteLine(" Vertical Resolution:" + curImage.VerticalResolution.ToString)
       Console.WriteLine(" Horizontal Resolution:" + curImage.HorizontalResolution.ToString)
       Console.WriteLine(" PixelFormat:" + curImage.PixelFormat.ToString)
       Console.WriteLine(" Flags:" + curImage.Flags.ToString)
       
 End Sub
 Public Sub New()
  
   MyBase.New()
   Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
   Me.ClientSize = New System.Drawing.Size(292, 273)
   Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
 End Sub

End Class 


 </source>


Image.RotateFlip

<source lang="vbnet">

Imports System.Drawing Imports System.Drawing.Drawing2D Imports System.Windows.Forms public class Rotate90FlipNone 

  public Shared Sub Main
       Application.Run(New Form1)
  End Sub

End class public class Form1 

 Inherits System.Windows.Forms.Form
 Protected Overrides Sub OnPaint(ByVal e As PaintEventArgs)
       Dim newImage As Image = Image.FromFile("yourfile.jpg")
       newImage.RotateFlip(RotateFlipType.Rotate90FlipNone)
       e.Graphics.DrawImage(newImage, New Rectangle(0, 0, 100, 100))
 End Sub
 Public Sub New()
  
   MyBase.New()
   Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
   Me.ClientSize = New System.Drawing.Size(292, 273)
   Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
 End Sub

End Class 


 </source>


Image.VerticalResolution

<source lang="vbnet"> Imports System.Drawing Imports System.Drawing.Drawing2D Imports System.Windows.Forms public class ImageProperty 

  public Shared Sub Main
       Application.Run(New Form1)
  End Sub

End class public class Form1 

 Inherits System.Windows.Forms.Form
 Protected Overrides Sub OnPaint(ByVal e As PaintEventArgs)
       Dim curImage As Image = Image.FromFile("yourfile.jpg")
       curImage.RotateFlip(RotateFlipType.RotateNoneFlipXY)
       e.Graphics.DrawImage(curImage, New Rectangle(0, 0, 100, 100))
       Console.WriteLine("Size:" + curImage.Size.ToString)
       Console.WriteLine(" RawFormat:" + curImage.RawFormat.ToString)
       Console.WriteLine(" Vertical Resolution:" + curImage.VerticalResolution.ToString)
       Console.WriteLine(" Horizontal Resolution:" + curImage.HorizontalResolution.ToString)
       Console.WriteLine(" PixelFormat:" + curImage.PixelFormat.ToString)
       Console.WriteLine(" Flags:" + curImage.Flags.ToString)
       
 End Sub
 Public Sub New()
  
   MyBase.New()
   Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
   Me.ClientSize = New System.Drawing.Size(292, 273)
   Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
 End Sub

End Class 


 </source>
Источник — «http://vbex.ru/index.php?title=VB.Net_by_API/System.Drawing/Image&oldid=2154»