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

 myBitmap = New System.Drawing.Bitmap(PictureBox1.Width, _

  PictureBox1.Height)

 '--------------------------------------------------------------------------

 'Создать объект Graphics, чтобы иметь возможность рисовать на битовой карте

 '--------------------------------------------------------------------------

 Dim myGfx As System.Drawing.Graphics

 myGfx = System.Drawing.Graphics.FromImage(myBitmap)

 'Закрасить нашу битовую карту желтым цветом

 myGfx.Clear(System.Drawing.Color.Yellow)

 'Создать перо

 Dim myPen As System.Drawing.Pen

 rayPen = New System.Drawing.Pen(System.Drawing.Color.Blue)

 '-----------------

 'Нарисовать эллипс

 '-----------------

 myGfx.DrawEllipse(myPen, 0, 0, myBitmap.Width - 1, _

  myBitmap.Height - 1)

 'Создать сплошную кисть

 Dim myBrush As System.Drawing.Brush

 '-----------------------

 'Нарисовать текст кистью

 '-----------------------

 myBrush = New System.Drawing.SolidBrush( _

  System.Drawing.Color.Black)

 'Примечание: мы используем объект Font из формы

 myGfx.DrawString("Привет!", Me.Font, myBrush, 2, 10)

 '------------------------------

 'Важно! Очистить все после себя

 '------------------------------

 myGfx.Dispose

 myPen.Dispose

 myBrush.Dispose

 '-------------------------------------------------------------------

 'Указать объекту pictureBox, на необходимость отображения растрового

 'изображения, которое мы только что создали и нарисовали.

 '-------------------------------------------------------------------

 PictureBox1.Image = myBitmap

End Sub

Листинг 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

Листинг 11.8. Подключение к функции Paint формы

'Кисти, которые мы хотим кэшировать, чтобы избавить себя от необходимости

'все время создавать их и уничтожать

Private m_brushBlue As System.Drawing.Brush

Private m_brushYellow As System.Drawing.Brush

'Ради интереса подсчитаем, сколько раз осуществлялся вызов

Private m_paintCount As Integer