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

@JoraVoenyjHaker · 16.10.2013, 13:54. **Показов** 6781. **Ответов** 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 ? ну это перерисовка наверно

Новые блоги и статьи Все статьи Все блоги /
Генератор паролей (вариант №3) Maks 30.10.2026 Финальная версия генератора паролей 1С. Доработка решения в этот раз коснулась только визуальной части, а именно, добавлен реквизит ДопПараметры (тип Булево), который скрывает/ отображает реквизиты:. . .	Магическое мышление и магия, современная наука не отличима от магии (говорит ИИ Джемени) zorxor 30.10.2026 Джемени, расскажи, пожалуйста, что такое магическое мышление, что такое магия, почему современная наука чем-то напоминает магию? Фраза «Любая достаточно развитая технология неотличима от магии». . .	За какое время ИИ может подобрать пароль по хешу (рассказывает Джемени ИИ) zorxor 30.10.2026 Расскажи, Джемени, если известен хэш МД5, например, за сколько ИИ сможет подобрать соответствующий пароль? Искусственный интеллект (ИИ) может подобрать простой или средний по сложности пароль по. . .	Кто убил Suno? Почему наше солнышко погасло? (диалог с ИИ Джемени) zorxor 30.10.2026 Как убивали Suno. Хронология. «Убийство» музыкальной нейросети Suno — это затяжной процесс, в котором технологический хайп стартапа разбился о жесткую реальность судебных исков от гигантов. . .
Генератор паролей (вариант №2) Maks 30.10.2026 Обновленная версия ранее созданной обработки. Добавлены следующие реквизиты типа Булево: - Буквы; - Цифры; - Символы. Изменена логика команды "Сгенерировать" и процедуры "ПриОткрытии":. . .	Генератор паролей (вариант №1) Maks 29.10.2026 Реализация из решения ниже выполнена исключительно по моей инициативе, дабы облегчить себе работу в создании паролей для администрируемых мною сервисов и пользователей. Самым главным критерием для. . .	Установка ChatGPT (Codex) на Windows без использования Microsoft Store Fabien159 28.10.2026 Здравствуйте всем читающим! Опишу процесс установки ChatGPT (Codex) на Windows, если по каким-то причинам у вас не получается устанавить его через Microsoft Store. И так: 1. Скачиваем с. . .	Программное добавление префикса в нумерацию документов Maks 27.10.2026 Реализация из решения ниже выполнена в самописной конфигурации на БСП (помощь начинающему коллеге). Задача: Программно добавить префикс в нумерацию документов. Решение: В модуле объекта. . .

@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