Трусов М. А. Visual Basic .NET. Создание графических объектов и основы программирования стр.68
Трусов М. А. Visual Basic .NET. Создание графических объектов и основы программирования стр.68

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

А теперь рассмотрим практический пример. В этом коде создается область ограничения и загружается рисунок с помощью четвертого или восьмого конструктора. Мы установим достаточно большие размеры рисунка, но, запустив программу, увидим только то, что находится в области ограничения.

Private Sub Forml_Paint(ByVal sender As Object, ByVal e _

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

Dim fname As String = «c:\водяные лилии.jpg»

Dim img As Image = Image.FromFile(fname)

Dim rec As Rectangle = New Rectangle(0, 0, 100, 100)

e.Graphics.SetClip(rec, Drawing2D.CombineMode.Intersect)

e.Graphics,Drawlmage(img, 0, 0, 800, 600)

End Sub

Наконец, рассмотрим еще один способ ограничения части фонового рисунка. Суть его заключается в том, что областью ограничения может быть не только прямоугольник, но и любая геометрическая фигура, являющаяся частью патча. В этой программе мы создадим эллипс, в котором будет отображаться выбранная часть фонового рисунка. Выбор определит перемещающийся вслед за курсором четырехугольник. Область, ограниченная данным четырехугольником, будет отображаться в эллипсе. Координаты четырехугольника заданы переменными, видимыми в пределах модуля. Их значениями являются координаты курсора. Кроме того, здесь добавлен код, стабилизирующий положение рисунка.

Private z As Integer Private v As Integer

Private Sub Form2_Paint(ByVal sender As Object, ByVal e _ As System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint Dim nam As String = «C:\Водяные лилии.jpg»

Трусов М. А. Visual Basic .NET. Создание графических объектов и основы программирования

ГЛАВА 11 ▼ Некоторые особенности работы с графикой

"Dim ris As Image = Image.FromFile(nam)

Dim rec As Rectangle = New Rectangle(z, v, 100, 100) "

рисунок

Dim reel As Rectangle = New Rectangle(300, 100, 100, 100) " эллипс

Dim img As New Bitmap (nam)

Dim txr As New TextureBrush(img, rec)


⇐ Предыдущая Следующая ⇒
 
 
 
Powered by Exponenta