|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
28.05.2012, 16:01 | #1 |
Пользователь
Регистрация: 23.04.2012
Сообщений: 12
|
Кнопка закрытия UserForm неактивна
Помогите пожалуйста переделать код VB на VBA. Чтобы кнопка закрытия UserForm была неактивна? Вот код VB:
Option Explicit 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 CloseMenu(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() CloseMenu Me End Sub |
28.05.2012, 16:42 | #2 |
Старожил
Регистрация: 15.05.2008
Сообщений: 2,058
|
А может сделать так?
Как удалить крестик [X] из строки заголовка UserForm ? Как заблокировать крестик [X] и удалить системное меню UserForm ?
"Дайте людям рыбы, и вы накормите их на весь день; научите их ловить рыбу - и вы накормите их на всю жизнь"
"Большое спасибо" - Z261597841314, R208907249777, U447361470499 |
Опции темы | Поиск в этой теме |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Кнопка макроса неактивна | vostok | Microsoft Office Excel | 12 | 14.10.2011 22:30 |
Ссылка на сайте неактивна, вод код | khorolpavel | HTML и CSS | 4 | 22.11.2010 15:15 |
Кнопка закрытия | Swatch | Microsoft Office Access | 1 | 25.08.2010 22:19 |
отсусутствует кнопка закрытия окна | Айгуля | Общие вопросы Delphi | 10 | 11.06.2010 20:08 |
Время закрытия | Warhead | Помощь студентам | 0 | 08.12.2009 21:24 |