Альфа - наложение - полупрозрачность

@JoraVoenyjHaker · 16.10.2013, 13:54. **Показов** 6743. **Ответов** 50

Студворк — интернет-сервис помощи студентам

Простой способ сделать форму полу-прозрачной

1 Разместите эти строчки в модуле формы Form1
2 на форме сделайте кнопку Command1

всё форма полупрозрачная !!! Вкл/выкл прозрачности !!!
Можно изменить значение Alpha по своему усмотрению

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Private Const GWL_EXSTYLE = (-20)
Private Const WS_EX_LAYERED As Long = &H80000
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 l1 As Long, ByVal l2 As Long, ByVal l3 As Long) As Long
 
 
Private Sub Command1_Click()
    Const Alpha = 450
    If Command1.Caption = "Включить" Then
        Command1.Caption = "Отключить"
        SetWindowLong hwnd, GWL_EXSTYLE, GetWindowLong(hwnd, GWL_EXSTYLE) Or WS_EX_LAYERED
        SetLayeredWindowAttributes hwnd, 0, Alpha, 2
    Else
        SetWindowLong hwnd, GWL_EXSTYLE, 0
        Command1.Caption = "Включить"
    End If
End Sub
 
Private Sub Form_Load()
    Command1.Caption = "Включить"
End Sub

Добавлено через 4 минуты
В сочетании со стилями на форме у меня выглядит как крутая комерческая прога )))

@JoraVoenyjHaker · 20.10.2013, 10:59 **[ТС]**

Сообщение от gaw

целевую аудиторию определили

Мне советовали быть ближе к народу

))

@The trick · 20.10.2013, 11:00

Давай контролам нормальные имена, а не Command1, Form1
Используй именованные константы, что за &H4000? ICC_STANDARD_CLASSES. Если константы Long можно использовать Enum'ы
К чему это?

Visual Basic
1
2
    Dim Name1
    Name1 = CreateObject("Scripting.FileSystemObject").GetTempName

Зачем Variant? Чтобы медленно работало?
Для чего нужно загружать библиотеку Shell32? И потом ее и выгружать сразу же.

@JoraVoenyjHaker · 20.10.2013, 11:15 **[ТС]**

Сообщение от The trick

Dim Name1
* * Name1 = CreateObject("Scripting.FileSyste....

торопился похвастаться )))
забыл удалить из шаблона

Добавлено через 3 минуты
Это шаблон!
там вообще можно было любую чипушню написать )))

Добавлено через 7 минут
А шаблон был взят из тэстового проекта
вот и забыл удалить, с именованными константами учту OK !

@gaw · 20.10.2013, 11:16

JoraVoenyjHaker, выскажу сугубо свое мнение с учетом того, что тема мне даже интересна.
Создайте свое детище, обкатайте его и, как минимум, выложите в готовых решениях, где
и получите отзывы, замечания, советы по поводу и сути.
если есть конкретные проблемные вопросы - задавайте, - знающие ответят.
а так вот это все, что выше, напоминает отчеты о текущем состоянии Ваших дел.(можно назвать по другому, но не хочу грубить).
и вот это в 10!

Сообщение от JoraVoenyjHaker

торопился похвастаться )))

@The trick · 20.10.2013, 11:17

Сообщение от JoraVoenyjHaker

Это шаблон!
там вообще можно было любую чипушню написать )))

Да зачем тогда он нужен со всякой чепушнёй? Ладно для себя, но это для людей же делаешь.

@JoraVoenyjHaker · 20.10.2013, 11:25 **[ТС]**

ответ gaw
то о чем вы не захотели грубить не отчёт !
а получение полезной информации от знающих

@The trick · 20.10.2013, 11:27

Если хочешь чтобы люди пользовались твоей утилитой, добавь побольше функционала, окна нестандартной формы и расцветки и т.п. Эта тема как раз популярна у начинающих, многие любят делать "красивые кнопочки", чтоб при наведении они подсвечивались, меню с иконками и т.п. Если нужна будет помощь в этих вопросах можешь спрашивать, я помогу.
Можно сделать проще, создать модуль. А из формы вызываешь например Hook и все контролы и сама форма становяться нестандартными. Unhook и все возвращается на свои места, и без всяких дополнительных контролов.

@JoraVoenyjHaker · 20.10.2013, 17:11 **[ТС]**

Ок!
а ещё я думаю о том что от избытка красоты утилита может значительно отяжелеть (в байтах)

Добавлено через 5 часов 39 минут
gaw меня критикует по мелочам
мало кто в наше время чтото сам создаёт, а не списывает готовое
вот мне принципиально важно вникнуть самому, почему что и как там делается

@gaw · 20.10.2013, 17:54

я не критикую, я просто высказал свое мнение о том, что
есть ветка Готовые решение
есть https://www.cyberforum.ru/development/

@JoraVoenyjHaker · 20.10.2013, 18:03 **[ТС]**

Разработка и тэстирование....
ясно... )))

dev.Free · 20.10.2013, 18:08

JoraVoenyjHaker,

1. Счет на форме лишние. Дождешься ломанут!
2. Девушка красивая на фоне.

@JoraVoenyjHaker · 20.10.2013, 18:12 **[ТС]**

не по теме:
от вопроса до разработки
и готового проекта..... !!! )))

Добавлено через 1 минуту

Сообщение от inv.DS

Счет на форме лишние. Дождешься ломанут!

Там минус пусть ломают, есть запасной )))

@The trick · 20.10.2013, 18:15

А почему бы не сделать в виде модуля? Тогда уже к готовым проектам будет очень просто прилепить.

@JoraVoenyjHaker · 20.10.2013, 18:18 **[ТС]**

хотя да...
в версии 2 уберу оставлю почту

Добавлено через 1 минуту

Сообщение от The trick

А почему бы не сделать в виде модуля? Тогда уже к готовым проектам будет очень просто прилепить.

я как раз сейчас этим и занимаюс, хочу с шаблонами отправлять еще и модули
или OCX в папке прикреплённая к проекту

@The trick · 20.10.2013, 18:20

Сообщение от JoraVoenyjHaker

или OCX в папке прикреплённая к проекту

Для чего?

@JoraVoenyjHaker · 20.10.2013, 18:31 **[ТС]**

Сообщение от The trick

Для чего?

там я ещё замутил нестандартный контур формы, нашол такой OCX

Добавлено через 7 минут
Ну тоесть он не мой, работает если соеденить с проектом

@The trick · 20.10.2013, 18:35

Сообщение от JoraVoenyjHaker

там я ещё замутил нестандартный контур формы, нашол такой OCX

Не надо для этого ОСХ, есть для этого замечательные функции WinAPI, SetWindowRgn и т.п. Таскать OCX для такой цели, это очень нехорошо и никто не будет этим пользоваться.

@JoraVoenyjHaker · 20.10.2013, 18:45 **[ТС]**

я не знаю ни одного примера как им пользоваться, если вы покажете мне хотябы кусок кода пример
если не хотите показывать скиньне в личное сообщение

Добавлено через 6 минут
Все знания об API у меня полученны методом тыка )))

@radlif · 20.10.2013, 18:59

Сообщение от JoraVoenyjHaker

я не знаю ни одного примера как им пользоваться, если вы покажете мне хотябы кусок кода пример
если не хотите показывать скиньне в личное сообщение
Добавлено через 6 минут
Все знания об API у меня полученны методом тыка )))

По моим темам полазь, там прозрачность и полу прозрачность формы и контролов
основанная на функциях API мной и The trick обсуждалась столько
что можно целый справочник накатать))

@JoraVoenyjHaker · 20.10.2013, 19:06 **[ТС]**

Ок загляну скинь ссылку ??? чтоб долго не искать

Declare Function SetWindowRgn Lib "user32" Alias "SetWindowRgn" (ByVal hWnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long
hRgn ?
bRedraw ? ну это перерисовка наверно

Новые блоги и статьи Все статьи Все блоги /
FPS контроллер с анимированными Y-Bot и 3D-звуком miniaudio (Box3D, Recast, BehaviorTree.CPP, ozz-animation, ImGui, OpenGL и SDL3) 8Observer8 18.10.2026 Содержание блога \| English Version Полное мультиплатформенное руководство по стартовому проекту с FPS-контроллером игрока, анимированными роботами Y-Bot с 4-слойным блендингом, 3D-физикой Box3D,. . .	Локальный http сервер Argus19 17.10.2026 Локальный http сервер На работе, на двух локальных компьютерах круглосуточно работают программы опроса приборов с записью в книги Excel,которые раз в сутки записываются на сервер компании. Т. к. . . .	Копировать Windows на новый диск на UEFI damix 17.10.2026 https:/ / uriesk. wordpress. com/ 2016/ 11/ 01/ move-window-10-to-ssd-on-a-uefi-dualboot-system-with-basic-linux-tools/ TL DR Вставляем диск, а старый подключаем через переходник, грузимся с лайва. . .	ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .
Новая последняя моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .	Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .	Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .

@JoraVoenyjHaker Заблокирован
	20.10.2013, 11:25 [ТС]
	ответ gaw то о чем вы не захотели грубить не отчёт ! а получение полезной информации от знающих 0

@The trick Модератор 10068 / 3913 / 886 Регистрация: 22.02.2013 Сообщений: 5,863 Записей в блоге: 79
	20.10.2013, 11:27
	Если хочешь чтобы люди пользовались твоей утилитой, добавь побольше функционала, окна нестандартной формы и расцветки и т.п. Эта тема как раз популярна у начинающих, многие любят делать "красивые кнопочки", чтоб при наведении они подсвечивались, меню с иконками и т.п. Если нужна будет помощь в этих вопросах можешь спрашивать, я помогу. Можно сделать проще, создать модуль. А из формы вызываешь например Hook и все контролы и сама форма становяться нестандартными. Unhook и все возвращается на свои места, и без всяких дополнительных контролов. Миниатюры 1

@JoraVoenyjHaker Заблокирован
	20.10.2013, 17:11 [ТС]
	Ок! а ещё я думаю о том что от избытка красоты утилита может значительно отяжелеть (в байтах) Добавлено через 5 часов 39 минут gaw меня критикует по мелочам мало кто в наше время чтото сам создаёт, а не списывает готовое вот мне принципиально важно вникнуть самому, почему что и как там делается 0

@gaw 6644 / 1511 / 169 Регистрация: 09.01.2010 Сообщений: 4,298
	20.10.2013, 17:54
	я не критикую, я просто высказал свое мнение о том, что есть ветка Готовые решение есть https://www.cyberforum.ru/development/ 0

@JoraVoenyjHaker Заблокирован
	20.10.2013, 18:03 [ТС]
	Разработка и тэстирование.... ясно... ))) 0

dev.Free Заблокирован
	20.10.2013, 18:08
	JoraVoenyjHaker, 1. Счет на форме лишние. Дождешься ломанут! 2. Девушка красивая на фоне. 0

@The trick Модератор 10068 / 3913 / 886 Регистрация: 22.02.2013 Сообщений: 5,863 Записей в блоге: 79
	20.10.2013, 18:15
	А почему бы не сделать в виде модуля? Тогда уже к готовым проектам будет очень просто прилепить. 0

@JoraVoenyjHaker Заблокирован
	20.10.2013, 18:45 [ТС]
	я не знаю ни одного примера как им пользоваться, если вы покажете мне хотябы кусок кода пример если не хотите показывать скиньне в личное сообщение Добавлено через 6 минут Все знания об API у меня полученны методом тыка ))) 0

@JoraVoenyjHaker Заблокирован
	20.10.2013, 19:06 [ТС]
	Ок загляну скинь ссылку ??? чтоб долго не искать Declare Function SetWindowRgn Lib "user32" Alias "SetWindowRgn" (ByVal hWnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long hRgn ? bRedraw ? ну это перерисовка наверно 0