Private Sub Form1_Paint(ByVal sender As Object, ByVal e As _
System.Windows.Forms.PaintEventArgs) Handles _
MyBase.Paint
Dim text_path As GraphicsPath
' Create the text path.
text_path = New System.Drawing.Drawing2D.GraphicsPath( _
Drawing.Drawing2D.FillMode.Alternate)
text_path.AddString("Flowers", _
New FontFamily("Times New Roman"), _
FontStyle.Bold, 200, _
New Point(10, 10), _
StringFormat.GenericDefault)
' Fill the path with blue.
e.Graphics.FillPath(New SolidBrush(Color.Blue), _
text_path)
' Use the path as the Graphics
' object's clipping region.
e.Graphics.SetClip(text_path)
' Draw lines on the form.
Dim dr As Single
Dim r As Single
Dim y As Integer
dr = 255 / (Me.Height / 3)
r = 0
For y = 0 To Me.Height Step 3
e.Graphics.DrawLine( _
New Pen(Color.FromArgb(255, r, 0, 0), 2), _
0, y, 1000, y)
r += dr
Next y
End Sub
|