Форум пользователей Visio

Форум по вопросам применения и программирования в Visio
Текущее время: 19 авг 2018, 00:36

Часовой пояс: UTC + 3 часа [ Летнее время ]


Правила форума


При размещении файлов предпочтительным является формат vsd (а не vsdx/vsdm)



Начать новую тему Ответить на тему  [ Сообщений: 2 ] 
Автор Сообщение
 Заголовок сообщения: кнопока закрыть
СообщениеДобавлено: 28 май 2012, 08:01 
Не в сети
Ветеран
Аватара пользователя

Зарегистрирован: 14 май 2012, 00:07
Сообщений: 150
Использую Visio c: 2012
Отрасль: Связь
Должность: Ведущий инженер
Уровнь квалификации: Vba, Vb, Java, Java Script
Очков репутации: 1

Добавить очки репутацииУменьшить очки репутации
всем привет)такой вопрос, а как можно сделать так что бы нельзя было на крестик нажать, или нажать но ничего не происходило?стандартная процедура ексит отказывается работать,а через терминал не эффективно, лазил на разных форумах нашел огромные коды по отключения кнопки, но они уж через чур большие, может кто знает как легче это можно сделать?


Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: кнопока закрыть
СообщениеДобавлено: 28 май 2012, 17:20 
Не в сети
Ветеран

Зарегистрирован: 21 окт 2011, 12:01
Сообщений: 895
Откуда: г. Екатеринбург
Использую Visio c: 2011
Очков репутации: 120

Добавить очки репутацииУменьшить очки репутации
только с использованием WIN API. по-другому никак. сначала декларируешь пару ф-й, потом просто модифицируешь окно, убирая кнопку закрыть.
короче я делаю так, меня устраивает. код простой и короткий.

Код:
Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Sub UserForm_Initialize()
    Dim hw As Long
    Me.Caption = "бла-бла"
    hw = FindWindow(vbNullString, Me.Caption)
    SetWindowLong hw, GWL_STYLE, 0
End Sub


Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
Показать сообщения за:  Поле сортировки  
Начать новую тему Ответить на тему  [ Сообщений: 2 ] 

Часовой пояс: UTC + 3 часа [ Летнее время ]



Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 1


Вы можете начинать темы
Вы можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

Найти:
Перейти:  
cron
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
Вы можете создать форум бесплатно PHPBB3 на Getbb.Ru, Также возможно сделать готовый форум PHPBB2 на Mybb2.ru
Русская поддержка phpBB