вопросик про меню и bordersyle

[Shasha]

Есть форма.BorderStyle у неё 0. заголовок не показывается, но при создании меню (ctrl+E) он появляется, как убрать заголовок!? помогите плиз!

[Twister]

Честно говоря, по моему нельзя создать в ВБ форму с меню и без заголовка. Но ты можешь попытаться поэксперементировать с SetWindowLong.

[alibek]

Никак.
Но можно сделать вспомогательную (невидимую) форму, в которой будет меню, и вызывать его.

[Q2W]

Ставь у формы caption="", ControlBox=False и радуйся жизни!

[alibek]

Рамка все-равно будет создана.

[Q2W]

... заголовок не показывается ... как убрать заголовок ...

[BV]

Достаточно задать форме регион (CreateRectRgn, SetWindowRgn), сохранив при этом текст заголовка и свойства окна.

Код: Выделить всё

Option Explicit

Private Declare Function CreateRectRgn Lib "gdi32.dll" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Private Declare Function SetWindowRgn Lib "user32.dll" (ByVal hWnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long

Private Sub Form_Load()
    With Me
        .BorderStyle = vbFixedSingle
        .Caption = "Some title"
    End With
    Dim hRgn As Long
    hRgn = CreateRectRgn(0, 30, 150, 130)
    Call SetWindowRgn(Me.hWnd, hRgn, True)
End Sub

[Smith68]

А мне понравился метод Q2W. Легко и просто, а результат!