Форма. Заголовок

[maksim_serg]

Доброго времени всем!

Возможно ли у формы убрать /скрыть заголовок с кнопками? Что б осталось одно только чистое поле.

[SAS888]

Посмотрите пример во вложении.

[maksim_serg]

спасибо большое! то что надо!

[Hugo121]

Private Sub UserForm_Initialize()
HideTitleBar Me
End Sub

[maksim_serg]

Сообщение от Hugo121

Private Sub UserForm_Initialize()
HideTitleBar Me
End Sub

а вот это не работает (((

[Hugo121]

Да, извиняюсь, сразу не проверил, ещё компоненты нужны:

Public Const GWL_STYLE = -16
Public Const WS_CAPTION = &HC00000
Public Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Public Declare Function DrawMenuBar Lib "user32" (ByVal hWnd As Long) As Long
Public Declare Function FindWindowA Lib "user32" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

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

В итоге то на то и выходит.

[maksim_serg]

а как убрать с этой же формы серые полоски по периметру ("кантик"). изменение свойств бордюра на них ни как не влияет

[maksim_serg]

если на эту форму без заголовка поместить элемент "RefEdit",то эту форму не возможно становиться закрыть! помогает только диспетчер задач!

[vikttur]

Вас обманули

[maksim_serg]

странно, тоже самое, а работает (((