Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Кнопка закрытия окна. / 8 сообщений из 8, страница 1 из 1
29.05.2007, 15:37
    #34558298
salvador
salvador
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Кнопка закрытия окна.
Как заблокировать кнопку закрытия окна? или вообще сделать чтобы её не было на форме?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.05.2007, 15:44
    #34558332
VladConn
VladConn
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Кнопка закрытия окна.
http://www.tek-tips.com/viewthread.cfm?qid=523899
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.05.2007, 16:19
    #34558498
salvador
salvador
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Кнопка закрытия окна.
VladConnhttp://www.tek-tips.com/viewthread.cfm?qid=523899
спасиб!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.05.2007, 17:57
    #34559010
salvador
salvador
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Кнопка закрытия окна.
Нашёл такой код:
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

Const MF_BYPOSITION = &H400&
Public Sub RemoveCloseMenu(frm As Form)
Dim hSysMenu As Long
hSysMenu = GetSystemMenu(frm.hwnd, 0)
Call RemoveMenu(hSysMenu, 6, MF_BYPOSITION)
Call RemoveMenu(hSysMenu, 5, MF_BYPOSITION)
End Sub

Private Sub Form_Load()
RemoveCloseMenu Me
End Sub
Пожалуйста, кто чего-нибудь в нём понял напишите комментарий??
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
30.05.2007, 01:16
    #34559713
max_111
max_111
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Кнопка закрытия окна.
salvadorКак заблокировать кнопку закрытия окна? или вообще сделать чтобы её не было на форме?

Отключение доступа к системным кнопкам
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
30.05.2007, 01:18
    #34559716
max_111
max_111
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Кнопка закрытия окна.
max_111 salvadorКак заблокировать кнопку закрытия окна? или вообще сделать чтобы её не было на форме?

Отключение доступа к системным кнопкам
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
30.05.2007, 09:40
    #34560031
HandKot
HandKot
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Кнопка закрытия окна.
Код: plaintext
1.
2.
3.
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    Cancel = True
End Sub
I Have Nine Lives You Have One Only
THINK!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
30.05.2007, 15:48
    #34561666
VladConn
VladConn
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Кнопка закрытия окна.
HandKot
Код: plaintext
1.
2.
3.
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    Cancel = True
End Sub
I Have Nine Lives You Have One Only
THINK!

HandKot, такое делать - Боже упаси. Такой подход (но не он один), только в правильном исполнении, указан уже в приведенной мною ссылке. Он имеет один недостаток (не ваше исполнение, неверное), но как таковой. Дело в том, что при этом кнопка закрытия окна остается доступной для нажатия, и у пользователя возникает смешанное чувство, когда нажатие на крестик не закрывает форму. Тут уже нужно показывать какое-то объяснение и т.д. А зачем тогда вообще делать доступный крестик, так? Бывает лучше его или убрать или показывать неактивным. А вот приведенный вами подход, но в корректном исполнении:

Код: plaintext
1.
2.
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    Cancel = UnloadMode = vbFormControlMenu
End Sub

Успехов
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Кнопка закрытия окна. / 8 сообщений из 8, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 333ms
Закрыть
start [/forum/topic.php?fid=60&mobile=1&tid=2163934]:
 0ms
get settings:
 8ms
get forum list:
 9ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 43ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 28ms
get tp. blocked users:
 1ms
others: 230ms
total:  333ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]