devxlogo

Use Toolbar-Style Title Bars

Use Toolbar-Style Title Bars

To make a form use a small toolbar-style title bar, set the form’s WS_EX_TOOLWINDOW extended style:

 Declare Function GetWindowLong Lib "user32" _	Alias "GetWindowLongA" ( _	ByVal hwnd As Long, _ 	ByVal nIndex As Long) As LongDeclare Function SetWindowLong Lib "user32" _	Alias "SetWindowLongA" ( _	ByVal hwnd As Long, _	ByVal nIndex As Long, _	ByVal dwNewLong As Long) As LongPublic Const WS_EX_TOOLWINDOW = &H80&Public Const GWL_EXSTYLE = (-20)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 LongPublic Const SWP_FRAMECHANGED = &H20Public Const SWP_NOMOVE = &H2Public Const SWP_NOZORDER = &H4Public Const SWP_NOSIZE = &H1Private Sub Form_Load()Dim old_style As Long	old_style = GetWindowLong(hwnd, GWL_EXSTYLE)	old_style = SetWindowLong(hwnd, _		GWL_EXSTYLE, old_style Or _		WS_EX_TOOLWINDOW)	SetWindowPos hwnd, 0, 0, 0, 0, 0, _		SWP_FRAMECHANGED Or SWP_NOMOVE Or _		SWP_NOZORDER Or SWP_NOSIZEEnd Sub
See also  5 Ways to Improve Customer Experience
devxblackblue

About Our Editorial Process

At DevX, we’re dedicated to tech entrepreneurship. Our team closely follows industry shifts, new products, AI breakthroughs, technology trends, and funding announcements. Articles undergo thorough editing to ensure accuracy and clarity, reflecting DevX’s style and supporting entrepreneurs in the tech sphere.

See our full editorial policy.

About Our Journalist