Darken background when Msgbox appears

[Jason Lee Hayes]

Coming back to this, if I wanted to just dim the tab control on a the form in the background, could this be done?

I'm not replying to this; last time i got accused of infecting the forum with a virus lol

 

[NauticalGent]

I'm not replying to this; last time i got accused of infecting the forum with a virus lol

Candy-butt...

 

[NauticalGent]

Disregard, figured it out...

 

[NauticalGent]

Actually, no I didn't, what I thought would work failed miserably.
If anyone knows how to apply this FadeIn/Out feature to just the Access Window, please weigh in. I tried to "grab" with positions and then resize the frmOverLay, but that voodoo is well beyond my ken.

I considered using ChatGPT/Gemini but I am trying to wean myself off LMM's when it comes to VBA and use this forum instead.

 

[Gasman]

Actually, no I didn't, what I thought would work failed miserably.
If anyone knows how to apply this FadeIn/Out feature to just the Access Window, please weigh in. I tried to "grab" with positions and then resize the frmOverLay, but that voodoo is well beyond my ken.

I considered using ChatGPT/Gemini but I am trying to wean myself off LMM's when it comes to VBA and use this forum instead.

Are you of Scottish descent at all?

 

[NauticalGent]

Does having an affection for single malt count...?

 

[Jason Lee Hayes]

Actually, no I didn't, what I thought would work failed miserably.
If anyone knows how to apply this FadeIn/Out feature to just the Access Window, please weigh in. I tried to "grab" with positions and then resize the frmOverLay, but that voodoo is well beyond my ken.

I considered using ChatGPT/Gemini but I am trying to wean myself off LMM's when it comes to VBA and use this forum instead.

This is what i use...

Just remember to Call EnableFade hwnd before SetFormOpacity to ensure the window supports transparency.

Private Declare PtrSafe Function SetLayeredWindowAttributes Lib "user32" ( _
    ByVal hwnd As LongPtr, ByVal crKey As Long, _
    ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long

Private Declare PtrSafe Function GetWindowLong Lib "user32" Alias "GetWindowLongPtrA" ( _
    ByVal hwnd As LongPtr, ByVal nIndex As Long) As LongPtr

Private Declare PtrSafe Function SetWindowLong Lib "user32" Alias "SetWindowLongPtrA" ( _
    ByVal hwnd As LongPtr, ByVal nIndex As Long, ByVal dwNewLong As LongPtr) As LongPtr

Private Const GWL_EXSTYLE As Long = -20
Private Const WS_EX_LAYERED As Long = &H80000
Private Const LWA_ALPHA As Long = &H2

Public Sub EnableFade(hwnd As LongPtr)
    Dim exStyle As LongPtr
    exStyle = GetWindowLong(hwnd, GWL_EXSTYLE)
    SetWindowLong hwnd, GWL_EXSTYLE, exStyle Or WS_EX_LAYERED
End Sub

Public Sub SetFormOpacity(hwnd As LongPtr, alpha As Byte)
    SetLayeredWindowAttributes hwnd, 0, alpha, LWA_ALPHA
End Sub

 

[Jason Lee Hayes]

This is what i use……

Just remember to Call EnableFade hwnd before SetFormOpacity to ensure the window supports transparency.

Private Declare PtrSafe Function SetLayeredWindowAttributes Lib "user32" ( _
    ByVal hwnd As LongPtr, ByVal crKey As Long, _
    ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long

Private Declare PtrSafe Function GetWindowLong Lib "user32" Alias "GetWindowLongPtrA" ( _
    ByVal hwnd As LongPtr, ByVal nIndex As Long) As LongPtr

Private Declare PtrSafe Function SetWindowLong Lib "user32" Alias "SetWindowLongPtrA" ( _
    ByVal hwnd As LongPtr, ByVal nIndex As Long, ByVal dwNewLong As LongPtr) As LongPtr

Private Const GWL_EXSTYLE As Long = -20
Private Const WS_EX_LAYERED As Long = &H80000
Private Const LWA_ALPHA As Long = &H2

Public Sub EnableFade(hwnd As LongPtr)
    Dim exStyle As LongPtr
    exStyle = GetWindowLong(hwnd, GWL_EXSTYLE)
    SetWindowLong hwnd, GWL_EXSTYLE, exStyle Or WS_EX_LAYERED
End Sub

Public Sub SetFormOpacity(hwnd As LongPtr, alpha As Byte)
    SetLayeredWindowAttributes hwnd, 0, alpha, LWA_ALPHA
End Sub

To have a smooth fade in/out use:

Public Sub FadeInWindow(hwnd As LongPtr, Optional stepSize As Byte = 15, Optional delayMs As Long = 30)
    Dim i As Byte
    Call EnableFade(hwnd)
    For i = 0 To 255 Step stepSize
        Call SetFormOpacity(hwnd, i)
        Sleep delayMs
    Next i
End Sub

' === Fade Out: Smoothly decrease opacity ===
Public Sub FadeOutWindow(hwnd As LongPtr, Optional stepSize As Byte = 15, Optional delayMs As Long = 30)
    Dim i As Byte
    Call EnableFade(hwnd)
    For i = 255 To 0 Step -stepSize
        Call SetFormOpacity(hwnd, i)
        Sleep delayMs
    Next i
End Sub

Example: -

' Fade out the Access form itself
Call FadeOutWindow(Me.hWnd)

 

[NauticalGent]

Thank you, I cant test it until later, but I am confident.

Thanks again!

 

[Jason Lee Hayes]

Thank you, I cant test it until later, but I am confident.

Thanks again!

I can whip up a quick demo and upload it if that makes things easier to follow. Just let me know pal.

 

[NauticalGent]

I can whip up a quick demo and upload it if that makes things easier to follow. Just let me know pal.

I havr my PC packed up, travelling all next week, but I will put it though is paces tomorrow.