Книга: Программирование мобильных устройств на платформе .NET Compact Framework

Листинг 11.7. Создание объекта Graphics для формы

Листинг 11.7. Создание объекта Graphics для формы

'----------------------------------------------------------
'Создает объект Graphics для формы и осуществляет рисование
'----------------------------------------------------------
Private Sub Button1_Click(ByVal sender As System.Object, _
 ByVal e As System.EventArgs) Handles Button1.Click
 'Создать объект Graphics для формы
 Dim myGfx As System.Drawing.Graphics
 myGfx = Me.CreateGraphics()
 'Создать кисть
 Dim myBrush As System.Drawing.Brush
 myBrush = New System.Drawing.SolidBrush( _
  System.Drawing.Color.DarkGreen)
 'Заполнить прямоугольник
 myGfx.FillRectangle(myBrush, 4, 2, 60, 20)
 '-------------------------
 'Важно: Выполнить очистку!
 '-------------------------
 myBrush.Dispose()
 myGfx.Dispose()
End Sub

Оглавление книги

Оглавление статьи/книги

Генерация: 1.139. Запросов К БД/Cache: 3 / 0
поделиться
Вверх Вниз