Eliminate white cross in red field in Userform

[Hans810]

Can somebody tell me how I can eliminate the white cross in the little red box (in the right hand upper corner) of a user form (and possible other dialogue boxes)?

Thanks in advance.

 

[Norie]

Are you referring to the Close button?

If you are then the only way I think you can eliminate it would be using the Windows API.

You can however stop it working using the form's QueryColse event.

 

[Hans810]

Yes the Close button

 

[Norie]

Well like I said as far as I know you can only remove it using the Windows API.

What do you actually want to do?

 

[Hans810]

Thanks for your reply Norie.
In fact I do not want the user to close the form.
They have to answer either this or that.
If I disable the button, I better take it away!
An inactivated button makes no sense.

 

[Norie]

Again like I said the only way to actually remove it would be with the Windows API.

 

[Hans810]

Thanks Norie,

I will put my nose in the (Windows) books.... .

Best regards from The Netherlands.

 

[Tom Urtis]

From Hans Herber, this goes in the userform module and will produce the userform without that "X" Close button on the title bar:


Option Explicit

Private Const GWL_STYLE = (-16)
Private Const WS_SYSMENU = &H80000

Private Declare Function _
FindWindow Lib "User32" Alias "FindWindowA" ( _
ByVal lpClassName As String, _
ByVal lpWindowName As String) As Long
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 _
DrawMenuBar Lib "User32" (ByVal hWnd As Long) As Long


Private Sub UserForm_Initialize()

Dim xl_hwnd, lStyle
xl_hwnd = FindWindow(vbNullString, Me.Caption)
If xl_hwnd <> 0 Then
lStyle = GetWindowLong(xl_hwnd, GWL_STYLE)
lStyle = SetWindowLong(xl_hwnd, GWL_STYLE, lStyle And Not WS_SYSMENU)
DrawMenuBar xl_hwnd
End If

End Sub

 

[Hans810]

Thanks Tom!

I will try it.

Regards, Hans

 

[Hans810]

Tom it works perfectly!

Thanks a lot. Saves me a lot of time.

Regards, Hans