Есть такие кнопки Active-X которые изменяют внешний вид при прохождении над ними мыши. Такой же эффект можно получить стандартными свойствами MSAccess-97.
Как сделать изменяющиеся кнопки при наведении на них мыш’ю? Есть такие кнопки Active-X которые изменяют внешний вид при прохождении над ними мыши. Такой же эффект можно получить стандартными свойствами MSAccess-97. Сделаем кнопку, изменяющую цвет и размер. Например, если в формах нашего проекта присутствует кнопка с надпис’ю «Вернуться» для закрытия формы. Основной цвет ее текста коричневый, обозначенный как 13209 в палитре, размер –9. В обработку события кнопки «Перемещение указателя» вешаем: Private Sub Вернуться_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) 'цвет меняется на черный, а размер на 10. Me.Вернуться.FontSize = 10 Me.Вернуться.ForeColor = 0 End Sub
В обработку события «Перемещение указателя» области данных формы: Private Sub ОбластьДанных_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) 'при переходе указателя на область данных цвет текста кнопки становится коричневым, а размер 9. Me.Вернуться.FontSize = 9 Me.Вернуться.ForeColor = 13209 End Sub
Если же у нас несколько кнопок, то здесь более уместно будет пробегать вначале все их циклом, устанавливая стандартный цвет и размер текста для всех, а затем изменять их на выбранной кнопке, например: Private Sub Вернуться_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Dim ctr As Control For Each ctr In Me.Controls If ctr = acCommandButton Then ctr.FontSize = 9 ctr.ForeColor = 13209 End If Next ctr Me.Вернуться.FontSize = 10 Me.Вернуться.ForeColor = 0 End Sub
таким образом, мы проверяем каждый элемент, и, если это кнопка, то присваиваем ей стандартные свойства. Затем выбранной кнопке будет задано «необычный» характер.