Имя: Пароль:
1C
1C 7.7
v7: Как получить текст активного поля ввода в 7.7?
0 sysadminlk
 
30.03.16
13:33
Функция ПолучитьТекстАктивногоПоля()
    scrptCtrl=createobject("MSScriptControl.ScriptControl");
    scrptCtrl.language="vbscript";    
    scrptCtrl.addcode("
    |Function GetText()  
    |Text             = Space(512)
    |Set Wrapper     = CreateObject(""DynamicWrapper"")
    |Wrapper.Register ""USER32.DLL"", ""SendMessage"",     ""I=lllr"", ""f=s"", ""r=l""
    |Wrapper.Register ""USER32.DLL"", ""GetFocus"",     ""f=s"",     ""r=l""
    |ActiveControl     = Wrapper.GetFocus 'элемент окна с фокусом ввода                  
    |tcnt             = Wrapper.SendMessage (ActiveControl, &HD ,512, Text) 'WM_GETTEXT
    |GetText         = Text
    |End Function");    
    Возврат scrptCtrl.run("GetText");
КонецФункции    // ПолучитьТекстАктивногоПоля

Эта функция если текст длинный выбивает предприятие.
То есть 1с-ка просто исчезает без ошибок и приходится ее заново открывать.

Чем можно заменить данную функцию?

Нужно ПриНажатииКнопкиКлавиатуры считывать текст с поля ввода.
1 Mikeware
 
30.03.16
13:35
ТКВ
2 sysadminlk
 
30.03.16
13:39
(1) это что?
3 Mikeware
 
30.03.16
13:40
(2) Это Традиционный Китайский Вопрос - "анахуа?"®
4 Mikeware
 
30.03.16
13:41
подбор номенклатуры по буквам делаешь, чтоль?
дык сделано давно....
5 sysadminlk
 
30.03.16
13:42
(4) угадал
6 Mikeware
 
30.03.16
13:42
7 sysadminlk
 
30.03.16
13:43
только не подбор а поиск в справочнике
8 Mikeware
 
30.03.16
13:44
9 sysadminlk
 
30.03.16
13:45
(6) (8) нет, не так
тут везде выпадающие меню
10 Mikeware
 
30.03.16
13:47
(9) тут везде ввод с клавиатуры в поле, маскирующее поле ввода. а выпадающий список просто показывает элементы с вхождением данной строки/строк.
11 sysadminlk
 
30.03.16
13:47
а мне нужно по кнопке ENTER данные проверить и
ИспользоватьСписокЭлементов(Фильтр);
12 sysadminlk
 
30.03.16
13:50
(10) у вас на формексе сделано?
13 Mikeware
 
30.03.16
13:50
формекс+1спп
14 Mikeware
 
30.03.16
13:51
отображение - svcsvc
15 Ёпрст
 
гуру
30.03.16
14:01
еще вот это есть
http://catalog.mista.ru/public/141197/
16 aka AMIGO
 
30.03.16
14:05
у меня сделано без применения вк:
http://pics.rsh.ru/img/22_qlgsfj3m.jpg
17 Mikeware
 
30.03.16
14:05
(15) так он вроде по твоему исходному методу и делает...
18 Ёпрст
 
гуру
30.03.16
14:06
(17) Да ?
Я хз, че там в 12 году творил, не вспомню даже :)
19 Ёпрст
 
гуру
30.03.16
14:07
(16) это лучше переписать, на обработку с 1cpp, есть готовая, подменяет поиск и установку отбора в списках
20 Mikeware
 
30.03.16
14:07
(18) я вот тоже, картинки 10 года валялись, вставил. а что и как было сделано - с трудом вспоминаю...
21 Ёпрст
 
гуру
30.03.16
14:10
22 sysadminlk
 
30.03.16
14:21
(21) интересный вариант
23 sysadminlk
 
30.03.16
14:21
на чем сделан?
24 sysadminlk
 
30.03.16
14:26
(21) http://catalog.mista.ru/public/140861/
ВыбратьПоТексту
у меня тоже самое

Только у меня вылетает если длинна текста больше 60 букв.

Или вылетает только у меня?
25 sysadminlk
 
30.03.16
14:26
проблема в dynawrap.dll ?
26 Mikeware
 
30.03.16
14:29
(24) 60 букв - изврат какой-то.
кстати, размер поля, на котором фокус - какой?
27 sysadminlk
 
30.03.16
14:34
(26) гдето 255 гдето 100

нашел у себя
C:\Program Files\1Cv77\BIN\config\system\DynWin9x
dynwrap.dll
28 Ёпрст
 
гуру
30.03.16
14:46
(23) основа, вот это
http://1cpp.ru/forum/YaBB.pl?num=1211491690

переписана на др. запросы
Оптимист верит, что мы живем в лучшем из миров. Пессимист боится, что так оно и есть.