Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Один код для MouseMuve - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Один код для MouseMuve (Иное/Other)
Один код для MouseMuve
damask_86ru Дата: Воскресенье, 22.05.2016, 20:21 | Сообщение № 1
Группа: Пользователи
Ранг: Участник
Сообщений: 60
Репутация: 0 ±
Замечаний: 40% ±

Excel 2010
Доброго времени суток!
Возможно ли сделать единый код, который будет срабатывать при наведении мыши к примеру для десятка Label?
Сейчас это выглядит примерно так, только для одного:
[vba]
Код

Private Sub Label1_MouseMove(ByVal Label As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal Y As Single)
    If Label1.ForeColor = RGB(100, 100, 100) Then Image1.Visible = True
    If Label1.ForeColor = RGB(210, 210, 210) Then Image1.Visible = False
End Sub
[/vba]
 
Ответить
СообщениеДоброго времени суток!
Возможно ли сделать единый код, который будет срабатывать при наведении мыши к примеру для десятка Label?
Сейчас это выглядит примерно так, только для одного:
[vba]
Код

Private Sub Label1_MouseMove(ByVal Label As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal Y As Single)
    If Label1.ForeColor = RGB(100, 100, 100) Then Image1.Visible = True
    If Label1.ForeColor = RGB(210, 210, 210) Then Image1.Visible = False
End Sub
[/vba]

Автор - damask_86ru
Дата добавления - 22.05.2016 в 20:21
Karataev Дата: Воскресенье, 22.05.2016, 20:46 | Сообщение № 2
Группа: Проверенные
Ранг: Ветеран
Сообщений: 837
Репутация: 312 ±
Замечаний: 0% ±

Excel
Попробуйте приспособить к своей задаче вложенный файл. Чтобы протестировать файл, запустите форму прямо из VBE и наводите курсор на Label'ы. Будет появляться мессидж с именем Label'а, на который навели курсор.
P.S. Для работы с несколькими элементами управления нужно создать модуль класса.
К сообщению приложен файл: mousemove.xlsm(17Kb)




Сообщение отредактировал Karataev - Воскресенье, 22.05.2016, 20:50
 
Ответить
СообщениеПопробуйте приспособить к своей задаче вложенный файл. Чтобы протестировать файл, запустите форму прямо из VBE и наводите курсор на Label'ы. Будет появляться мессидж с именем Label'а, на который навели курсор.
P.S. Для работы с несколькими элементами управления нужно создать модуль класса.

Автор - Karataev
Дата добавления - 22.05.2016 в 20:46
damask_86ru Дата: Воскресенье, 22.05.2016, 21:09 | Сообщение № 3
Группа: Пользователи
Ранг: Участник
Сообщений: 60
Репутация: 0 ±
Замечаний: 40% ±

Excel 2010
Karataev, спасибо!
 
Ответить
СообщениеKarataev, спасибо!

Автор - damask_86ru
Дата добавления - 22.05.2016 в 21:09
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Один код для MouseMuve (Иное/Other)
Страница 1 из 11
Поиск:

Яндекс цитирования
© 2010-2017 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!