Как из формы убрать кнопку CloseButton (крестик) в верхнем правом углу? - VB

Формулировка задачи:

Хочу сделать subj. Вопрос: как из формы убрать кнопку CloseButton (крестик) в верхнем правом углу? MinButton и MaxButton убираются в свойствах формы, а эта - нигде.

Решение задачи: «Как из формы убрать кнопку CloseButton (крестик) в верхнем правом углу?»

textual
                            Листинг программы 
                        

                            Public Sub DisableXbutton(ByVal frmHwnd As Long)
    Dim hmenu As Long
    
    hmenu = GetSystemMenu(frmHwnd, 0&)
    If hmenu Then
        Call DeleteMenu(hmenu, SC_CLOSE, MF_BYCOMMAND)
        DrawMenuBar (frmHwnd)
    End If
End Sub
                        

Оцени полезность:

8 голосов , оценка 4.25 из 5

Похожие ответы