Доброго времени суток! Возможно ли сделать единый код, который будет срабатывать при наведении мыши к примеру для десятка 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
Попробуйте приспособить к своей задаче вложенный файл. Чтобы протестировать файл, запустите форму прямо из VBE и наводите курсор на Label'ы. Будет появляться мессидж с именем Label'а, на который навели курсор. P.S. Для работы с несколькими элементами управления нужно создать модуль класса.
Попробуйте приспособить к своей задаче вложенный файл. Чтобы протестировать файл, запустите форму прямо из VBE и наводите курсор на Label'ы. Будет появляться мессидж с именем Label'а, на который навели курсор. P.S. Для работы с несколькими элементами управления нужно создать модуль класса.Karataev