Richard MacCutchan
В полях ниже последнее значение находится между 0.0 для полностью прозрачного и 1.0 для полностью непрозрачного. Второй красный ряд показывает полностью непрозрачный, остальные частично прозрачны.
Красный : цвет фона:rgba(255,0,0,0.3)
Красный : цвет фона:rgba(255,0,0,1.0)
Зеленый : цвет фона:rgba(0,255,0,0.3)
Синий : цвет фона:rgba(0,0,255,0.3)
Серый : -цвет:rgba(192,192,192,0.3)
Желтый : цвет фона:rgba(255,255,0,0.3)
Вишневый цвет : цвет фона:rgba(255,0,255,0.3)
Часть прозрачный красный текст : цвет:rgba(255,0,0,0.3)
Код таков:
<p style="background-color:rgba(255,0,0,0.3);">Red : background-color:rgba(255,0,0,0.3)</p>
<p style="background-color:rgba(255,0,0,1.0);">Red : background-color:rgba(255,0,0,1.0)</p>
<p style="background-color:rgba(0,255,0,0.3);">Green : background-color:rgba(0,255,0,0.3)</p>
<p style="background-color:rgba(0,0,255,0.3);">Blue : background-color:rgba(0,0,255,0.3)</p>
<p style="background-color:rgba(192,192,192,0.3);">Grey : -color:rgba(192,192,192,0.3)</p>
<p style="background-color:rgba(255,255,0,0.3);">Yellow : background-color:rgba(255,255,0,0.3)</p>
<p style="background-color:rgba(255,0,255,0.3);">Cerise : background-color:rgba(255,0,255,0.3)</p>
<p style="color:rgba(255,0,0,0.3);">Part transparent Red text : color:rgba(255,0,0,0.3)</p>
Member 14884389
https://www.bilder-upload.eu/bild-e3d635-1597256412.png.html
https://www.bilder-upload.eu/bild-51bd12-1597256437.png.html
код:
Система Импорта.Рисование
Система Импорта.Рисование.Drawing2D
Система Импорта.Во время выполнения.InteropServices
Общественного Класса Form1
Частные mExtendedFrameMargins в качестве маржи
Защищенные Переопределения Sub _
OnPaint(бывал е как система.Окна.Формы.Объект painteventargs)
e.графика.SmoothingMode = SmoothingMode.сглаживание
- используй любой из них
e.графика.SmoothingMode = SmoothingMode.высококачественный
Конец Подводной Лодки
Private Sub Form1_Paint(ByVal sender As System.Объект, бывал е как система.Окна.Формы.Объект Painteventargs) Обрабатывает Ключевое Слово Mybase.Краска
Если IsGlassEnabled() Затем
- Вы должны покрасить удлиненную раму в черный цвет для правильной композиции, но я покрашу ее в белый цвет, как вам нужно
e.графика.FillRectangle(Кисти.Черный, 0, 0, Я.ClientRectangle.Ширина, mExtendedFrameMargins.cyTopHeight)
Конец, Если
Конец Подводной Лодки
Частная Функция IsGlassEnabled() Как Логическая
Если Окружающая Среда.Версия_ос.Версия.Майор < 6 тогда
возвращать false
Конец, Если
Dim isGlassSupported As Boolean = False
DwmIsCompositionEnabled(isGlassSupported)
Возврат isGlassSupported
Конечная Функция
&ЛТ;атрибут DllImport("dwmapi.dll")&ГТ;
Частная общая функция DwmIsCompositionEnabled(<marshalas(unmanagedtype.bool)> ByRef pfEnabled As Boolean) Как Целое Число
Конечная Функция
&ЛТ;атрибут DllImport("dwmapi.dll")&ГТ;
Частная общая функция DwmExtendFrameIntoClientArea(ByVal hwnd As IntPtr, ByRef pMarInset As MARGINS) как целое число
Конечная Функция
<structlayout(layoutkind.sequential)>
Пределах собственной структуры
Public cxLeftWidth как целое число
Public cxRightWidth как целое число
Публичный cyTopHeight как целое число
Публичный cyBottomHeight как целое число
Торцевая Конструкция
Частная суб методе form1_load(отправителя как объект, а равно EventArgs) обрабатывает ключевое слово mybase.Загрузить
Метода webbrowser1.Выберитетекст документа = ""
Если IsGlassEnabled() Затем
mExtendedFrameMargins = новые поля
mExtendedFrameMargins.cyTopHeight = Me.Height 'тип высоты здесь, это будет число (целое число)
DwmExtendFrameIntoClientArea(Me.Handle, mExtendedFrameMargins)
Конец, Если
Конец Подводной Лодки
Private Sub Form1_SizeChanged(sender As Object, e As EventArgs) обрабатывает Me.SizeChanged
Если IsGlassEnabled() Затем
mExtendedFrameMargins = новые поля
mExtendedFrameMargins.cyTopHeight = Me.Height 'тип высоты здесь, это будет число (целое число)
DwmExtendFrameIntoClientArea(Me.Handle, mExtendedFrameMargins)
Конец, Если
Конец Подводной Лодки
Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Объект, бывал е как система.Окна.Формы.WebBrowserDocumentCompletedEventargs) Обрабатывает WebBrowser1.DocumentCompleted
Метода webbrowser1.Документ.BackColor = Цвет.FromArgb(1, 255, 0, 0)
Если IsGlassEnabled() Затем
mExtendedFrameMargins = новые поля
mExtendedFrameMargins.cyTopHeight = Me.Height 'тип высоты здесь, это будет число (целое число)
DwmExtendFrameIntoClientArea(Me.Handle, mExtendedFrameMargins)
Конец, Если
Конец Подводной Лодки
'Private Sub WebBrowser1_DocumentCompleted(отправитель как объект, e Как WebBrowserDocumentCompletedEventargs) обрабатывает WebBrowser1.DocumentCompleted
'Метода webbrowser1.Документ.BackColor = Цвет.Черный
- Конец Субмарины
End Класса
То, что вы можете видеть внутри красного поля, - это веб-браузер с красным цветом документа, а ключ прозрачности формы установлен на красный, поэтому он вызовет API extendaero в этом веб-браузере, где не задано Альфа-значение. Я пытаюсь достичь того же результата в приложении c++ non form, но не смог найти ничего похожего на ключ прозрачности в c++. Цель состоит в том, чтобы сделать управление веб-браузером невидимым