Remove Title Bar from form

[Anonymous]

Does anyone have a way of removing a title bar from a form?? I've seen it done in Excel, Word and Access, but not ACAD.

--
Matt W
[Insert funny quote/saying here]

[Anonymous]

Just the text or the entire titlebar itself?

Joe ...


"Matt W" wrote in message
news:5229069@discussion.autodesk.com...
Does anyone have a way of removing a title bar from a form?? I've seen it
done in Excel, Word and Access, but not ACAD.

--
Matt W
[Insert funny quote/saying here]

[Anonymous]

The entire title bar.

Removing the text would require simply deleting the caption text, correct? Or are you implying something else??!?

--
Matt W
[Insert funny quote/saying here]

[Anonymous]

Here are my subs for disabling the close box or removing the title bar.

Regards - Nathan

Option Explicit
Private Declare Function GetActiveWindow Lib "user32.dll" () As Long
Private Declare Function GetSystemMenu Lib "user32.dll" (ByVal hwnd As Long, ByVal bRevert As Long) As Long
Private Declare Function RemoveMenu Lib "user32.dll" (ByVal hMenu As Long, ByVal uPosition As Long, ByVal uFlags As Long) As Long
Private Declare Function DrawMenuBar Lib "user32.dll" (ByVal hwnd As Long) As Long
Private Declare Function GetWindowLong Lib "user32.dll" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32.dll" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

Public Sub DisableClose()
Dim hwnd As Long
Dim hMenu As Long
hwnd = GetActiveWindow()
hMenu = GetSystemMenu(hwnd, 0)
Call RemoveMenu(hMenu, 6, &H400)
Call RemoveMenu(hMenu, 5, &H400)
Call DrawMenuBar(hwnd)
End Sub

Public Sub Remove()
Dim hwnd As Long
Dim dwNewLong As Long
hwnd = GetActiveWindow()
dwNewLong = GetWindowLong(hwnd, -16)
dwNewLong = dwNewLong And Not &HC00000
Call SetWindowLong(hwnd, -16, dwNewLong)
DrawMenuBar hwnd
End Sub

[Anonymous]

Nice! Just what I needed.

Thanks, Nathan!

--
Matt W
[Insert funny quote/saying here]

[Anonymous]

How exactly would this be implimented? UserForm_Initialize()?

thanks,

jb

[Anonymous]

Wow - my AutoCAD title bar is gone now!! Cool!

[Anonymous]

Hi,

Try the attached file..just remove .txt from the file.
and run it in AutoCAD (tested under 2006)
Have fun.

- A Caddie

[Anonymous]

ps. The form can be resized, if the titlebar is removed you can still move the form by grabbing the form and drag it around.

(part of a bigger application)
and thanks to the people who helped.

- A Caddie.

[arcticad]

Wow! I am uber impressed!!. What if i want the title bar back or make the cancel button active again?

[Anonymous]

You can change the settings at run time, just look at the code behind the command buttons.

sample:
AutoCADFormChanger.ShowCaption = False
this removes the caption.

AutoCADFormChanger.ShowCaption = True
here the caption is shown again.

there are more properties in the Class:

.ShowCloseBtn
.ShowMaximizeBtn
.ShowMinimizeBtn

set them to true or false

- A Caddie

[arcticad]

Cool Thank You. I just need to know how to doc a userform in Autocad now. the whole accont activeX is eluding me. I've been trying to make a userform moveable without selecting the titlebar for months. Good Job.