Полупрозрачность BackColor-a у Picturebox

В проге, на фоне Picturebox-a с загруженой картинкой, вслед за курсором ходит инфо-окно с координатами курсора и подобным. Окно полупрозрачное и цветное, оба параметра регулируются пользователем в любой момент, для вывода чисел используются лейблы с BackStyle=0, цвет текста тоже ессно регулируется через ForeColor. Сейчас у меня это реализовано с использованием формы без рамки в качестве инфо-окна и SetLayeredWindowAttributes. Но мне кажется, что использование формы для этого - порождение моего сумрачного ламерского ума. Можно ли использовать для этого Picturebox или что-нибудь ещё? Третий день прочёсываю инет, но не могу найти что-либо подходящее, есть куча примеров и контролов с прозрачностью загруженой картинки, но мне нужен просто цвет полупрозрачный. У меня есть модуль от The Trick-a, который позволяет создавать прекрасные цветные полупрозрачные прямоугольники, но, во-первых, мне кажется это избыточным для одного маленького окошечка, а во-вторых, как я понимаю, эти прямоугольники не могут служить контейнером для лейблов.
Да, и ещё - текст на лейблах тоже становится прозрачным вместе с формой, это плохо для читабельности, возможна ли раздельная регулировка прозрачности формы и текста?

Изображения

 

0

Или хотя бы чтобы цвет текста был непрозрачным, без регулировки?

0

Правильнее будет не искать контролы, которые могут служить контейнером для лейблов, а сделать функцию-грабилку лейбла невидимого пикчербокса, в который с помощью Print вписывается нужный текст. А полученное изображение выводить с использованием хоть той же AlphaBlend() функции.

0

То есть правильно ли я понимаю: операции изменения цвета фона и текста и вывод самого текста Print-ом делаются на невидимый пикчербокс, а затем это с помощью AlphaBlend переносится на уже видимый пикчербокс, который ходит за курсором, да?

0

Верно. Только придётся сформировать альфаканал в данных напечатанной картинки.

0

Сообщение от Mikle Quits придётся сформировать альфаканал в данных напечатанной картинки

Э-э-э-э... сорри, но это не понял. Это которая картинка "напечатанная?"

Да и это не совсем понятно:

Сообщение от Mikle Quits сформировать альфаканал в данных

Добавлено через 1 час 9 минут
Я тут почитал англоязычные форумы - если я правильно перевожу, то у меня создалось такое понимание, что в предложенном вами методе пикчербокс, который я буду двигать над пикчербоксом-подложкой (фоном) не будет реально прозрачным, то есть сквозь него не будет виден нижний пикчербокс. Или я неправильно понимаю? Щас буду пробовать

0

Сообщение от giaber пикчербокс, который я буду двигать над пикчербоксом-подложкой (фоном) не будет реально прозрачным

Я не предлагаю двигать пикчербокс, он вообще невидимый, он используется для того, чтобы в нём сформировать картинку текста и перенести её с прозрачностью на нужный пикчербокс.
Вообще, на уровне WinAPI это довольно муторно всё, я бы советовал такие проекты делать на SR2D, только это уже надо будет забыть про двигающиеся пикчербоксы и т. п., всё делается спрайтами. Там и "грабилка" картинок встроенная уже имеется.

0

Сообщение от Mikle Quits Я не предлагаю двигать пикчербокс, он вообще невидимый, он используется для того, чтобы в нём сформировать картинку текста и перенести её с прозрачностью на нужный пикчербокс.

Да, но, как я описывал в стартовом топике, тот пикчербокс (то, что у меня сейчас форма без рамки, голубая на скриншоте) на который мы перенесём, должен двигаться и быть полупрозрачным, чтоб просвечивало то, что под ним.

Ваш SR2D ещё лет 4-5 назад я скачал по вашему совету и вы даже, по моей просьбе, прислали пример как делать то, что мне было непонятно - но мне всё равно осталось непонятным, несмотря на ваш пример, и именно тогда я решил не дёргать вас больше и переключился на этот вариант с SetLayeredWindowAttributes формой.
Мне, конечно, очень нравится вариант с SR2D, но давайте определимся - с SR2D я смогу иметь то, что на скрине - прозрачный спрайт, который может двигаться за мышкой, на котором постоянно отображаются координаты курсора, и прозрачностью и цветом спрайта может управлять конечный пользователь и, пусть не прозрачность текста, но хотя бы цвет текста тоже можно менять?

0

Без SR2D это скорее всего можно было бы осуществить только через GDI+ API. Я нашёл полезный класс для этого на иностранном форуме здесь: https://www.vbforums.com/showt... -revisited
Скачал я его посмотрел интересно там, но тяжело для обычного понимания простых людей. Хотя думаю там есть нужный код для полупрозрачностей.

0

Сообщение от giaber я смогу иметь то, что на скрине - прозрачный спрайт, который может двигаться за мышкой, на котором постоянно отображаются координаты курсора, и прозрачностью и цветом спрайта может управлять конечный пользователь и, черт с ней с прозрачностью текста, хотя бы цвет текста тоже можно менять?

Легко.
При желании можно и с прозрачностью текста.

Вложения

Alpha.zip (77.8 Кб, 9 просмотров)

1

Mikle Quits я не пытался ещё понять ваш код, просто запустил - конечно нравится! но применительно конкретно к моему варианту надо там поизменять. Я буду долго с этим разбираться - не затруднит ли вас сделать соответствующие изменения в проекте который я обратно вам прикрепил здесь. Там имитация моей конкретной ситуации - то есть фоном служит пикчербокс с загруженой картинкой и есть разные контролы. После этого мне и разбираться будет легче. Буду ну просто ОЧЕНЬ вам благодарен!

0

Забыл прикрепить!

Вложения

Alpha Mikle Quits.7z (700.4 Кб, 10 просмотров)

0

Завтра с утра гляну.

0

C 8-ки уже поддерживаются дочерние слоеные окна, можно применить SetLayeredWindowAttributes к ним. А вообще для этого тултип же есть, перехватывай его и делай полупрозрачным.

0

Сообщение от giaber фоном служит пикчербокс с загруженой картинкой

Загруженную через IDE картинку убираем, грузим её так же, как я грузил свой фон:
Перенаправляем вывод SR2D с формы на пикчербокс:
Подбираем подходящий цвет для инфо-окна:
Весь код целиком:

1

Option Explicit
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)

Private Declare Function GetClientRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long
Private Declare Function ClientToScreen Lib "user32" (ByVal hwnd As Long, lpPoint As POINTAPI) As Long
Private Declare Function ScreenToClient Lib "user32" (ByVal hwnd As Long, lpPoint As POINTAPI) As Long
Private Declare Function SetRect Lib "user32" (lpRect As RECT, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Private Declare Function OffsetRect Lib "user32" (lpRect As RECT, ByVal X As Long, ByVal Y As Long) As Long
Private Type POINTAPI
X As Long
Y As Long
End Type
Private Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type

Private Declare Function DrawText Lib "user32" Alias "DrawTextA" (ByVal hdc As Long, ByVal lpStr As String, ByVal nCount As Long, lpRect As RECT, ByVal wFormat As Long) As Long
Private Const DT_SINGLELINE = &H20
Private Const DT_CENTER = &H1
Private Const DT_VCENTER = &H4

Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function ReleaseDC Lib "user32" (ByVal hwnd As Long, ByVal hdc As Long) As Long

Private Declare Function CreateCompatibleDC Lib "gdi32" (ByVal hdc As Long) As Long
Private Declare Function DeleteDC Lib "gdi32" (ByVal hdc As Long) As Long

Private Declare Function CreateCompatibleBitmap Lib "gdi32" (ByVal hdc As Long, ByVal nWidth As Long, ByVal nHeight As Long) As Long
Private Declare Function SelectObject Lib "gdi32" (ByVal hdc As Long, ByVal hObject As Long) As Long
Private Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long

Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Private Const SW_SHOW = 5
Private Const SW_HIDE = 0

Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long
Private Declare Function AlphaBlend Lib "msimg32" (ByVal hDestDC As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal widthSrc As Long, ByVal heightSrc As Long, ByVal blendFunct As Long) As Boolean

Dim m_hMemDC As Long
Dim m_hMemBmp As Long, m_hMemBmpPrev As Long
Dim m_rcControl As RECT

Private Sub UserControl_Initialize()
UserControl.AutoRedraw = True
UserControl.BackColor = vbRed
m_hMemDC = CreateCompatibleDC(UserControl.hdc)
End Sub

Private Sub UserControl_Terminate()
If m_hMemBmp <> 0 Then
DeleteObject SelectObject(m_hMemDC, m_hMemBmpPrev)
End If
DeleteDC m_hMemDC
End Sub

Public Sub Translucence()
Dim hdc As Long
Dim tPt As POINTAPI

'获得控件当前位置和大小
ClientToScreen UserControl.hwnd, tPt
ScreenToClient UserControl.ContainerHwnd, tPt
Call GetClientRect(UserControl.hwnd, m_rcControl)
OffsetRect m_rcControl, tPt.X, tPt.Y
'创建一幅内存位图
If m_hMemBmp <> 0 Then
DeleteObject (SelectObject(m_hMemDC, m_hMemBmpPrev))
End If
m_hMemBmp = CreateCompatibleBitmap(UserControl.hdc, m_rcControl.Right, m_rcControl.Bottom)
m_hMemBmpPrev = SelectObject(m_hMemDC, m_hMemBmp)

'隐藏控件
ShowWindow UserControl.hwnd, SW_HIDE
DoEvents

'保存控件容器的图像到内存位图中
Dim hDesktopDC As Long
hDesktopDC = GetDC(UserControl.hwnd)
BitBlt m_hMemDC, 0, 0, m_rcControl.Right, m_rcControl.Bottom, hDesktopDC, 0, 0, vbSrcCopy
ReleaseDC 0, hDesktopDC

'通过alpha效果进行半透明渲染
UserControl.AutoRedraw = True
AlphaBlend m_hMemDC, 0, 0, m_rcControl.Right, m_rcControl.Bottom, UserControl.hdc, 0, 0, m_rcControl.Right, m_rcControl.Bottom, 5242880
UserControl.AutoRedraw = False

'显示控件
ShowWindow UserControl.hwnd, SW_SHOW

'将渲染后的结果复制到控件中
BitBlt UserControl.hdc, 0, 0, m_rcControl.Right, m_rcControl.Bottom, m_hMemDC, 0, 0, vbSrcCopy
End Sub

Private Sub UserControl_Paint()
BitBlt UserControl.hdc, 0, 0, m_rcControl.Right, m_rcControl.Bottom, m_hMemDC, 0, 0, vbSrcCopy
End Sub

0

Сообщение от xxdoc '保存控件容器的图像到内存位图中

У китайцев код передрал?

Добавлено через 56 секунд
Сохраните изображение контейнера управления в растровое изображение памяти.

0

Сообщение от I can У китайцев код передрал?

А может он сам китаец?

0

To The trick
Вы когда-то выкладывали TransparentControl.zip (424.6 KB)
https://www.vbforums.com/showt... ost4845201

(Last edited by The trick; Mar 5th, 2015 ! Боже! Как стремительно бежит время!)

Сейчас ссылка не рабочая.
1. Этот контрол не может быть решением моего вопроса?
2. Если да, то не могли бы вы выложить его здесь?

0

giaber, кстати не пробовали вариант xxdoc,

Сообщение от xxdoc '通过alpha效果进行半透明渲染

Перевод: Полупрозрачный рендеринг с альфа-эффектом

0