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

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()

g.FillEllipse(br, 10, 30, 200, 200)

MsgBox("")

g.Dispose()

br.Dispose()

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

3. Результат выполнения этой программы показан на рис. 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()

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

5. Так можно рисовать на поверхности панели или нет? Можно, но только внутри вызова события Paint. Нужно положить на форму панель и написать обработчик для ее события Paint, код которого приведен в листинге 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()

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

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

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

Кроме класса 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.

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

10. Обработчик щелчка на кнопке нужно переписать, как показанов листинге 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()

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

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