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

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

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

> конструктор 2 помещает рисунок в прямоугольную область с указанными координатами; размеры прямоугольной области приравниваются к размерам рисунка;

> конструкторы 3 и 7 помещают рисунок в прямоугольник с указанными координатами и размерами; размеры рисунка приравниваются к размерам прямоугольника;

> конструктор 8 помещает рисунок в прямоугольник с указанными координатами; размеры прямоугольника определяются размерами рисунка, которые задаются программой;

> конструкторы 11 и 12 помещают рисунок в прямоугольник с заданными координатами, размеры которого определяются размерами рисунка; кроме того, программно задаются обратные координаты рисунка относительно верхнего левого угла прямоугольника;

> конструктор 14 задает координаты и размеры прямоугольника, в который помещается рисунок; отдельно задаются координаты и размеры рисунка; размеры рисунка и прямоугольника находятся в пропорциональной зависимости друг от друга, в зависимости от чего рисунок можно растянуть или сжать.

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(-100, -100, 500, 500)

Dim reel As Rectangle = New Rectangle(0, 0, 50, 50)

Dim h = img.Height

Dim w = img.Width

"конструктор №2

"e.Graphics.Drawlmage(img, 10, 10) "конструкторы №№3,7

"e.Graphics.Drawlmage(img, rec) "конструктор № 4,8

"e.Graphics.Drawlmage(img, 0, 0, h, w)

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

Создание ограниченной области изображения

"конструктор № 11,12 е.Graphics.Drawlmage(img, 0, 0, rec, GraphicsUnit.Pixel) "конструктор № 14

"e.Graphics.Drawlmage(img, rec, reel, GraphicsUnit.Pixel) End Sub


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