VBA - Прозрачность окна и кнопки

Внимание, важное сообщение: Дорогие Друзья!
В ноябре далекого 2001 года мы решили создать сайт и форум, которые смогут помочь как начинающим, так и продвинутым пользователям разобраться в операционных системах. В 2004-2006г наш проект был одним из самых крупных ИТ ресурсов в рунете, на пике нас посещало более 300 000 человек в день! Наша документация по службам Windows и автоматической установке помогла огромному количеству пользователей и сисадминов. Мы с уверенностью можем сказать, что внесли большой вклад в развитие ИТ сообщества рунета.

Но... время меняются, приоритеты тоже. И, к сожалению, пришло время сказать До встречи! После долгих дискуссий было принято решение закрыть наш проект. 1 августа форум переводится в режим Только чтение, а в начале сентября мы переведем рубильник в положение Выключен

Огромное спасибо за эти 24 года, это было незабываемое приключение. Сказать спасибо и поделиться своей историей можно в данной теме.

С уважением, ваш призрачный админ, BigMac...

| Правила

Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Программирование и базы данных » VBA - Прозрачность окна и кнопки

Настройки темы

VBA - Прозрачность окна и кнопки

Мутаген

Пользователь

Сообщения: 54
Благодарности: 0

Профиль | Отправить PM | Цитировать

Создаем проект Visual Basic, на форму кидаем кнопку и пишем код в эту форму:

PHP код:


Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long

Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

Private Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long



Private Sub Form_Load()

    Dim Ret As Long

    Ret = GetWindowLong(hwnd, GWL_EXSTYLE)

    Ret = Ret Or &H80000

    SetWindowLong hwnd, (-20), Ret

    

    SetLayeredWindowAttributes hwnd, 0, 128, 2

End Sub

И наша форма становится прозразна на 50 процентов. Теперь немножко переделываем код для кнопки:

PHP код:


Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long

Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

Private Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long



Private Sub Form_Load()

    Dim Ret As Long

    Ret = GetWindowLong(Command1.hwnd, GWL_EXSTYLE)

    Ret = Ret Or &H80000

    SetWindowLong Command1.hwnd, (-20), Ret

  

    SetLayeredWindowAttributes Command1.hwnd, 0, 128, 2 Or 1

    

End Sub