Как выключить крестик в окне!!

[corgi]

поиском пользуемся атакже не забываем что кроме форума есть еще и сайт с исходниками

[Doctor Nestor]

Короче есть у формы свойство - BorderStyle ставь его - none
креста вообще не будет.

[Doctor Nestor]

Или Form1.ControllBox = false

[Doctor Nestor]

ну ControlBox вообще-то

[_Vasya]

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

Const MF_BYPOSITION = &H400
Const MF_REMOVE = &H1000

Потом объявление функций:

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

Private Declare Function DrawMenuBar Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function GetMenuItemCount Lib "user32" (ByVal hMenu As Long) As Long
Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long
Private Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long

Теперь сама процедура:

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

Public Sub Disable_Close(Form_hWnd As Long)
Dim Menu_hWnd, Number_Of_MenuItems As Long 'Декларируем переменных
Menu_hWnd = GetSystemMenu(Form_hWnd, 0) 'Получения описателя системного меню
If Menu_hWnd Then 'Если получилось получить описатель системного меню, то выполнять код
Number_Of_MenuItems = GetMenuItemCount(Menu_hWnd) 'Получение количества пунктов меню
Call RemoveMenu(Menu_hWnd, Number_Of_MenuItems - 1, MF_BYPOSITION) 'Удаление меню Закрыть
Call RemoveMenu(Menu_hWnd, Number_Of_MenuItems - 2, MF_REMOVE)
Call DrawMenuBar(Form_hWnd) 'Перерисовка системного меню
End If 'Если не получилось получить описатель системного меню, то ничего не происходит
End Sub

[Jenizix]

Если выставить свойство ControlBox на форме в False, то кнопки Minimize и Maximize тоже исчезнут. Предположим, что Вы хотите тем не менее давать возможность юзеру использовать кнопки Minimize и Maximize, но при этом чтобы он не мог закрыть форму кнопкой с крестиком. Добавьте следующий код в событие Query_Unload:

' если у Вас VB3, раскомментируйте следующую строку
' Const vbFormControlMenu = 0
Private Sub Form_QueryUnload(Cancel As _
Integer, UnloadMode As Integer)
If UnloadMode = vbFormControl_
Menu Then
Cancel = True
End If
End Sub

Вот и все!
и ни каких грамоздких кодов!

[Max!]

corgi
поиском пользуемся атакже не забываем что кроме форума есть еще и сайт с исходниками

С таким-же хуком можно и в винде на папках и других прогах крестик снемать!!!