|
Как в 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)Чееее?
Честно же написАл как делать нуна :-) |
Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |