Нека разгледаме един пример, което отново е свързано с реакцията по отношение на движението на мишката. Бутон намира на лист и ще се уверите, че когато поставите курсора на мишката в цвета му се променя бутон. Функционалност трябва да бъде, както следва:
- на мястото на курсора на мишката в горния ляв ъгъл на цветни бутони трябва да бъдат в червено;
- когато курсорът се намира в горната част на цвета на бутон на бутона трябва да е зелен;
- ако курсорът е в долния ляв ъгъл - бутон трябва да бъде син;
- когато курсорът се намира в долната част на бутона трябва да е сиво.
За реализиране на желания ефект, процедурата издава отговор на движение на мишката, както е показано в пример 1.17. Както се вижда от процедурите на текста за Наименование бутон собственост Използва C1.
"Обявата 1.17. Процедура за осъществяване на динамичен цветен бутон промяна Private Sub C1_MouseMove (ByVal Бутон Като цяло число, ByVal Shift Като цяло число, ByVal X като единични, ByVal Y Както Single) Ако X
Тук RGB е функция на Visual Basic, която ви позволява да зададете цвят на обекта под формата на комбинация от трите основни цвята червено, зелено и синьо. Интензивността на всеки от основните цветове са определени като трите входни параметри. В този случай, минималната стойност на интензивността на цвета, равно на 0 (в този случай, в композитен цвят активен цветен компонент просто не е налична) и максималната линия 255. В разглеждания предварително определен максимален интензитет за червените и зелените компоненти и липсата на син цвят. С такава комбинация от трите основни цвята бутон е червено.
Продължаваме разглеждането на текста на процедура по обява. Ако първото условие не е изпълнено, програмата продължава да се провери на второто условие: ElseIf X> C1.Width / 2 и Y. Ако тя притежава, след това задайте зелен цвят на бутона: C1.BackColor - RGB (0, 255, 0). И ако второто условие не е изпълнено, третото условие се проверява: ElseIf X C1.Height / 2 След това.
Свързани статии