VB.Net/2D/Tiff
Версия от 19:40, 26 мая 2010; (обсуждение)
Save an Image to a Tiff Image format
<source lang="vbnet"> Imports System Imports System.Windows.Forms Imports System.Collections.Generic Imports System.ruponentModel Imports System.Drawing.Imaging Imports System.Drawing Public Class MainClass
Shared Sub Main() Dim bm As New Bitmap(256, 256) " Draw on it. Dim gr As Graphics = Graphics.FromImage(bm) gr.Clear(Color.White) gr.DrawEllipse(Pens.Red, 0, 0, bm.Width - 1, bm.Height - 1) gr.DrawLine(Pens.Green, 0, 0, bm.Width - 1, bm.Height - 1) gr.DrawLine(Pens.Blue, bm.Width - 1, 0, 0, bm.Height - 1) " Save the result as a JPEG file. bm.Save("test.tiff", ImageFormat.Tiff) End Sub
End Class
</source>