Трусов M. А. Visual Basic .NЕТ Практическое руководство для начинающего программиста стр.69
Трусов M. А. Visual Basic .NЕТ Практическое руководство для начинающего программиста стр.69

строку кодов. Результат будет тот же. Далее приводятся образцы кодов, создающие различные геометрические фигуры:

Private Sub Forml_Paint (ByVal sender As Object, _ ByVal e As System.Windows.Forms.PaintEventArgs) _ Handles MyBase.Paint 'Линия

e.Graphics.DrawLine (New Pen (Color. Black, 5), _ 10, 10, 100, 100) 'Дуга

e.Graphics.DrawArc (New Pen (Color.Red, 5), 100, _ 20, 120, _ 50, 0, 250)

'Сектор

e.Graphics.DrawPie (New Pen (Color. Black, 5), _ 250, 20, 120, 100, 10, 50) "Путь

Dim a As New System.Drawing.Drawing2D.GraphicsPath a.AddArc (400, 20, 100, 100, 20, 290) a.AddLine (600, 30, 495, 90) e.Graphics.DrawPath (New Pen (Color. Brown, _

12), a) "Замкнутый сплайн

Dim b () As Point = {New Point (10, 250), _ New Point (240, 130), New Point (410, 280), New Point (610, 150)}

e.Graphics.DrawClosedCurve (New Pen (Color._ Black, 4), b)

Заполненные фигуры рисуются так же, но вместо пера указывается кисть, а вместо метода Draw используется Fill:

'Заполненный четырехугольник е.Graphics.FllPie(New SolidBrush(Color.Red),_ 30, 300, 150, 100, 90, 300) "Заполненный сектор Dim i As Integer

For i = 0 To 359 Step 20 e.Graphics.FillPie (New SolidBrush (Color. Blue), _ 300, 300, 200, 200, i, 10) Next End Sub

Для создания текста необязательно использовать текстовые поля. Применив метод Paint, можно писать слова прямо на форме:

Трусов M. А. Visual Basic .NЕТ Практическое руководство для начинающего программиста

ГЛАВА 14 Y Графика

е.Graphics.DrawString ("это написано на форме", _ New Font ("Arial", 16, FontStyle.Italic), Brushes.Red, 10, 20)

e.Graphics.DrawString ("это текст", New Font_ ("Arial", 20, FontStyle.Bold), New SQlidBrush (Color. Black), 100, 400)

Графику можно создавать, не пользуясь событием Paint. Ниже приводятся коды, которыми с использованием Create Graphics будут созданы заполненный многоугольник и заполненный четырехугольник

Private Sub Buttonl_Click (ByVal sender As System. Object, ByVal e As System.EventArgs) _ Handles But_tonl.Click


⇐ Предыдущая Следующая ⇒
 
 
 
Powered by Exponenta