Как накрыть полупрозрачным фоном

[aleksmir]

Здравствуйте!

Как накрыть сверху все элементы формы полупрозрачным фоном (можно даже просто 50% белого)?

Я нашёл пример с использованием функции AlphaBlend: Пример, но он соединяет две картинки, но не делает другие контролы формы полупрозрачными.

Может быть можно как-то сделать программно снимок формы, поместить на PictureBox и соединить с белым фоном?
Тогда как сделать снимок?

[aleksmir]

Ещё нашел пример, как делать полупрозрачной форму . Это в принципе уже вариант, т.к. я смогу форму накрыть сверху другой формой, но это слишком громоздстко. Я пробовал форму накрыть просто элементом PictureBox, но на PictureBox функции этого примера почему-то не действуют.

[MIT]

Тогда как сделать снимок?

WM_PRINT, но прокатит не со всеми контролами.

[aleksmir]

Решил всё-таки накрыть формой, потому что возиться некогда. В принципе работает нормально. Код формы примерно вот такой получился (на форме таймер timStart):

Код: Выделить всё

' КОНСТАНТЫ: для работы с прозрачностью
  Private Const LWA_COLORKEY = &H1
  Private Const LWA_ALPHA = &H2
  Private Const GWL_EXSTYLE = (-20)
  Private Const WS_EX_LAYERED = &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 crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long

' ПРОЦЕДУРА: установка степени прозрачности
' lngWnd - дискриптор окна
' bytLayer - степень прозрачности (0-255)
Private Sub SetTransparent(lngWnd As Long, bytLayer As Byte)
  ' Переменные: значения
    Dim lngRet As Long ' результат
  ' Код
    ' определение стиля нужного окна
    lngRet = GetWindowLong(lngWnd, GWL_EXSTYLE)
    ' установка окну стиля "Заслоенный"
    SetWindowLong lngWnd, GWL_EXSTYLE, (lngRet Or WS_EX_LAYERED)
    ' установка прозрачности окну
    SetLayeredWindowAttributes lngWnd, 0, bytLayer, LWA_ALPHA
End Sub

' СОБЫТИЕ: загрузка формы
Private Sub Form_Load()
  ' Код
    ' установка степени прозрачности
    SetTransparent Me.hWnd, 200
    ' установка размеров
    With cm_Main.typRelBox
      Me.Move 0, cm.TitleBarHeight(.objCall), .objCall.ScaleWidth, .objCall.ScaleHeight
    End With
    ' запуск таймера старта
    timStart.Enabled = True
End Sub

[Vova_2581]

что это за обьект - cm_Main.typRelBox?

[aleksmir]

что это за обьект - cm_Main.typRelBox?

Это просто глобальный тип данных для обмена значениями между формами.
Можете создать любой другой вместо него или просто использовать глобальные переменные.