Трусов М. А. Visual Basic .NET. Создание графических объектов и основы программирования стр.44
Трусов М. А. Visual Basic .NET. Создание графических объектов и основы программирования стр.44

3-4640

Трусов М. А. Visual Basic .NET. Создание графических объектов и основы программирования

ГЛАВА 6 ▼ Динамика графических объектов

Private Sub Form4_Paint(ByVal sender As Object, ByVal e _

As System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint

Dim graf As Graphics = e.Graphics

Dim pen As Pen = New Pen(Color.Brown, 3)

Dim penl As Pen = new Pen(Color.gold,3)

Static point() As Point = {New Point(100, 20), New Point _

(200, 20), New Point(150, 120), New Point(50, 120)}

Dim n As Integer

For n = 0 To 3

point(n).X = point(n).X + 1

If point(n).X > 210 Then pen = penl

Next

graf.DrawPolygon(pen, point)

If point (0).X = 300 Then Timerl.StopO

End Sub

Private Sub Timerl_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timerl.Tick Me.RefreshO End Sub

Наконец, рассмотрим еще один заслуживающий внимания пример. Разработаем код для перемещения текста, а точнее, для создания бегущей строки. Задача программы заключается в том, чтобы заданный текст перемещался справа налево до полного исчезновения с экрана монитора, а затем снова появлялся в правой его части и продолжал цикл перемещения. Текстовая строка программируется обычным образом с той лишь разницей, что в качестве горизонтальной координаты указывается переменная. Меняя значение этой переменной, мы изменяем горизонтальную координату и приводим строку в движение. Условный оператор определяет интервал повтора программы.

Private Sub Forml_Paint(ByVal sender As Object, ByVal e _ As System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint Static x As Integer = 820 Static у As Integer x = x - 2

e.Graphics.DrawString(«Бегущая строка», New Font _ («Arial», 26, FontStyle.Italic), Brushes.Red, x, 200) If x = -350 Then x = 820 End Sub

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

Трусов М. А. Visual Basic .NET. Создание графических объектов и основы программирования

Динамика графических объектов

Me. Refresh ()

SetStyle(ControlStyles.UserPaint, True) Setstyle(ControlStyles.AllPaintinglnWmPaint, True) Setstyle(ControlStyles.DoubleBuffer, True) End Sub

Следует отметить, что существует немало способов программирования текста. И эти способы дают возможность составить куда более совершенный код, создающий бегущую строку различного вида. Но все это, скорее, относится к работе с текстом, нежели с графикой.


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