Hide the X Close Button on Userform ???

[jjfletcher]

Hi everyone...

I am wanting to Hide the X Close Button on Userform ???

Is there a way to modify the vbFormControlMenu in the Macro so that the X Close button is hidden or can it be colored the same as the caption area.... Something???

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = vbFormControlMenu Then Cancel = True
End Sub

Is there a way to rewrite this so Cancel = True could be replaced somehow with Visible = False..... I tried this but it failed...

Best Regards,

John

 

[RoryA]

Looking closer at the code, you have a bit of a mess here. You've declared the FindWindowEx function but are using the FindWindow function which is totally different.

Give me a minute and I'll put together something for both bitnesses.

 

[RoryA]

This should work, though I can't actuallly test on 64bit currently:

Option Explicit

#If Win64 Then
    'Find the Dialog's Window
    Private Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" _
            (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr
    'Get the current window style
    Public Declare PtrSafe Function GetWindow Lib "user32" _
           (ByVal hWnd As LongPtr, ByVal wCmd As LongPtr) As LongPtr
    'Set the new window style
    Private Declare PtrSafe Function SetWindowLongPtr Lib "user32" Alias "SetWindowLongPtrA" (ByVal hWnd As LongPtr, ByVal nIndex As Long, ByVal dwNewLong As LongPtr) As LongPtr
    Declare PtrSafe Function GetWindowLongPtr Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As LongPtr, ByVal nIndex As Long) As LongPtr
    Dim hWnd                  As LongPtr
    Dim lStyle as LongPtr

#Else
    'Find the Dialog's Window
    Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
                                        (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
    'Get the current window style
    Public Declare Function GetWindow Lib "user32" _
                                      (ByVal hWnd As Long, ByVal wCmd As Long) As Long
    'Set the new window style
    Private Declare Function SetWindowLongPtr Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
    Declare Function GetWindowLongPtr Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
    Dim hWnd                  As Long
    Dim lStyle As Long
#End If
Const GWL_STYLE = -16
Const WS_CAPTION = &HC00000
Const WS_SYSMENU = &H80000
 
 'Routine to hide the close button on a userform or dialogsheet
 '   oDialog is either the Userform or Dialog object
 
Sub HideCloseButton(oDialog As Object)
    If TypeName(oDialog) = "DialogSheet" Then
        Select Case Int(Val(Application.Version))
        Case 5
        Case 7
            hWnd = FindWindow("bosa_sdm_XL", oDialog.DialogFrame.Caption)
        Case 8
            hWnd = FindWindow("bosa_sdm_XL8", oDialog.DialogFrame.Caption)
        Case Else
            hWnd = FindWindow("bosa_sdm_XL9", oDialog.DialogFrame.Caption)
        End Select
    Else
        Select Case Int(Val(Application.Version))
        Case 8
            hWnd = FindWindow("ThunderXFrame", oDialog.Caption)
        Case Else
            hWnd = FindWindow("ThunderDFrame", oDialog.Caption)
        End Select
    End If
    lStyle = GetWindowLongPtr(hWnd, GWL_STYLE)
    SetWindowLongPtr hWnd, GWL_STYLE, lStyle And Not WS_SYSMENU
End Sub

 

[jjfletcher]

Hi Rory

So I put this in to play and it did nothing

So... ????? HHHmmmmm

John

 

[RoryA]

How did you call it?

 

[Jaafar Tribak]

With permission, I think Rory missed the FindWindow API return in the WIN64 section to be declared as LongPtr ... Also, the lStyle Variable

Option Explicit

#If Win64 Then
    'Find the Dialog's Window
    Private Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" _
            (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr
    'Get the current window style
    Public Declare PtrSafe Function GetWindow Lib "user32" _
           (ByVal hWnd As LongPtr, ByVal wCmd As LongPtr) As LongPtr
    'Set the new window style
    Private Declare PtrSafe Function SetWindowLongPtr Lib "user32" Alias "SetWindowLongPtrA" (ByVal hWnd As LongPtr, ByVal nIndex As Long, ByVal dwNewLong As LongPtr) As LongPtr
    Declare PtrSafe Function GetWindowLongPtr Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As LongPtr, ByVal nIndex As Long) As LongPtr
    Dim hWnd                  As LongPtr
 Dim lStyle As LongPtr
#Else
    'Find the Dialog's Window
    Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
                                        (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
    'Get the current window style
    Public Declare Function GetWindow Lib "user32" _
                                      (ByVal hWnd As Long, ByVal wCmd As Long) As Long
    'Set the new window style
    Private Declare Function SetWindowLongPtr Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
    Declare Function GetWindowLongPtr Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
    Dim hWnd                  As Long
    Dim lStyle As Long
#End If
Const GWL_STYLE = -16
Const WS_CAPTION = &HC00000
Const WS_SYSMENU = &H80000
 
 'Routine to hide the close button on a userform or dialogsheet
 '   oDialog is either the Userform or Dialog object
 
Public Sub HideCloseButton(oDialog As Object)
'    Dim lStyle As Long
    If TypeName(oDialog) = "DialogSheet" Then
        Select Case Int(Val(Application.Version))
        Case 5
        Case 7
            hWnd = FindWindow("bosa_sdm_XL", oDialog.DialogFrame.Caption)
        Case 8
            hWnd = FindWindow("bosa_sdm_XL8", oDialog.DialogFrame.Caption)
        Case Else
            hWnd = FindWindow("bosa_sdm_XL9", oDialog.DialogFrame.Caption)
        End Select
    Else
        Select Case Int(Val(Application.Version))
        Case 8
            hWnd = FindWindow("ThunderXFrame", oDialog.Caption)
        Case Else
            hWnd = FindWindow("ThunderDFrame", oDialog.Caption)
        End Select
    End If
    lStyle = GetWindowLongPtr(hWnd, GWL_STYLE)
    SetWindowLongPtr hWnd, GWL_STYLE, lStyle And Not WS_SYSMENU
End Sub

 

[RoryA]

Thanks Jaafar. I'll update my code too in case anyone copies it later!