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

Листинг 11.6. Создание изображения на внеэкранной растровой поверхности и передача его в элемент управления PictureBox

Листинг 11.6. Создание изображения на внеэкранной растровой поверхности и передача его в элемент управления PictureBox

'--------------------------------------------------------------------
'Создать рисунок на растровой поверхности. Переслать его в PictureBox
'--------------------------------------------------------------------
Private Sub Button1_Click(ByVal sender As System.Object, _
 ByVal e As System.EventArgs) Handles Button1.Click
 'Создать новую битовую карту
 Dim myBitmap As System.Drawing.Bitmap
 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

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

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

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