Имя: Пароль:
1C
 
Как в 1с 7.7 програмно развернуть окно формы на весь экран.
0 pazhar
 
28.11.04
03:44
Подскажите пожалуйста, сто нужно написать после строки в модуле формы (справочника)  Процедура Приоткрытии(),чтобы форма (справочник) разворачивалась на весь экран
1 NiGMa
 
28.11.04
08:18
Средствами 1С - никак. Потому что в 7.7 на весь экран открывается не одно окно, а все окна сразу - вот и нет такого метода (штатного).
Но не отчеавайся! WSH тебе поможет! (поищи это слово по форуму)
2 сабж
 
28.11.04
09:25
3 Вильям
 
28.11.04
09:40
Развернуть окно на весь экран

--------------------------------------------------------------------------------

Процедура глМаксимизироватьОкно() Экспорт
   // вызывать в конце процедуры "ПриОткрытии" из модуля формы
   WSHShell = СоздатьОбъект("WScript.Shell");
   WSHShell.SendKeys("%");
   WSHShell.SendKeys("{LEFT}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{ENTER}");
КонецПроцедуры
<сообщил Chernogor>

Замечание:
Если у вас этот код не работает, значит не установлен <Windows Scripting Host> или установлена старая версия.
"Что вам нужно для начала: Первое, что надо сделать - убедиться, что Windows Scripting Host у вас есть.
В состав W2K он входит изначально.
Если вы используете Windows 98 или Internet Information Server 4.0,
или если вы устанавливали Option Pack для Windows NT 4 и для Windows 95, он у вас точно есть.
В случае Windows 95 все усложняется, и Windows Scripting Host придется скачивать с сайта Microsoft (msdn.microsoft.com/scripting).
Напишите в командной строке "wscript".
Если появилось диалоговое окно с надписью, отличной от "File not found", все в порядке."
<по материалам с http://www.optim.ru/cs/2000/1/WSH/WSH.asp>;

(c) mszsuz
4 ты ишшо
 
28.11.04
10:20
буху это скажи - проверьте наличие WSH. Правильный код должен работать АВТОМАТИЧЕСКИ. вот так, например -
//==================================================================================
Процедура глМаксимизироватьОкно() Экспорт
   // вызывать в конце процедуры "ПриОткрытии" из модуля формы
   Попытка
       WSHShell = СоздатьОбъект("WScript.Shell");
       WSHShell.SendKeys("%");
       WSHShell.SendKeys("{LEFT}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{ENTER}");
   Исключение
   КонецПопытки;
КонецПроцедуры
//==================================================================================
5 ЕщеХочется
 
28.11.04
13:20
хорошая вещь (4) только бы еще ее научить делать это в заданной программе 1с
а не в активном окне.
Кто знает как это действие WSHShell.SendKeys("{LEFT}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{ENTER}");
выполнить в заданной программе 1с
6 ЧеНеВидишь
 
28.11.04
13:24
? // вызывать в конце процедуры "ПриОткрытии" из модуля формы
7 ЕщеХочется
 
28.11.04
13:27
а если зватем перейти в другое окно?
может както использовать  
AppActivate("Х") – активизирует приложение по заголовку Х окна или по идентификатору процесса Х
8 ЕщеХочется
 
28.11.04
13:28
мне нужно для чего
это для выгоняния пользователей, если они свернут окно то не получается их выгнать, так как они работают в это момент в другой программе
9 ЕщеХочется
 
28.11.04
13:30
как узнать "идентификатор процесса"  заданного запуска 1с?
10 ЕщеХочется
 
28.11.04
13:34
там есть но голову можно сломать
http://www.kuban.ru/forum_new/forum9/arhiv/8491.html
11 Ёжик в тумане
 
28.11.04
13:36
(8) Бесполезное занятие - не приводит ни к чему.
Если нет такого функционала в 1С, то все попытки его изобразить подобны сизифову труду.
(9) Напиши в Microsoft - может чё посоветуют
12 ЕщеХочется
 
28.11.04
13:39
Ёжик в тумане но WScript работает в свернутом окне, соответсвенно можно его активироват его и развернуть а потом    ЗавершитьРаботуСистемы(0)
13 ЕщеХочется
 
28.11.04
13:40
ЕщеХочется а может все приложения закрыть с помощью WScript , чтоб не сворачивали окно 1с :-)
14 Ёжик в тумане
 
28.11.04
13:41
(12) И обломишься - не всегда работа завершится.
15 ЕщеХочется
 
28.11.04
13:42
ALT F4 пока не закроет то что нужно :-)
16 Ёжик в тумане
 
28.11.04
13:42
Что за маниакальная тяга в WScript...
Ещё бы WinApi из 1С вызывали...
17 Ёжик в тумане
 
28.11.04
13:43
(15) Ну и будет оно закрывать до завтра...
18 ЕщеХочется
 
28.11.04
13:43
зато закроет вындос :-)
19 Ёжик в тумане
 
28.11.04
13:44
+17 Или до послезавтра..
20 ЕщеХочется
 
28.11.04
13:44
некоторые юзвери сворачивают 1с а нужно всех выгнать
21 ЕщеХочется
 
28.11.04
13:45
с чего ты решил что будет долго закрывать?
22 ЕщеХочется
 
28.11.04
13:47
SendKeys("%+{TAB}")
переход по окнам и последовательно все закрывать
23 Ёжик в тумане
 
28.11.04
13:48
(21) Есть куча случаев, когда ЭТО не сработает.
Только похоже, тебе эти случаи неведомы..
24 ЕщеХочется
 
28.11.04
13:49
Ёжик в тумане раскажми очень интересно узнать
25 Ёжик в тумане
 
28.11.04
13:52
Пойди на майдан и купи там себе губозакаточную машинку.
26 ЕщеХочется
 
28.11.04
13:54
не понимаю хохлов ~:-)
27 Ёжик в тумане
 
28.11.04
14:00
Я тоже их не понимаю.
28 ЕщеХочется
 
28.11.04
14:01
я понимаю если запущен длительный процес, но он когдато закончится, может попробовать "esc" чтоб прекратить длительный процесс
29 Ёжик в тумане
 
28.11.04
14:03
Есть такой процесс, называется Вопрос("Сохранить?","Да+Нет") без таймаута.
Будешь посылать "Нет" во все окна?
30 ЕщеХочется
 
28.11.04
14:03
затем интер, а затем Alt F4
31 ЕщеХочется
 
28.11.04
14:05
много много раз интер много много раз esc? много много раз alt f4
всеравно  когдато закроется :-)
32 Ёжик в тумане
 
28.11.04
14:06
Тебе надо выдать орден Сизифа первой степени.
У него были похожие методы.
33 ЕщеХочется
 
28.11.04
14:09
Ёжик в тумане спаибо за оценку моей скромной персоны :-:
главное результат :-)
34 Ёжик в тумане
 
28.11.04
14:11
Не ты первый, не ты и последний, кто безуспешно пытался организовать массовое закрытие 1С программными средствами.
35 ЕщеХочется
 
28.11.04
14:14
Ёжик в тумане думаю ты не прав
36 spock
 
28.11.04
14:16
Процедура ПослеОткрытия()
   ФормаРасш = СоздатьОбъект("РасширениеФормы");
   ФормаРасш.Maximize = 1;
КонецПроцедуры // ПослеОткрытия()
37 Ёжик в тумане
 
28.11.04
14:23
(35) Многие так думали. И где они все?
38 syktyk
 
28.11.04
14:33
(36)Мощно задвинул. Внашаить!(с)ХРюн
39 spock
 
29.11.04
20:23
2(38)Чееее?
Честно же написАл как делать нуна :-)