Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Почтовая рассылка

Подписчиков: -1
Последний выпуск: 19.06.2015

Кнопки управления формой...

3.0K
08 января 2005 года
ragerage
43 / / 02.12.2004
Мне надо либо убрать, либо сделать неактивными некоторае кнопки упраления формой (свернуть, закрыть, развернуть). Как это сделать? . Я работаю в VB6...
Заранее благодарен...
1.8K
08 января 2005 года
ziv
71 / / 04.07.2003
Следующий пример запрещает кнопку X, а так же делает недоступным пункт Close в системном меню, которое отображается при правом клике по заголовку окна:

Private Declare Function DeleteMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long
Private Declare Function GetSystemMenu Lib "user32" (ByVal hWnd As Long, ByVal bRevert As Long) As Long

Private Const MF_BYPOSITION = &H400&

Private Sub Form_Load()
RemoveMenus
End Sub

Private Sub RemoveMenus()
Dim hMenu As Long
' Получаем дескриптор системного меню формы.
hMenu = GetSystemMenu(hWnd, False)
DeleteMenu hMenu, 6, MF_BYPOSITION
End Sub

советую также посмотреть исходник: добавление кнопки в заголовок окна, рядом с твоими - это поможет разаобраться что к чему я думаю :)
http://sources.ru/vb/traybutton.zip
258
09 января 2005 года
SergeySV
1.5K / / 19.03.2003
Были в VB встроенного свойство у формы по отключению этих кнопок... забыл, а посмотреть пока негде, но может кто еще подскажет
3.0K
10 января 2005 года
ragerage
43 / / 02.12.2004
Спасибо :!!!:
459
11 января 2005 года
gacol
273 / / 12.02.2003
Цитата:
Originally posted by SergeySV
Были в VB встроенного свойство у формы по отключению этих кнопок... забыл, а посмотреть пока негде, но может кто еще подскажет


Form1.MaxButton=False
Form1.MinButton=False
А про кнопку закрытия не помню, есть ли возможность.

Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог