How to change the colour of title bar? (1 Viewer)

V

Voyager

Registered User.
Local time
Today, 16:11
Joined
Sep 7, 2017
Messages
95
Hello experts,
Could you assist me in changing the colour of title bar. There were certain suggestions asking me to change the theme settings of windows but I want only to change the colour of me access form. Is there a way? I browsed but did not find a solution I am in need of. Could you assist I feel there should be a code for it.
 
There is, but it is based on the theme, which is what those suggestions were all about.

You have to understand that Access doesn't draw windows. It only fills in windows. Windows draws (empty) windows and leaves the rest to you. But that means you have no ability to reset title bar colors from Access-based windows unless you somehow find the Windows theme that governs creation of ALL windows - including those used by Excel, Word, Windows Explorer (when windowed), and your favorite windowed game.

I looked for this, trying to find the things you could reveal with something if you know its hwnd (window handle), but I'm apparently not asking the right questions either. I don't see anything in my References library that looks right for the structures you need because they are owned by SYSTEM and might not be in a public library. I actually DID find a System library but what was in it didn't seem relevant to window drawing.

I also have a 5-volume set of the Win32 API books but that didn't seem to help much either. They have a few windows structures but always talk about how the colors MUST be chosen from the current Windows theme. If you could find the structure that defines themes, you can change its color - but in so doing, you will change the color of EVERY window currently open on your desktop. AND given Windows security, if you had a Win10 version, you might have an alert from Windows Defender complaining about how a program was attempting to alter system configuration data. Definitely not a good thing.

I think you are stuck with the "Windows Theme" answer for now, unless someone else has researched this from a different direction and stumbled across a solution.
 
Docman, Thank you very much for taking time to address my issue. Then I have to do an extensive research to get my answer.
 
Voyager said:
Docman, Thank you very much for taking time to address my issue. Then I have to do an extensive research to get my answer.
Click to expand...
And please don't forget to give us an update to whatever you find: good or bad. Good luck!
 
theDBguy said:
And please don't forget to give us an update to whatever you find: good or bad. Good luck!
Click to expand...



Sure. I will if I can especially for the lot you have helped me out. [emoji3]


Sent from my iPhone using Tapatalk
 
I can only wish you good luck and suggest that with a LOT of search of MSDN, you might find some answers there, but I'm afraid they will adhere to the "party line" that apps don't draw windows, Windows draws windows. If you succeed, the good news is that the hwnd property of a given form will lead you to the window handle of the window in which that form resides. If you are going to do anything at all, it will start with the window handle.

Beyond that, it is a nightmare of links to get to anything related to the actual window and its properties. However, may I make a small request? If you actually DO find a solution, post at least some hints by coming back and marking this thread closed. Tell us what you found.

And as another suggestion, leave this thread open because it is entirely possible that some other member of the forum faced this once and found a solution that I haven't found yet. Perhaps because they came from a different direction. As you well know, if you don't know what question to ask, you might not get the answer you want, and that is where I find myself at the moment.
 
Hi experts,
Thanks for your time and valuable suggestions. I was able to use the code given in this link
https://wellsr.com/vba/2017/excel/remove-window-border-title-bar-around-userform-vba/

with some minor tweaks it’s successful. All I did was

1. I have placed first two codes in a standard module.
2. Third code in form load event
And got the result I wanted.

Doc man, dbguy, isladogs this is what I can do for the forum with my knowledge. Hope I did an attempt.

'PLACE IN A STANDARD MODULE

Code: 
Option Explicit
Option Private Module

Public Const GWL_STYLE = -16
Public Const WS_CAPTION = &HC00000

    Public Declare PtrSafe Function GetWindowLong _
                           Lib "user32" Alias "GetWindowLongA" ( _
                           ByVal hWnd As Long, _
                           ByVal nIndex As Long) As Long
    Public Declare PtrSafe Function SetWindowLong _
                           Lib "user32" Alias "SetWindowLongA" ( _
                           ByVal hWnd As Long, _
                           ByVal nIndex As Long, _
                           ByVal dwNewLong As Long) As Long
    Public Declare PtrSafe Function DrawMenuBar _
                           Lib "user32" ( _
                           ByVal hWnd As Long) As Long
    Public Declare PtrSafe Function FindWindowA _
                           Lib "user32" (ByVal lpClassName As String, _
                           ByVal lpWindowName As String) As Long


Code: 
Sub HideTitleBar(frm As Object)
    Dim lngWindow As Long
    Dim lFrmHdl As Long
    lFrmHdl = FindWindowA(vbNullString, frm.Caption)
    lngWindow = GetWindowLong(lFrmHdl, GWL_STYLE)
    lngWindow = lngWindow And (Not WS_CAPTION)
    Call SetWindowLong(lFrmHdl, GWL_STYLE, lngWindow)
    Call DrawMenuBar(lFrmHdl)
End Sub

Code: 
Option Explicit 
Private sub Form_load()
MODULENAME.HideTitleBar
Docmd.Maximize
End sub
 
Voyager said:
Hi experts,
Thanks for your time and valuable suggestions. I was able to use the code given in this link
https://wellsr.com/vba/2017/excel/remove-window-border-title-bar-around-userform-vba/

with some minor tweaks it’s successful. All I did was

1. I have placed first two codes in a standard module.
2. Third code in form load event
And got the result I wanted.

Doc man, dbguy, isladogs this is what I can do for the forum with my knowledge. Hope I did an attempt.
Click to expand...
Hi. Thanks for coming back and letting us know what you found and able to do. But just to clarify, will this code change the color of the title bar or just hide it? If to change to a different color, where does it say which color you're changing it to? Thanks again.
 
Thank you for your contribution.
Unfortunately it doesn't do anything. Sorry.

First of all, if you maximise a form, you will not have a title bar anyway. Secondly you need to change your code to reference the current form

Code: 
Private Sub Form_Load()

HideTitleBar Me 'added Me to reference current form
'DoCmd.Maximize 'disabled

End Sub

If you do this using overlapping windows setting, you will see it has no effect.

To remove the title bar, just make a borderless form.
In design view, change the border style to None.

The module code isn't needed and seems to have no effect anyway

EDIT
In case it helps, have a look at the borderless form in this example http://www.mendipdatasystems.co.uk/control-application-interface/4594365418
I've taken it a stage further and removed the entire application window as well...but that's not a requirement of this type of form
 
Last edited:
I am sorry. I didn’t explain the story well in my earlier post. This is what I did.
1) Understanding that changing the colour of the title bar will become an unwanted work if I want to trigger some events while minimising or maximising the form I have decided to do a work around.
2) That’s is getting rid of the task bar itself. So I used the procedure from the earlier post to get the result.
3) Then I have applied the colour I wished to the header of the form.
4) When I maximised the form I got exactly what I want.
5) If I want to to maximise or minimise or close I will create buttons for it.
6) I have kept from border style to thin. Pop up and nodal to yes. Not to worry about Control box, max, min buttons and close button, code will take care of it.
Hope I am able to more clearer now.
 
I see what you are saying. What a foolish thing I was trying to do. This is simple answer.
What you said works for me if I open the form in Maximize mode with border property chosen to None.
Thank you.


Sent from my iPhone using Tapatalk
 
That is indeed clearer but my previous comments still apply.
The code you supplied does not remove the title bar.

EDIT Posts crossed.

There is usually a simple solution :cool:
 
I acknowledge it.


Sent from my iPhone using Tapatalk
 
No worries - the main thing is that you have a solution that you are happy with :)
 
Voyager said:
I am sorry. I didn’t explain the story well in my earlier post. This is what I did.
1) Understanding that changing the colour of the title bar will become an unwanted work if I want to trigger some events while minimising or maximising the form I have decided to do a work around.
2) That’s is getting rid of the task bar itself. So I used the procedure from the earlier post to get the result.
3) Then I have applied the colour I wished to the header of the form.
4) When I maximised the form I got exactly what I want.
5) If I want to to maximise or minimise or close I will create buttons for it.
6) I have kept from border style to thin. Pop up and nodal to yes. Not to worry about Control box, max, min buttons and close button, code will take care of it.
Hope I am able to more clearer now.
Click to expand...
Thanks for the clarification!
 
Of course, this approach works and is a prime example of an old engineering axiom: If you can't fix the problem, CHANGE the problem and see if you can fix the result. I was trying to find a way to color the title bar, but making it a no-border window and putting a label at the top of the form has a similar visual effect, which is all that you really wanted.

Thanks for proving yet again that there are more than just a couple of ways to skin a rabbit.
 
Voyager said:
Hello experts,
Could you assist me in changing the colour of title bar. There were certain suggestions asking me to change the theme settings of windows but I want only to change the colour of me access form. Is there a way? I browsed but did not find a solution I am in need of. Could you assist I feel there should be a code for it.
Click to expand...
Voyager said:
Hello experts,
Could you assist me in changing the colour of title bar. There were certain suggestions asking me to change the theme settings of windows but I want only to change the colour of me access form. Is there a way? I browsed but did not find a solution I am in need of. Could you assist I feel there should be a code for it.
Click to expand...
Go to File / Options
Under General go to "Prersonalize your copy of Microsoft office"
Here you can customnize the Office backgound and the Office Theme
Hope it helps
 
Many Thanks,

Voyager and​

isladogs​

I put these two Codes in a same module
Code: 
Option Explicit
Option Private Module

Public Const GWL_STYLE = -16
Public Const WS_CAPTION = &HC00000

    Public Declare PtrSafe Function GetWindowLong _
                           Lib "user32" Alias "GetWindowLongA" ( _
                           ByVal hWnd As Long, _
                           ByVal nIndex As Long) As Long
    Public Declare PtrSafe Function SetWindowLong _
                           Lib "user32" Alias "SetWindowLongA" ( _
                           ByVal hWnd As Long, _
                           ByVal nIndex As Long, _
                           ByVal dwNewLong As Long) As Long
    Public Declare PtrSafe Function DrawMenuBar _
                           Lib "user32" ( _
                           ByVal hWnd As Long) As Long
    Public Declare PtrSafe Function FindWindowA _
                           Lib "user32" (ByVal lpClassName As String, _
                           ByVal lpWindowName As String) As Long
Code: 
Sub HideTitleBar(frm As Object)
    Dim lngWindow As Long
    Dim lFrmHdl As Long
    lFrmHdl = FindWindowA(vbNullString, frm.Caption)
    lngWindow = GetWindowLong(lFrmHdl, GWL_STYLE)
    lngWindow = lngWindow And (Not WS_CAPTION)
    Call SetWindowLong(lFrmHdl, GWL_STYLE, lngWindow)
    Call DrawMenuBar(lFrmHdl)
End Sub
and in Form "load event" I put that Code
Code: 
Private Sub Form_Load()

HideTitleBar Me 'added Me to reference current form
'DoCmd.Maximize 'disabled

End Sub
and this worked for me but ONLY with "Dialog" property in form "Border Style"
Now I get the form normally but without Title bar That was I want
Thanks a lot for all
 
Hamatto said:
Many Thanks,

Voyager and​

isladogs​

I put these two Codes in a same module
Code: 
Option Explicit
Option Private Module

Public Const GWL_STYLE = -16
Public Const WS_CAPTION = &HC00000

    Public Declare PtrSafe Function GetWindowLong _
                           Lib "user32" Alias "GetWindowLongA" ( _
                           ByVal hWnd As Long, _
                           ByVal nIndex As Long) As Long
    Public Declare PtrSafe Function SetWindowLong _
                           Lib "user32" Alias "SetWindowLongA" ( _
                           ByVal hWnd As Long, _
                           ByVal nIndex As Long, _
                           ByVal dwNewLong As Long) As Long
    Public Declare PtrSafe Function DrawMenuBar _
                           Lib "user32" ( _
                           ByVal hWnd As Long) As Long
    Public Declare PtrSafe Function FindWindowA _
                           Lib "user32" (ByVal lpClassName As String, _
                           ByVal lpWindowName As String) As Long
Code: 
Sub HideTitleBar(frm As Object)
    Dim lngWindow As Long
    Dim lFrmHdl As Long
    lFrmHdl = FindWindowA(vbNullString, frm.Caption)
    lngWindow = GetWindowLong(lFrmHdl, GWL_STYLE)
    lngWindow = lngWindow And (Not WS_CAPTION)
    Call SetWindowLong(lFrmHdl, GWL_STYLE, lngWindow)
    Call DrawMenuBar(lFrmHdl)
End Sub
and in Form "load event" I put that Code
Code: 
Private Sub Form_Load()

HideTitleBar Me 'added Me to reference current form
'DoCmd.Maximize 'disabled

End Sub
and this worked for me but ONLY with "Dialog" property in form "Border Style"
Now I get the form normally but without Title bar That was I want
Thanks a lot for all
Click to expand...
@Hamatto Welcome to AWF!
 
You must log in or register to reply here.

Similar threads

riktek
Record Selector & Scroll Bar Colors: How / Where Set?
Replies
3
Views
206
Pat Hartman
P
J
Command button not responding to double click
Replies
9
Views
259
John Sh
J
J
Loss of formatting when copying forms in access 2016
Replies
2
Views
349
John Sh
J
D
My mouse wheel cannot scroll the height of my form when my cursor is atop my continuous subform. Can I always have main form vertical scroll control?
Replies
13
Views
539
diamondDog
D
J
Colour text in Text Box
Replies
8
Views
489
arnelgp
arnelgp

Users who are viewing this thread

Total: 2 (members: 0, guests: 2)
Back
Top Bottom