Чтение онлайн

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

3. Результат выполнения этой программы показан на рис. 6.27.

Рис. 6.27. Результат повреждения рисунка на форме окном сообщения.

4. Каждый раз, когда с элементом управления происходит событие, которое может повредить рисунок на его поверхности, например перекрытие другим объектом или изменение размеров, происходит его перерисовка, то есть срабатывает событие OnPaint. Нужно написать обработчик этого события, как это показано в листинге 6.37. Листинг 6.37

Private Sub Form1_Paint(ByVal sender As Object, ByVal e As

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

Dim g As Graphics = e.Graphics

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

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

br.Dispose

End Sub

В этом случае кисть освобождается, а сам графический объект в освобождении не нуждается. После того как окно сообщений будет убрано, на красном круге не останется следов, потому что он рисуется заново.

5. Так можно рисовать на поверхности панели или нет? Можно, но только внутри вызова события Paint. Нужно положить на форму панель и написать обработчик для ее события Paint, код которого приведен в листинге 6.38.

Листинг 6.38

Private Sub Panel1_Paint(ByVal sender As System.Object, ByVal e As

System.Windows.Forms.PaintEventArgs) Handles Panel1.Paint

Dim gPan As Graphics = e.Graphics

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

Panel1.BackColor = Drawing.Color.Black

gPan.FillEllipse(br, 75, 10, 40, 40)

br.Dispose

End Sub

6. Результат работы программы показан на рис. 6.28.

Рис. 6.28. Рисование на панели в событии Paint.

Конечно, можно попытаться получить графический объект панели из события 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. Результат работы измененной программы.

В этой программе было показано, как загружается и выводится на экран файл пиктограммы. Кроме этого, было показано, как можно комбинировать области для создания сложной зоны вывода изображения на поверхность объекта Graphics. В строке кода rg1.Xor(rg2) вместо операции Xor можно применять операторы Complement, Exclude или Intersect. Каждый раз будет создаваться новая комбинация областей.

Заключение

Конечно, вопрос программирования в. NET CF слишком велик, чтобы можно было рассмотреть его в одной главе. Мы только слегка познакомились с этим масштабным нововведением Microsoft и рассмотрели только один язык VB.NET. Впрочем, благодаря общей системе типов и сближению синтаксиса, изучение программирования на C# не составит труда. Достаточно сказать, что в сети Интернет уже есть сайт, на котором можно транслировать программу, написанную на VB.NET в ее эквивалент на C#.

Поскольку практически все программы, которые будут рассмотрены в данном разделе, не имеют официальных дистрибьюторов и не распространяются на CD-ROM, описание каждой программы будет начинаться с адреса сайта разработчика в Интернете. Если таковой адрес отсутствует (что, к сожалению, случается), это значит, что программу можно найти и загрузить на свой компьютер на одном из сайтов, которые приведены в следующем списке.

? http://www.pocketgear.com

? http://www.hpc.ru

? http://www.ladoshki.com

? http://www.freewareppc.com

? http://www.pocketpcsoft.net

Basic4PPC

Это как раз тот самый случай, когда трудно найти сайт производителя хорошей программы. Автору не удалось найти сайт фирмы Anywhere Software. Но саму программу можно загрузить с сайта www.pocketgear.com.

Программа Basic4PPC совмещает возможности обычного языка Basic и преимущества визуального дизайна Microsoft Visual Basic. Для работы программы необходима среда. NET CF.

Функционально среда разработки весьма ограниченна. Отсутствует взаимодействие с COM и ActiveX, загрузка и использование динамических библиотек, нельзя обращаться к системным функциям Windows CE или использовать графику. Этот язык поддерживает только элементарные математические возможности, операции со строками, файлами, с формами и элементами управления.

Программа состоит из трех основных частей.

? Run-time среда Basic4ppcRunner для выполнения скомпилированных программ.

? Среда Basic4ppc для создания программ на устройстве Pocket PC.

? Среда Basic4ppcDesktop для создания программ на рабочей станции.

Run-time среда и среда для создания программ на рабочей станции могут использоваться без всяких ограничений. Однако ядро программы и среда для создания приложений на Pocket PC обладают ограниченной функциональностью. Среда работает только 10 дней и не позволяет создавать скомпилированные программы. Не могут быть созданы скомпилированные приложения и в настольном варианте до тех пор, пока вы пользуетесь свободно распространяемой версией.

Не стоит искать в сети серийных номеров для данного продукта. Автор программы не распространяет полнофукнциональную версию. Если же понадобится ею обзавестись, то следует обратиться на сайт www.pocketgear.com и заплатить около 18 долларов, после чего вам вышлют полнофункциональную версию программы.

В обмен на довольно ограниченные возможности языка (отладки там тоже нет) вы получаете довольно легкую и быструю среду, в которой можно разрабатывать приложения как на самом Pocket PC, так и на настольном компьютере.