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

Вращающаяся линия

Если вы еще не забыли тригонометрию, то без труда сможете разобраться в следующем коде:

Private Sub FormlJPaint (ByVal sender As Object, _ By Val e As System.Windows.Forms.PaintEventArgs )_ Handles MyBase.Paint

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

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

Static a As Integer = 250 Static n As Integer = 150 Static k As Double k = k - 0.01

e.Graphics.DrawEllipse (New Pen _ (Color.Blue, 2), 50, 50, 200, 200)

e.Graphics.DrawLine (New Pen _ (Color.Black, 3), 150, 150, a, n)

n = 50 + (100 - (Math.Sin(k) * 100)) a = 150 + (Math.Cos(k) * 100)

End Sub

Private Sub TimerlJTick (ByVal sender As System. _ Object, ByVal e As System.EventArgs) _ Handles Timerl.Tick

Me.Refresh ()

End Sub

Сохранение рисунка

Если вы создали красивый рисунок и желаете сохранить его для использования в других программах, добавьте к кодам, создающим рисунок, следующий:

Private Sub FormlJPaint (ByVal sender As Object, _ By Val e As System.Windows.Forms.PaintEventArgs) _ Handles MyBase.Paint

Dim a As New Bitmap (300, 300)

Dim g As Graphics = Graphics.Fromlmage (a)

g.Clear (Color.Brown)

g.FillEllipse (Brushes. Black, 80, 90, _

150,100)

e.Graphics.Drawlmage (a, 10, 10) a. Save ("с:\Новая папка\рис.jpeg", _ System.Drawing.Imaging.ImageFormat.Jpeg) End Sub

Красивая кнопка

Создавать графику можно не только на форме, но и на отдельном элементе. Делается это так же, но вместо Form_Paint создается процедура обработки события Paint для конкретного элемента, например кнопки Button. В следующем примере

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

Графический редактор

мы создадим градиентную заливку для кнопки. Поместите на форму кнопку Button 1. Задайте размеры Size (100,40). Размеры кнопки должны совпадать с размерами рисунка. Теперь составьте следующий код для процедуры события But-ton_Paint:

Private Sub Buttonl_Paint (ByVal sender As Object, _ ByVal e As System.Windows.Forms.PaintEventArgs) _ Handles Buttonl.Paint

Dim a As New System.Drawing.Drawing2D.GraphicsPath _

a.AddRectangle (New' Rectangle (2, 2, 96, 36)) Dim b As New System.Drawing.Drawing2D._ PathGradietBrush (a)


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