Робота з малюнками

Давайте розглянемо приклад практичної роботи з малюнками:

1. Відкрийте вже знайомий проект Controls.vbp з підкаталогу \MSDN98\98vs\1033\ Samples\VB98\Controls\.

2. Запустіть програму і натисніть кнопку Images.

Як видно з мал. 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.