Программирование для карманных компьютеров

Конечно, можно попытаться получить графический объект панели из события Paint в созданном поле формы или все же вызывать из панели CreateGraphics (во время компиляции это не вызовет ошибок), но результат будет неутешителен. На панели можно рисовать только внутри события Paint. То же самое касается и объекта PictureBox.

Класс System.Drawing.Graphics является главным классом в пространстве имен System.Drawing. Именно он содержит методы для графического вывода. Важнейшие методы этого класса перечислены в табл. 6.32.

Таблица 6.32. Важные методы класса Graphics

Кроме класса Graphics в области имен System.Drawing есть и другие классы, но они являются, скорее, вспомогательными. Они обеспечивают необходимыми параметрами и свойствами графические объекты, но не отображают их.

В следующем списке приведены основные классы области имен System.Drawing.

? Bitmap – битовое изображение.

? Brush – абстрактный класс, который не используется напрямую.

? Color – цвет для графических объектов.

? Font – шрифт для графических объектов.

? FontFamily – семейство, к которому относится шрифт.

? Icon – специальное битовое изображение.

? Image – абстрактный класс, который не используется напрямую.

? Pen – перо для рисования контуров.

? Region – область, на которой осуществляется рисование.

? SolidBrush – единственный по умолчанию доступный тип кисти в. NET CF.

? SystemColors – коллекция системных цветов.

Упражнение 6.6 (продолжение)

7. Выполнить команду Project ? Add New Item ? Icon File, ввести имя файла my.ico и нажать кнопку ОК.

8. В окне Solution Explorer двойным щелчком открыть файл my.ico и в редакторе нарисовать пиктограмму, как это показано на рис. 6.29.

Рис. 6.29. Пиктограмма.

9. Удалить из кода событие формы Paint.

10. Обработчик щелчка на кнопке нужно переписать, как показанов листинге 6.39.

Листинг 6.39

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

Handles Button1.Click

Dim br As New Drawing.SolidBrush(Drawing.Color.Red)

Dim g As Graphics = Me.CreateGraphics

Dim rg1, rg2 As Drawing.Region

rg1 = New Drawing.Region(New Drawing.Rectangle(0, 0, 240, 110))

rg2 = New Drawing.Region(New Drawing.Rectangle(100, 50, 40, 100))

rg1.Xor(rg2)

g.Clip = rg1

g.FillEllipse(br, 20, 40, 200, 200)

Dim pathStr As String = IO.Path.GetDirectoryName(_

System.Reflection.Assembly.GetExecutingAssembly. GetName. CodeBase)

Dim fs As IO.FileStream = New IO.FileStream(_

pathStr + «\My.ico», IO.FileMode.Open)

Dim ico As New Drawing.Icon(fs)

g.DrawIcon(ico, 105, 120)

g.Dispose

br.Dispose

ico.Dispose

fs.Close

End Sub

11. Запустить приложение. После нажатия кнопки на экране должно появиться следующее изображение, показанное на рис 6.30.

Рис. 6.30. Результат работы измененной программы.