Admin: 1 версия

2010-05-26T12:54:38Z

1 версия

Новая страница

==A diagonal brush==

<source lang="vbnet">Imports System.Drawing
Imports System.Drawing.Drawing2D
Imports System.Windows.Forms
public class LinearGradientBrushesDiagonalBrush
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 y As Integer = 10
Dim x As Integer = 10
Dim wid As Integer = 200
Dim hgt As Integer = 50
Dim diag_brush As New LinearGradientBrush(New Point(x, y), New Point(x + wid, y + hgt),Color.Black, Color.White)
e.Graphics.FillRectangle(diag_brush, x, y, wid, hgt)
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>

==Blend Properties==

<source lang="vbnet">Imports System.Drawing
Imports System.Drawing.Drawing2D
Imports System.Windows.Forms
public class BlendProp
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 = Me.CreateGraphics()
g.Clear(Me.BackColor)
Dim brBrush As New LinearGradientBrush(New Point(0, 0), New Point(50, 20), Color.Blue, Color.Red)
Dim blend As New Blend
Dim factArray As Single() = {0.0F, 0.3F, 0.5F, 1.0F}
Dim posArray As Single() = {0.0F, 0.2F, 0.6F, 1.0F}
blend.Factors = factArray
blend.Positions = posArray
brBrush.Blend = blend
g.FillRectangle(brBrush, 10, 20, 200, 100)
g.FillEllipse(brBrush, 10, 150, 120, 120)
g.Dispose()
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>

==Change the LinearGradientBrush"s WrapMode==

<source lang="vbnet">Imports System.Drawing
Imports System.Drawing.Drawing2D
Imports System.Windows.Forms
public class LinearGradientBrushesWrapModeTileFlipX
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 y As Integer = 10
Dim x As Integer = 10
Dim wid As Integer = 200
Dim hgt As Integer = 50
Dim short_brush As New LinearGradientBrush(New Point(x, y), New Point(x + 50, y),Color.Black, Color.White)

short_brush.WrapMode = WrapMode.TileFlipX
e.Graphics.FillRectangle(short_brush, x, y, wid, hgt)
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>

==Create a LinearGradientBrush==

<source lang="vbnet">Imports System
Imports System.Drawing
Imports System.Drawing.Drawing2D
Imports System.Collections
Imports System.ruponentModel
Imports System.Windows.Forms
Imports System.Data
public class LinearGradientBrushCreate
public Shared Sub Main
Application.Run(New BrushesForm)
End Sub
End class
Public Class BrushesForm
Inherits System.Windows.Forms.Form
#Region " Windows Form Designer generated code "
Public Sub New()
MyBase.New()
"This call is required by the Windows Form Designer.
InitializeComponent()
"Add any initialization after the InitializeComponent() call
End Sub
"Form overrides dispose to clean up the component list.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
"Required by the Windows Form Designer
Private components As System.ruponentModel.IContainer
"NOTE: The following procedure is required by the Windows Form Designer
"It can be modified using the Windows Form Designer.
"Do not modify it using the code editor.
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
"
"BrushesForm
"
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.ClientSize = New System.Drawing.Size(292, 266)
Me.Name = "BrushesForm"
Me.Text = "Form1"
End Sub
#End Region

Enum LinearGradientMode
BackwardDiagonal
ForwardDiagonal
Horizontal
Vertical
End Enum
Private Sub BrushesForm_Paint(ByVal sender As Object, ByVal e As PaintEventArgs) Handles MyBase.Paint
Dim g As Graphics = e.Graphics
Dim width As Integer = Me.ClientRectangle.Width
Dim height As Integer = Me.ClientRectangle.Height / 5
Dim whiteBrush As Brush = System.Drawing.Brushes.White
Dim blackBrush As Brush = System.Drawing.Brushes.Black
Dim b As Brush
b = New LinearGradientBrush(New Rectangle(0,0, width, height), Color.DarkBlue, Color.White, 45)
g.FillRectangle(b, 0, 0, width, height)
g.DrawString(b.ToString(), Me.Font, whiteBrush, 0, 0)
End Sub
End Class</source>

==Interpolation Colors==

<source lang="vbnet">Imports System.Drawing
Imports System.Drawing.Drawing2D
Imports System.Windows.Forms
public class InterpolationColors
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 = Me.CreateGraphics()
g.Clear(Me.BackColor)
Dim brBrush As New LinearGradientBrush(New Point(0, 0), New Point(50, 20), Color.Blue, Color.Red)
Dim rect As New Rectangle(0, 0, 200, 100)
Dim clrArray As Color() = {Color.Red, Color.Blue, Color.Green, Color.Pink, Color.Yellow, Color.DarkTurquoise}
Dim posArray As Single() = {0.0F, 0.2F, 0.4F, 0.6F, 0.8F, 1.0F}
Dim colorBlend As New ColorBlend
colorBlend.Colors = clrArray
colorBlend.Positions = posArray
brBrush.InterpolationColors = colorBlend
g.FillRectangle(brBrush, rect)
rect.Y = 150
rect.Width = 100
rect.Height = 100
g.FillEllipse(brBrush, rect)
g.Dispose()
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>

==LinearGradientBrush Blend==

<source lang="vbnet">Imports System.Drawing
Imports System.Drawing.Drawing2D
Imports System.Windows.Forms
public class LinearGradientBrushesColorBlend
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 y As Integer = 10
Dim x As Integer = 10
Dim wid As Integer = 200
Dim hgt As Integer = 50
" Make a rectangle that shades from black to white.
Dim black_white_brush As New LinearGradientBrush(New Point(x, y), New Point(x + wid, y),Color.Black, Color.White)

" Make a brush that makes 50 percent of the color change
" in the first 20 percent of the distance, stays there
" until 80 percent of the distance, and then finishes
" in the remaining distance.
Dim the_blend As New Blend(4)
the_blend.Factors = New Single() {0.0, 0.5, 0.5, 1.0}
the_blend.Positions = New Single() {0.0, 0.2, 0.8, 1.0}
black_white_brush.Blend = the_blend
e.Graphics.FillRectangle(black_white_brush, x, y, wid, hgt)
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>

==LinearGradientBrush ColorBlend==

<source lang="vbnet">Imports System.Drawing
Imports System.Drawing.Drawing2D
Imports System.Windows.Forms
public class LinearGradientBrushesColorBlend
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 y As Integer = 10
Dim x As Integer = 10
Dim wid As Integer = 200
Dim hgt As Integer = 50
" Make a rectangle that shades from black to white.
Dim black_white_brush As New LinearGradientBrush(New Point(x, y), New Point(x + wid, y),Color.Black, Color.White)
Dim color_blend As New ColorBlend(3)
color_blend.Colors = New Color() {Color.Black, Color.White, Color.Black}
color_blend.Positions = New Single() {0.0, 0.2, 1.0}
black_white_brush.InterpolationColors = color_blend
e.Graphics.FillRectangle(black_white_brush, x, y, wid, hgt)
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>

==LinearGradientBrush.GammaCorrection==

<source lang="vbnet">Imports System.Drawing
Imports System.Drawing.Drawing2D
Imports System.Windows.Forms
public class GammaCorrection
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 = Me.CreateGraphics()
g.Clear(Me.BackColor)
Dim rect As New Rectangle(20, 20, 100, 50)
Dim rgBrush As New LinearGradientBrush(rect, Color.Red, Color.Green, 0.0F, True)
g.FillRectangle(rgBrush, rect)
rect.Y = 90
rgBrush.GammaCorrection = True
g.FillRectangle(rgBrush, rect)
g.Dispose()
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>

==LinearGradientBrush: InterpolationColors==

<source lang="vbnet">Imports System.Drawing.Text
Imports System.Drawing
Imports System.Drawing.Drawing2D
Imports System.Windows.Forms
public class LinearGradientInterpolationColors
public Shared Sub Main
Application.Run(New LinearGradientBrushesForm)
End Sub
End class
Public Class LinearGradientBrushesForm
Inherits System.Windows.Forms.Form
#Region " Windows Form Designer generated code "
Public Sub New()
MyBase.New()
"This call is required by the Windows Form Designer.
InitializeComponent()
"Add any initialization after the InitializeComponent() call
End Sub
"Form overrides dispose to clean up the component list.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
"Required by the Windows Form Designer
Private components As System.ruponentModel.IContainer
"NOTE: The following procedure is required by the Windows Form Designer
"It can be modified using the Windows Form Designer.
"Do not modify it using the code editor.
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
components = New System.ruponentModel.Container()
Me.Text = "LinearGradientBrushesForm"
End Sub
#End Region

Private Sub LinearGradientBrushesForm_Paint(ByVal sender As Object, ByVal e As PaintEventArgs) Handles MyBase.Paint
Dim g As Graphics = e.Graphics
Dim x As Integer = 0
Dim y As Integer = 0
Dim width As Integer = Me.ClientRectangle.Width
Dim height As Integer = Me.ClientRectangle.Height / 4
Dim blackBrush As Brush = Brushes.Black
Dim b As LinearGradientBrush = New LinearGradientBrush(Me.ClientRectangle, Color.White, Color.Black, LinearGradientMode.Horizontal)
Dim blend As ColorBlend = New ColorBlend()
blend.Colors = New Color() {Color.White, Color.Red, Color.Black}
blend.Positions = New Single() {0.0, 0.5, 1.0}
b.InterpolationColors = blend
g.FillRectangle(b, x, y, width, height)
g.DrawString("Custom Colors", Me.Font, blackBrush, x, y)
End Sub
End Class</source>

==LinearGradientBrush.SetBlendTriangular==

<source lang="vbnet">Imports System.Drawing
Imports System.Drawing.Drawing2D
Imports System.Windows.Forms
public class SetBlendTriangular
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 = Me.CreateGraphics()
g.Clear(Me.BackColor)
Dim rect As New Rectangle(20, 20, 100, 50)
Dim rgBrush As New LinearGradientBrush(rect, Color.Red, Color.Green, 0.0F, True)
g.FillRectangle(rgBrush, rect)
rect.Y = 90
rgBrush.SetBlendTriangularShape(0.5F, 1.0F)
g.FillRectangle(rgBrush, rect)
g.Dispose()
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>

==LinearGradientBrush.SetSigmaBellShape==

<source lang="vbnet">Imports System.Drawing
Imports System.Drawing.Drawing2D
Imports System.Windows.Forms
public class SetSigmaBellShape
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 = Me.CreateGraphics()
g.Clear(Me.BackColor)
Dim rect As New Rectangle(20, 20, 100, 50)
Dim rgBrush As New LinearGradientBrush(rect, Color.Red, Color.Green, 0.0F, True)
g.FillRectangle(rgBrush, rect)
rect.Y = 90
rgBrush.SetSigmaBellShape(0.5F, 1.0F)
g.FillRectangle(rgBrush, rect)

" Dispose
g.Dispose()
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>

==LinearGradientBrush: too short to cross the whole rectangle==

<source lang="vbnet">Imports System.Drawing
Imports System.Drawing.Drawing2D
Imports System.Windows.Forms
public class LinearGradientBrushesShort
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 y As Integer = 10
Dim x As Integer = 10
Dim wid As Integer = 200
Dim hgt As Integer = 50
Dim short_brush As New LinearGradientBrush(New Point(x, y), New Point(x + 50, y),Color.Black, Color.White)
e.Graphics.FillRectangle(short_brush, x, y, wid, hgt)
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>

==Make a rectangle that shades from black to white==

<source lang="vbnet">Imports System.Drawing
Imports System.Drawing.Drawing2D
Imports System.Windows.Forms
public class LinearGradientBrushesSimple
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 y As Integer = 10
Dim x As Integer = 10
Dim wid As Integer = 200
Dim hgt As Integer = 50
" Make a rectangle that shades from black to white.
e.Graphics.DrawString("Simple", Me.Font, Brushes.Black, x, y)
y += 15
Dim black_white_brush As New _
LinearGradientBrush( _
New Point(x, y), New Point(x + wid, y), _
Color.Black, Color.White)
e.Graphics.FillRectangle(black_white_brush, 10,50,200,200)
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>

==Set Blend Triangular Shape for LinearGradientBrush==

<source lang="vbnet">Imports System.Drawing.Text
Imports System.Drawing
Imports System.Drawing.Drawing2D
Imports System.Windows.Forms
public class LinearGradientSetBlendTriangularShape
public Shared Sub Main
Application.Run(New LinearGradientBrushesForm)
End Sub
End class
Public Class LinearGradientBrushesForm
Inherits System.Windows.Forms.Form
#Region " Windows Form Designer generated code "
Public Sub New()
MyBase.New()
"This call is required by the Windows Form Designer.
InitializeComponent()
"Add any initialization after the InitializeComponent() call
End Sub
"Form overrides dispose to clean up the component list.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
"Required by the Windows Form Designer
Private components As System.ruponentModel.IContainer
"NOTE: The following procedure is required by the Windows Form Designer
"It can be modified using the Windows Form Designer.
"Do not modify it using the code editor.
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
components = New System.ruponentModel.Container()
Me.Text = "LinearGradientBrushesForm"
End Sub
#End Region

Private Sub LinearGradientBrushesForm_Paint(ByVal sender As Object, ByVal e As PaintEventArgs) Handles MyBase.Paint
Dim g As Graphics = e.Graphics
Dim x As Integer = 0
Dim y As Integer = 0
Dim width As Integer = Me.ClientRectangle.Width
Dim height As Integer = Me.ClientRectangle.Height / 4
Dim blackBrush As Brush = Brushes.Black
Dim b As LinearGradientBrush = New LinearGradientBrush(Me.ClientRectangle, Color.White, Color.Black, LinearGradientMode.Horizontal)
b.SetBlendTriangularShape(0.5)
g.FillRectangle(b, x, y, width, height)
g.DrawString("Triangle", Me.Font, blackBrush, x, y)
End Sub
End Class</source>

==Set Sigma Bell Shape==

<source lang="vbnet">Imports System.Drawing.Text
Imports System.Drawing
Imports System.Drawing.Drawing2D
Imports System.Windows.Forms
public class LinearGradientSetSigmaBellShape
public Shared Sub Main
Application.Run(New LinearGradientBrushesForm)
End Sub
End class
Public Class LinearGradientBrushesForm
Inherits System.Windows.Forms.Form
#Region " Windows Form Designer generated code "
Public Sub New()
MyBase.New()
"This call is required by the Windows Form Designer.
InitializeComponent()
"Add any initialization after the InitializeComponent() call
End Sub
"Form overrides dispose to clean up the component list.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
"Required by the Windows Form Designer
Private components As System.ruponentModel.IContainer
"NOTE: The following procedure is required by the Windows Form Designer
"It can be modified using the Windows Form Designer.
"Do not modify it using the code editor.
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
components = New System.ruponentModel.Container()
Me.Text = "LinearGradientBrushesForm"
End Sub
#End Region

Private Sub LinearGradientBrushesForm_Paint(ByVal sender As Object, ByVal e As PaintEventArgs) Handles MyBase.Paint
Dim g As Graphics = e.Graphics
Dim x As Integer = 0
Dim y As Integer = 0
Dim width As Integer = Me.ClientRectangle.Width
Dim height As Integer = Me.ClientRectangle.Height / 4
Dim blackBrush As Brush = Brushes.Black
Dim b As LinearGradientBrush = New LinearGradientBrush(Me.ClientRectangle, Color.White, Color.Black, LinearGradientMode.Horizontal)
b.SetSigmaBellShape(0.5)
g.FillRectangle(b, x, y, width, height)
g.DrawString("Bell", Me.Font, blackBrush, x, y)
End Sub
End Class</source>

==Trangular brush==

<source lang="vbnet">Imports System.Drawing
Imports System.Drawing.Drawing2D
Imports System.Windows.Forms
public class LinearGradientBrushesSetBlendTriangularShape
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 y As Integer = 10
Dim x As Integer = 10
Dim wid As Integer = 200
Dim hgt As Integer = 50
" Make a rectangle that shades from black to white.
Dim black_white_brush As New LinearGradientBrush(New Point(x, y), New Point(x + wid, y),Color.Black, Color.White)
black_white_brush.SetBlendTriangularShape(0.5)
e.Graphics.FillRectangle(black_white_brush,x, y, wid, hgt)
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>

==Transform LinearGradientBrush==

<source lang="vbnet">Imports System.Drawing
Imports System.Drawing.Drawing2D
Imports System.Windows.Forms
public class TransformLinearGradientBrush
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 = Me.CreateGraphics()
g.Clear(Me.BackColor)
" Create a LinearGradientBrush object
Dim rect As New Rectangle(20, 20, 200, 100)
Dim lgBrush As New LinearGradientBrush(rect, Color.Red, Color.Green, 0.0F, True)
Dim ptsArray As Point() = {New Point(20, 50), New Point(200, 50), New Point(20, 100)}
Dim M As New Matrix(rect, ptsArray)
" Multiply transform
lgBrush.MultiplyTransform(M, MatrixOrder.Prepend)
" Rotate transform
lgBrush.RotateTransform(45.0F, MatrixOrder.Prepend)
" Scale Transform
lgBrush.ScaleTransform(2, 1, MatrixOrder.Prepend)
" Draw a rectangle after transformation
g.FillRectangle(lgBrush, 0, 0, 200, 100)
" Reset transform.
lgBrush.ResetTransform()
" Draw a rectangle after Reset transform
g.FillRectangle(lgBrush, 220, 0, 200, 100)
" Dispose
lgBrush.Dispose()
g.Dispose()

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>

VB.Net Tutorial/2D Graphics/LinearGradientBrush - История изменений

в 16:40, 26 мая 2010

Admin: 1 версия

← Предыдущая	Версия 16:40, 26 мая 2010
(нет различий)