http://www.vbex.ru/index.php?action=history&feed=atom&title=VB.Net_by_API%2FSystem.Drawing.Drawing2D%2FCompositingQuality 2026-04-05T07:14:09Z История изменений этой страницы в вики MediaWiki 1.30.0 http://www.vbex.ru/index.php?title=VB.Net_by_API/System.Drawing.Drawing2D/CompositingQuality&diff=2605&oldid=prev 2010-05-26T16:40:16Z

<p></p> <table class="diff diff-contentalign-left" data-mw="interface"> <tr style="vertical-align: top;" lang="ru"> <td colspan="1" style="background-color: white; color:black; text-align: center;">← Предыдущая</td> <td colspan="1" style="background-color: white; color:black; text-align: center;">Версия 16:40, 26 мая 2010</td> </tr><tr><td colspan="2" style="text-align: center;" lang="ru"><div class="mw-diff-empty">(нет различий)</div> </td></tr></table>

http://www.vbex.ru/index.php?title=VB.Net_by_API/System.Drawing.Drawing2D/CompositingQuality&diff=2606&oldid=prev 2010-05-26T12:51:21Z

<p>1 версия</p> <p><b>Новая страница</b></p><div>==CompositingQuality.HighQuality==<br /> <br /> <br /> <br /> &lt;source lang=&quot;vbnet&quot;&gt; <br /> Imports System.Drawing<br /> Imports System.Drawing.Drawing2D<br /> Imports System.Windows.Forms<br /> public class CompositingQualityHighQuality<br /> public Shared Sub Main<br /> Application.Run(New Form1)<br /> End Sub<br /> End class<br /> public class Form1<br /> Inherits System.Windows.Forms.Form<br /> Protected Overrides Sub OnPaint(ByVal e As PaintEventArgs)<br /> Dim g As Graphics = Me.CreateGraphics()<br /> g.Clear(Me.BackColor)<br /> g.SmoothingMode = SmoothingMode.AntiAlias<br /> g.rupositingQuality = CompositingQuality.HighQuality<br /> Dim path As New GraphicsPath<br /> path.AddEllipse(20, 20, 200, 200)<br /> Dim pthGrBrush As New PathGradientBrush(path)<br /> Dim transBlackColor As Color = color.FromArgb(90, 255, 255, 255)<br /> Dim color2() As Color = {Color.Black}<br /> pthGrBrush.SurroundColors = color2<br /> pthGrBrush.CenterColor = color.Red<br /> g.FillPath(pthGrBrush, path)<br /> g.Dispose()<br /> End Sub<br /> Public Sub New()<br /> <br /> MyBase.New()<br /> Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)<br /> Me.ClientSize = New System.Drawing.Size(292, 273)<br /> Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen<br /> End Sub<br /> End Class<br /> <br /> <br /> &lt;/source&gt;<br /> <br /> <br /> ==CompositingQuality.HighSpeed==<br /> <br /> <br /> <br /> &lt;source lang=&quot;vbnet&quot;&gt; <br /> <br /> Imports System.Drawing<br /> Imports System.Drawing.Drawing2D<br /> Imports System.Windows.Forms<br /> public class CompositingQualityHighSpeed<br /> public Shared Sub Main<br /> Application.Run(New Form1)<br /> End Sub<br /> End class<br /> public class Form1<br /> Inherits System.Windows.Forms.Form<br /> Protected Overrides Sub OnPaint(ByVal e As PaintEventArgs)<br /> Dim g As Graphics = Me.CreateGraphics()<br /> g.Clear(Me.BackColor)<br /> Dim redPen As New Pen(Color.Red, 20)<br /> Dim bluePen As New Pen(Color.Blue, 10)<br /> Dim gContainer1 As GraphicsContainer = g.BeginContainer()<br /> g.SmoothingMode = SmoothingMode.AntiAlias<br /> g.rupositingQuality = CompositingQuality.GammaCorrected<br /> g.DrawEllipse(redPen, 10, 10, 100, 50)<br /> g.DrawRectangle(bluePen, 210, 0, 100, 100)<br /> Dim gContainer2 As GraphicsContainer = g.BeginContainer()<br /> g.SmoothingMode = SmoothingMode.HighSpeed<br /> g.rupositingQuality = CompositingQuality.HighSpeed<br /> g.DrawEllipse(redPen, 10, 150, 100, 50)<br /> g.DrawRectangle(bluePen, 210, 150, 100, 100)<br /> g.EndContainer(gContainer2)<br /> g.EndContainer(gContainer1)<br /> redPen.Dispose()<br /> bluePen.Dispose()<br /> g.Dispose()<br /> End Sub<br /> Public Sub New()<br /> <br /> MyBase.New()<br /> Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)<br /> Me.ClientSize = New System.Drawing.Size(292, 273)<br /> Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen<br /> End Sub<br /> End Class<br /> <br /> <br /> &lt;/source&gt;</div>

Admin