http://www.vbex.ru/index.php?action=history&feed=atom&title=VB.Net_by_API%2FSystem.Drawing%2FRectangleF 2026-04-06T02:05:32Z История изменений этой страницы в вики MediaWiki 1.30.0 http://www.vbex.ru/index.php?title=VB.Net_by_API/System.Drawing/RectangleF&diff=2131&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/RectangleF&diff=2132&oldid=prev 2010-05-26T12:49:53Z

<p>1 версия</p> <p><b>Новая страница</b></p><div>==New RectangleF==<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 UsingRectangleF<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 /> Dim x As Single = 40.0F<br /> Dim y As Single = 40.0F<br /> Dim height As Single = 120.0F<br /> Dim width As Single = 120.0F<br /> Dim pt As New PointF(80.0F, 80.0F)<br /> Dim sz As New SizeF(100.0F, 100.0F)<br /> Dim rect1 As New RectangleF(pt, sz)<br /> Dim rect2 As New RectangleF(x, y, width, height)<br /> Dim rect3 As New RectangleF(10.0F, 10.0F, 180.0F, 180.0F)<br /> Dim redPen As New Pen(Color.Red, 2)<br /> Dim greenBrush As New SolidBrush(Color.Blue)<br /> Dim blueBrush As New SolidBrush(Color.Green)<br /> g.DrawRectangle(redPen, rect3.X, rect3.Y, rect3.Width, rect3.Height)<br /> g.FillRectangle(blueBrush, rect2)<br /> g.FillRectangle(greenBrush, rect1)<br /> redPen.Dispose()<br /> blueBrush.Dispose()<br /> greenBrush.Dispose()<br /> g.Dispose()<br /> <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 /> ==RectangleF.Width==<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 DrawCircle<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 a As Graphics = e.Graphics<br /> Dim mypen As Pen<br /> Dim myrect As RectangleF<br /> mypen = New Pen(System.Drawing.Color.Red, 6)<br /> a = Me.CreateGraphics<br /> a.Clear(Me.BackColor)<br /> a.DrawEllipse(mypen, 100, 100, 50, 50)<br /> a.DrawEllipse(mypen, 75, 75, 100, 100)<br /> a.DrawEllipse(mypen, 25, 25, 200, 200)<br /> a.DrawEllipse(mypen, 0, 0, 250, 250)<br /> myrect.X = 300<br /> myrect.Y = 10<br /> myrect.Width = 250<br /> myrect.Height = 100<br /> a.DrawEllipse(mypen, myrect)<br /> myrect.X = 400<br /> myrect.Y = 10<br /> myrect.Width = 100<br /> myrect.Height = 250<br /> a.DrawEllipse(mypen, myrect)<br /> <br /> a.Dispose()<br /> mypen.Dispose()<br /> End Sub<br /> Public Sub New()<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 /> ==RectangleF.X==<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 DrawCircle<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 a As Graphics = e.Graphics<br /> Dim mypen As Pen<br /> Dim myrect As RectangleF<br /> mypen = New Pen(System.Drawing.Color.Red, 6)<br /> a = Me.CreateGraphics<br /> a.Clear(Me.BackColor)<br /> a.DrawEllipse(mypen, 100, 100, 50, 50)<br /> a.DrawEllipse(mypen, 75, 75, 100, 100)<br /> a.DrawEllipse(mypen, 25, 25, 200, 200)<br /> a.DrawEllipse(mypen, 0, 0, 250, 250)<br /> myrect.X = 300<br /> myrect.Y = 10<br /> myrect.Width = 250<br /> myrect.Height = 100<br /> a.DrawEllipse(mypen, myrect)<br /> myrect.X = 400<br /> myrect.Y = 10<br /> myrect.Width = 100<br /> myrect.Height = 250<br /> a.DrawEllipse(mypen, myrect)<br /> <br /> a.Dispose()<br /> mypen.Dispose()<br /> End Sub<br /> Public Sub New()<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