Робота з малюнками
Д
1. Відкрийте вже знайомий проект Controls.vbp з підкаталогу \MSDN98\98vs\1033\ Samples\VB98\Controls\.
2. Запустіть програму і натисніть кнопку Images.
Як видно з мал. 3.11, ви можете клацнути на будь-якому символі карткової масті, і програма повідомить про те, яка масть була вибрана. Приведений нижче код програми простий і гранично зрозумілий.
Мал. 3.11. Робота з малюнками.
Private Sub imgClub_Click()
shpCard.Left = imgClub.Left
picStatus.Cls
picStatus.Print «Трефі» End Sub Private Sub imgDiamond_Click()
shpCard.Left = imgDiamond.Left
picStatus.Cls
picStatus.Print «Бубни» End Sub Private Sub imgHeart_Click()
shpCard.Left = imgHeart.Left
picStatus.Cls
picStatus.Print «Черва» End Sub private Sub imgSpade_Click()
shpCard.Left = imgSpade.Left
picStatus.Cls
picStatus.Print «Спис»
End Sub
Контур карти є спеціальним елементом, який під час виконання програми зрушується за лівий край форми. Це забезпечується рядком shpCard. Left = - 500 в коді події Load форми. Того ж ефекту можна досягти, встановивши значення властивості Visible в False.
Графічні поля
Як неважко здогадатися по назві, графічні поля (див. малюнок) часто використовуються для відображення графічних файлів (наприклад, растрів, значків, файлів у форматі JPEG або GIF). В цьому відношенні вони схожі на тільки що розглянуті нами малюнки. Проте ці елементи мають різні властивості і по-різному поводяться. Якщо ви хочете просто вивести картинку на формі, то малюнок зазвичай виявляється зручніше за графічне поле. Малюнки займають менше пам'яті і фактично є спрощеними варіантами графічних полів. З іншого боку, якщо картинка повинна переміщатися за формою, графічні поля забезпечують вищу якість виводу. Крім того, під час виконання програми в графічному полі можна виводити текст і малювати за допомогою різних методів. Графічні методи малюють лінії, круги і прямокутники під час виконання програми. Але найголовніше полягає в тому, що графічне поле може виконувати функції контейнера. Отже, в нього можна помістити кнопку або інший елемент. В цьому відношенні графічні поля діють як «форми усередині форм».
Властивості графічних полів
У наступній таблиці перераховані усі властивості графічних полів. Зверніть увагу на те, що по кількості властивостей графічні поля помітно випереджають малюнки.
-
Align
Appearance
AutoRedraw
AutoSize
BackColor
Borderstyle
CausesValidation
ClipControls
Container
CurrentX
CurrentY
DataChanged
DataField
DataFormat
DataMember
DataSource
DragIcon
DragMode
DrawMode
Height
RightToLeft
DrawStyle
HelpContextID
ScaleHeight
DrawWidth
hWnd
ScaleLeft
Enabled
Image
ScaleMode
FillColor
Index
ScaleTop
FillStyle
Left
ScaleWidth
Font
Linkltem
Tablndex
FontBold
LinkMode
TabStop
FontItalic
LinkTimeout
Tag
FontName
LinkTopic
ToolTipText
FontSize
MouseIcon
Top
FontStrikethru
MousePointer
Visible
FontTransparent
Name
WhatsThisHelpID
FontUnderline
OLEDragMode
Width
ForeColor
OLEDropMode
HasDC
Parent
hDC
Picture
Як бачите, цього разу властивостей досить багато. Вміст графічного поля відображується відповідно до своїх нормальних розмірів. Якщо картинка не поміщається в поле, її краї обрізуються. Якщо присвоїти властивості AutoSize значення True, графічне поле підганяється під розміри вмісту. Вміст графічного поля визначається властивістю Pictuге - його можна змінювати 1 як в режимі конструювання, так і в режимі виконання. У графічних полів є ще одна властивість з схожою назвою - Image. Воно доступне тільки в 1 режимі виконання і застосовується для копіювання картинки з одного графічного поля в інше. Ця операція має наступний синтаксис:
Picture2. Picture = Picture!. Image
Ви можете копіювати вміст графічних полів скрізь, де вважаєте потрібними. Наприклад, зображення може змінюватися, коли користувач вибирає з бази даних новий запис.
Приведений вище рядок поміщає копію вмісту першого графічного 1 поля в друге (через властивість Picture). Крім того, картинку можна змінювати безпосередньо під час виконання. Це робиться так:
Picture1. Picture = LoadPicture («filename»)
Щоб очистити графічне поле, можна викликати функцію Visual Basic Load
Picture() без параметрів:
Picture1. Picture = LoadPicture()