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

Вход

Регистрация

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

 

= Мир MS Excel/Прозрачность BackColor при нажатии на label - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Прозрачность BackColor при нажатии на label (Макросы/Sub)
Прозрачность BackColor при нажатии на label
MAK93 Дата: Среда, 03.05.2017, 11:24 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 18
Репутация: 0 ±
Замечаний: 0% ±

2016
Добрый день, дорогие форумчане!
Возникла проблема, нужно чтобы по нажатии на label происходило событие mousedown и он не перекрывал стоящие за ним графические объекты( был прозрачным).
Я ставлю BackStyle = Transparent, но при нажатии на label появляется его backcolor и перекрывает все((
К сообщению приложен файл: 9863185.xlsx (11.9 Kb)
 
Ответить
СообщениеДобрый день, дорогие форумчане!
Возникла проблема, нужно чтобы по нажатии на label происходило событие mousedown и он не перекрывал стоящие за ним графические объекты( был прозрачным).
Я ставлю BackStyle = Transparent, но при нажатии на label появляется его backcolor и перекрывает все((

Автор - MAK93
Дата добавления - 03.05.2017 в 11:24
nilem Дата: Среда, 03.05.2017, 16:18 | Сообщение № 2
Группа: Авторы
Ранг: Старожил
Сообщений: 1613
Репутация: 563 ±
Замечаний: 0% ±

Excel 2013, 2016
MAK93, привет
не вот эдак вот ли?:
[vba]
Код
Private Sub Label1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
With Me.Label1
    If .BackStyle = fmBackStyleOpaque Then
        .BackStyle = fmBackStyleTransparent
    Else
        .BackStyle = fmBackStyleOpaque
    End If
End With
End Sub
[/vba]


Яндекс.Деньги 4100159601573
 
Ответить
СообщениеMAK93, привет
не вот эдак вот ли?:
[vba]
Код
Private Sub Label1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
With Me.Label1
    If .BackStyle = fmBackStyleOpaque Then
        .BackStyle = fmBackStyleTransparent
    Else
        .BackStyle = fmBackStyleOpaque
    End If
End With
End Sub
[/vba]

Автор - nilem
Дата добавления - 03.05.2017 в 16:18
MAK93 Дата: Среда, 03.05.2017, 16:37 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 18
Репутация: 0 ±
Замечаний: 0% ±

2016
nilem, большое спасибо за ответ, но увы...
Вы посмотрели вложенный файл? Нужно чтобы при клике лейб не перекрашивался, а оставался прозрачным...


Сообщение отредактировал MAK93 - Среда, 03.05.2017, 16:43
 
Ответить
Сообщениеnilem, большое спасибо за ответ, но увы...
Вы посмотрели вложенный файл? Нужно чтобы при клике лейб не перекрашивался, а оставался прозрачным...

Автор - MAK93
Дата добавления - 03.05.2017 в 16:37
nilem Дата: Среда, 03.05.2017, 17:13 | Сообщение № 4
Группа: Авторы
Ранг: Старожил
Сообщений: 1613
Репутация: 563 ±
Замечаний: 0% ±

Excel 2013, 2016
Вроде понял. Попробуйте эл-нт Подпись (элемент упр-я формы) вместо Лейбла.


Яндекс.Деньги 4100159601573
 
Ответить
СообщениеВроде понял. Попробуйте эл-нт Подпись (элемент упр-я формы) вместо Лейбла.

Автор - nilem
Дата добавления - 03.05.2017 в 17:13
MAK93 Дата: Среда, 03.05.2017, 17:41 | Сообщение № 5
Группа: Пользователи
Ранг: Новичок
Сообщений: 18
Репутация: 0 ±
Замечаний: 0% ±

2016
nilem, а как на него повесить события mouseup и mousedown?
 
Ответить
Сообщениеnilem, а как на него повесить события mouseup и mousedown?

Автор - MAK93
Дата добавления - 03.05.2017 в 17:41
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Прозрачность BackColor при нажатии на label (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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