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
Share the Post:
Share on facebook
Share on twitter
Share on linkedin

Overview

Recent Articles: