Фактически, три кнопки в верхней правой части Формы соответствуют нескольким опциям в ControlBox (ControlBox) в верхней левой части Формы (свернуть/развернуть/закрыть), среди которых развернуть (MaxButton) и свернуть ( Minbutton) Их можно задать прямо в свойствах Формы, но в VB не предусмотрена функция установки кнопки "Х"! Для достижения этой функции вы должны использовать API:
Поскольку кнопка «X» соответствует опции закрытия ControlBox, нам нужно удалить только опцию закрытия системного меню (то есть ControlBox)! Сначала вы можете взглянуть на системное меню в левом верхнем углу используемого вами браузера. Какой номер является опцией [Закрыть], а не шестым? Это седьмой, и разделительная линия считается за одну! Делитель шестой!
Когда мы удалим опцию закрытия, останется странная разделительная линия, поэтому лучше удалить и разделительную линию. Индекс меню начинается с 0, а разделительная линия — 6-я, поэтому индекс = 5.
Исправление: Чтобы программный код работал корректно в Windows NT, измените тип Integer на Long. 89.05.04
'Поймать hwnd системного меню
PRivateDeclareFunctionGetSystemMenuLib"user32"Alias"GetSystemMenu"(ByValhwndAsLong,ByValbRevertAsLong)AsLong
'Удалить API системного меню
PrivateDeclareFunctionRemoveMenuLib"user32"Alias"RemoveMenu"(ByValhMenuAsLong,ByValnPositionAsLong,ByValwFlagsAsLong)AsLong
'Первый параметр - это интерфейс системного меню
'Второй параметр - это Индекс-> удаляемой опции