Userform without caption, border, close button (I'm not craz

RogerC · Dec 29, 2002

Is it possible to make a userform that has no border or caption bar? I found some code provided by Colo that removes the X button, but I need to hide the borders and caption also. Believe it or not, I have a perfectly sane reason for wanting to do this!

dk · Dec 29, 2002

Take a look here. If you need help dissecting the code, please post back.

http://www.bmsltd.co.uk/Excel/Default.htm

Download the FormFun.zip example.

RogerC · Dec 30, 2002

Hi dk, thanks for the resource. I learned a lot from that example. Although it does just about everything you can think of, FormFun doesn't do the one thing I'm trying to do... remove the border around a Userform completely. (The captionless example comes close, but there is still a raised border).
I believe this can be done because in his code to change the shape of a Userform, Ivan F Moala remarks about using a 'borderless form', although in that code it appears he does not actually do it. http://www.mrexcel.com/board/viewtopic.php?topic=10197&forum=2
Any further suggestions would be appreciated.

dk · Dec 30, 2002

Hello,

Not sure about this. I tried the following code:-

Code:

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) 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 GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Private Declare Function DrawMenuBar Lib "user32" (ByVal hwnd As Long) As Long

Private Const SW_SHOW = 5
Private Const WS_BORDER = &H800000
Private Const WS_CAPTION = &HC00000
Private Const GWL_STYLE = (-16)


Private Sub UserForm_Activate()
    Dim lngFormHwnd As Long, lngFormStyle As Long

    
    'First, make sure the form has it's BorderStyle set to None
    Me.BorderStyle = fmBorderStyleNone
    
    'Get the Windows handle of the userform
    If Application.Version< "9.0" Then
        lngFormHwnd = FindWindow("THUNDERXFRAME", Me.Caption)
    Else
        lngFormHwnd = FindWindow("THUNDERDFRAME", Me.Caption)
    End If


    'Get the form's window style
    lngFormStyle = GetWindowLong(lngFormHwnd, GWL_STYLE)

    'Set a new style without a border
    lngFormStyle = lngFormStyle And Not WS_BORDER

    'Set the new style i.e. without border
    SetWindowLong lngFormHwnd, GWL_STYLE, lngFormStyle

    'Refresh
    DrawMenuBar lngFormHwnd

    'This line doesn't appear to do anything
    'ShowWindow lngFormHwnd, SW_SHOW

End Sub

Even though I set the Window style to NOT WS_BORDER this removes the caption but has no effect on the border. Maybe Ivan will have an idea....?

_________________Hope this helps,
Dan
This message was edited by dk on 2002-12-30 20:12

Ivan F Moala · Dec 31, 2002

WinXp / Excel2000
I got this to work for me ??

<PRE>Option Explicit

Private Declare Function FindWindow Lib "user32" _

Alias "FindWindowA" ( _

ByVal lpClassName As String, _

ByVal lpWindowName As String) 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 GetWindowLong Lib "user32" _

Alias "GetWindowLongA" ( _

ByVal hwnd As Long, _

ByVal nIndex As Long) As Long

Private Declare Function SetWindowPos Lib "user32" ( _

ByVal hwnd As Long, _

ByVal hWndInsertAfter As Long, _

ByVal x As Long, _

ByVal y As Long, _

ByVal cx As Long, _

ByVal cy As Long, _

ByVal wFlags As Long) As Long

Private Const GWL_STYLE = (-16)

Private Const WS_CAPTION = &HC00000 '// WS_BORDER Or WS_DLGFRAME

Private Const WS_BORDER = &H800000

Private Enum ESetWindowPosStyles

SWP_SHOWWINDOW = &H40

SWP_HIDEWINDOW = &H80

SWP_FRAMECHANGED = &H20 '// The frame changed: send WM_NCCALCSIZE

SWP_NOACTIVATE = &H10

SWP_NOCOPYBITS = &H100

SWP_NOMOVE = &H2

SWP_NOOWNERZORDER = &H200 '// Don't do owner Z ordering

SWP_NOREDRAW = &H8

SWP_NOREPOSITION = SWP_NOOWNERZORDER

SWP_NOSIZE = &H1

SWP_NOZORDER = &H4

SWP_DRAWFRAME = SWP_FRAMECHANGED

HWND_NOTOPMOST = -2

End Enum

Private Type RECT

Left As Long

Top As Long

Right As Long

Bottom As Long

End Type

Dim FrmWndh As Long

Dim lStyle As Long

Dim tR As RECT

Private Sub UserForm_Activate()

'// NB: Must be in the Activate Event!


'// Get Forms window handle

FrmWndh = FindWindow(vbNullString, Me.Caption)

'// Modify whether title bar will be visible:

lStyle = GetWindowLong(FrmWndh, GWL_STYLE)

'// Now mask the Winstyle caption

lStyle = lStyle And Not WS_CAPTION

SetWindowLong FrmWndh, GWL_STYLE, lStyle

'// Ensure the style takes and make the window the

'// same size, regardless that the title bar

'// is now a different size:

SetWindowPos FrmWndh, _

0, _

tR.Left, _

tR.Top, _

tR.Right - tR.Left, _

tR.Bottom - tR.Top, _

SWP_NOREPOSITION Or SWP_NOZORDER Or SWP_FRAMECHANGED Or WS_BORDER

'// Update Form

Me.Repaint

End Sub

Private Sub UserForm_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

'// Leave this here as your backdoor, as you have NO CLOSE BUTTON

'// otherwise put in a close button

Unload UserForm1

End Sub

</PRE>

RogerC · Dec 31, 2002

Thank you dk. Your code gets very close to the effect I need and I do appeciate your help. I think I have found something that may help find a solution. I will explain in my post to Ivan next.

RogerC · Dec 31, 2002

I'm using WinXP/Excel2000 also.

Thank you Ivan for looking into this... I appreciate it. Unfortunately, when I create a new form with your code I still get a small border around the form (an effect similar to 'raised', with a white edge on top and left, grey edge on right and bottom).
I think I might have found something that may help... while studying Steven Bullen's 'Formfun.xls' file at http://www.bmsltd.co.uk/Excel/Default.htm , I made two very small edits to his code and got the effect I need! Here is what I did;

1) In the 'Option Explicit' area of the code, I inserted an apostrophy in front of "Private Const WS_THICKFRAME As Long = &H40000 'Style to add a sizable frame"

2) In the "Private Sub SetFormStyle()", I inserted an apostrophy in front of the line "If mbSizeable Then iStyle = iStyle Or WS_THICKFRAME Else iStyle = iStyle And Not WS_THICKFRAME"

3) I activated the Userform, and then removed the checkmark from the 'Caption' checkbox Steven has built into the form.

This changed the form to the exact effect I need! Unfortunately, the code in this file is very complex. I've studied it but can't understand why these edits worked or how to recreate this effect in a Userform without the checkbox examples included in the example file.
Can you tell me what to look at from here?
This message was edited by RogerC on 2002-12-31 05:47

Ivan F Moala · Dec 31, 2002

Ok, I'll download the file and have a look

Ivan F Moala · Dec 31, 2002

Try just adding;

Me.SpecialEffect = fmSpecialEffectFlat

to DK's code or mine

RogerC · Dec 31, 2002

Thank you Ivan. I tried adding "Me.SpecialEffect = fmSpecialEffectFlat" to the UserForm_Activate subs of both yours and dk's code. It gave me the same result as your original codes (a small white border edge on top and left, grey border edge on right and bottom). This is the same border I would expect when setting a form's special effect to 'flat' normally.

When making the two small edits to Steven's code that I mentioned above, the effect I get is completely borderless... no border at the edges of the form can be seen at all.

To further explain.... if the user is in a worksheet that has a white background (and also has gridlines turned off), they then activate a completely 'borderless and captionless' form (which also has a white background), they would not even know a Userform has opened. If it had no controls on it, they would not be able to see it at all.

This 'borderless' technique works perfectly when I make the two small apostrophy edits I mentioned above to Steven Bullen's 'Formfun.xls' file... the Userform opens but it's edges cannot be distinguished from the worksheet it opens on (provided the form's background and the worksheet's background are the same color).

Unfortunately, I need to remove the functionality of the controls (checkboxes) Steven has in his file and replace them with some basic controls I need on my Userform. His example is a complex form and I'm having trouble understanding how the code works... Any tips you can provide are greatly appreicated.
This message was edited by RogerC on 2002-12-31 07:17

Userform without caption, border, close button (I'm not craz

RogerC

Well-known Member

dk

MrExcel MVP

RogerC

Well-known Member

dk

MrExcel MVP

Ivan F Moala

MrExcel MVP

RogerC

Well-known Member

RogerC

Well-known Member

Ivan F Moala

MrExcel MVP

Ivan F Moala

MrExcel MVP

RogerC

Well-known Member

Similar threads

Forum statistics

Share this page

Userform without caption, border, close button (I'm not craz

Well-known Member

MrExcel MVP

Well-known Member

MrExcel MVP

MrExcel MVP

Well-known Member

Well-known Member

MrExcel MVP

MrExcel MVP

Well-known Member

Similar threads

Forum statistics

Share this page

We've detected that you are using an adblocker.

Which adblocker are you using?

Disable AdBlock

Disable AdBlock Plus

Disable uBlock Origin

Disable uBlock