Пользователь


Группа: Пользователи
Сообщений: 52
Регистрация: 21-February 04
Пользователь №: 1290



Добрый День! Пожалуйста подскажите:

Что надо добавить в процедуру, чтобы при каждом нажатии "Кнопки2" курсор переходил влево на один символ.

Shell = Новый COMОбъект("WScript.Shell");

Процедура Кнопка2Нажатие(Элемент)

Если ЭтаФорма.ТекущийЭлемент<>ЭлементыФормы.ппВвод Тогда
ЭтаФорма.ТекущийЭлемент = ЭлементыФормы.ппВвод;
Shell.SendKeys("{RIGHT}");
КонецЕсли;
Shell.SendKeys("{LEFT}");

КонецПроцедуры

Тема 1С8 Пожалуйста, поправьте.

(0) Если подумать, то станет понятно, что при нажатии кнопки фокус ввода пересестится из текстового поля на кнопку.

(2)
Если ЭтаФорма.ТекущийЭлемент<>ЭлементыФормы.ппВвод Тогда
ЭтаФорма.ТекущийЭлемент = ЭлементыФормы.ппВвод;
Shell.SendKeys("{RIGHT}");
КонецЕсли;
Вернулся фокус в полеВвода.
Shell.SendKeys("{RIGHT}"); - что с ним, что без него - разницы никакой, все равно смещается только на 1 символ...

(3) Правильно. Ведь вернулся он в начало поля, не так ли?

(4) телепат?

(5) Не... Только учусь. Вот, нашел шикарное место для тренировок.

(4,6) Понял.
А как можно сделать?

(7) При потере фокуса запоминать положение курсора. А зачем вообще всё это нужно?

(0) А Вам это зачем надо? Меня со времен ухода из-под DOS-а перестала волновать такая мелочь как позиция курсора...

(8) Эээ... при потере фокуса уже поздно запоминать положение курсора - он тоже уже потерян.

(10) Я имел ввиду, перед потерей фокуса, конечно же. Просто вот так криво выразился :)

(10) КАК?

(12) Сначала скажи - зачем?

Инет подглючил...
(13) Кусок экранной клавиатуры рисую

(14) Офигеть... Я правильно понял - для тыканья в него пальцАми?
Не пробовал, но ОкончаниеВводаТекста не подойдет ли?

(14) Ну типа да.
ОкончаниеВводаТекста не подойдет ли?  - и куда его прикрутить? фактически это "Enter"

Стоп. А ввод текста куда производится? Точнее, может ли пользователь кнуть в то поле пальцем и изменить положение курсора? Или все это только с "клавиатуры" делаться может?

(17) только с "клавиатуры" делаться может  - Да, только так

(18) Так тогда все просто - заведи переменную ПозицияКурсора и сам ее считай при нажатии на соответствующие кнопки.

ПозицияКурсора и сам ее считай  - КАК?

(19) ???????

(20) Ну ты же сам рулишь положением курсора. Добавл буковку - прибавил к ней 1. Сдвинул курсор влево - отнял 1.

(22)
Да теоретически все понятно Практически как запомнить позицию курсора???

Ну типа
МояПозиция = ???

(23) Не понял... ПозицияКурсора = ПозицияКурсора + 1 при сдвиге курсора вправо. ПозицияКурсора = ПозицияКурсора - 1 при сдвиге курсора влево.

ПозицияКурсора - это Что? Как? 1с таких слов не понимает... Или я не прав?

В переменную "ПозицияКурсора" что надо записать???

Чё-то мы как слепой с глухил говорим :)
Открылась твоя форма. В тексте пусто.
ПозицияКурсора = 0;
Нажали буковку. В тексте появился один символ. Тоесть, курсор сменил позицию на единичку:
ПозицияКурсора = ПозицияКурсора +1;
Где ПозицияКурсора - твоя переменная, глобальная в пределах модуля.

Блин, заморочился, ....

Как сейчас:
ЭтаФорма.ТекущийЭлемент = ЭлементыФормы.ппВвод;
Shell.SendKeys("{RIGHT}"); ставим курсор справа от последнего символа

А как сделать что бы после
ЭтаФорма.ТекущийЭлемент = ЭлементыФормы.ппВвод;
курсор стал на ранее запомненную позицию ПозицияКурсора ???

Имитация - Набирали слово "Миста"  пропустили букву "т" хотим вернуться и вставить

???

Речь о чем? О поле ТекстовогоДокумента что ли?

+(32) тип как нарисовать клаву чтоб в нем курсор правильно бегал?

(33) Именно так!!!

(33)???

(35) не рисовал ))). А попробовать счас не на чем.

Я уже не знаю, как еще по другому объяснить...

(38) вся трабла в том, как вообще получить текущую позицию курсора в поле текстового документа? Как ее запомнить это уже дело десятое.

+(38) если все с пустого поля начиналось, то да - можно присобачить счетчик, а если нет?

(38) Да зачем ее получать, если на положение курсора может повлиять только на жати на кнопки, которые положил на форму автор? Рассчитать это положение при нажатии кнопки (та самая единичка в плюс или минус) да и всё.

(40) а в момент нажатия кнопки курсор свою позицию в поле сохраняет?

Жалко счас поковырять это не на чем.

(41) Неа, не сохраняет. Да и зачем?

(0)попробуй попользовать табличный документ

(43)


ррВВода - поле ввода на форме
ПК - позиция курсопа
ПК = 0
Вводим "М"
ПК=1
Вводим"и"
Пк =2
Вводим "т"
ПК=3
Вводим"а"
Пк =4
Получилось "МИта" вместо "Миста"
Жмем "Влево"
Курсор уходит на "Влево"
ЭтаФорма.ТекущийЭлемент = ЭлементыФормы.ппВвод;
КАК вернуть кусор на позицию "ПК"
Точнее при первом нажатии он сам туда вернетсч, А ПРИ ВТОРОМ, ТРЕТЬЕМ....???

(45) Стоп!!! Курсор какой жмем? Я же очень давно спросл, а ты подтвердил, что состояние поля ввода (в том числе и положение курсора в нем) может изменяться только с "клавиатуры". Тоесть той формы, которую ты даешь пользователю?

(46) ага активировать поле ввода можно мышой )))), причем в произвольном месте.

(47) А я специально про это спросил давным давно. Так как, например, поле ввода можно сделать недоступным. Или вообще положить не поле ввода, а текст, который Label. Я же не знаю, как там у автора сделано...

Курсор какой жмем?   -???

Форма.
поле ввола - ппВвод
Кнопки
"М"
"И"
"С"
"Т"
"А"
Кнопка "Влево"
жмем "М" ставим курсор в ппВвола -появилась "М" и т.д.

(47) НЕТ НЕЛЬЗЯ!!! Мышь повесилалась...

(49) "Кнопка "Влево""
ПК = ПК-1;
Ы?

(49) так поле ввода со строкой или поле текстового документа с текстом?

(51) поле ввода со строкой
(50)
ПК = ПК-1;  ну а как курсор поставить в позу "ПК = ПК-1"

Кнопка "Влево""
ПК = ПК-1;  курср то уйдет на кнопку "Влево" при втором нажатии

(52) Почему при втором?

(52) "ну а как курсор поставить в позу "ПК = ПК-1" " - понял...
Спозиционироваться на поле ввода и ПК-1 раз послать нажатие кнопки "Вправо"

(53)! мне надо сместиться на 2 знака влево чтобы вставить пропущенную букву!

(54) вот е мое не успел набрать ))))

(55) ну это немного тяжелее ))).

Звучит обнадеживающе...

а в чем сложность? Одно нажатие кнопки - одно событие. Нажал 1 раз влево - сместился на одну позицию, изменили счетчик. Ну и т.д.

Ну счетчики, переменные эьо все хорошо!
А вот как курсор сместить?

(4)  (3) Правильно. Ведь вернулся он в начало поля, не так ли?

я бы делал так - при нажатии клавиши активируем поле ввода (при условии что при активации курсор всегда в начале) и посылаем НАЖАТИЕ ВПРАВО по значению счетчика. Затем выполняем действие - то бишь перемещение курсора и изменяем значение счетчика. Ну и т.д.. Вроде ничего сложного нет.

Ну была у меня подобная мысль, только как то кривовато это

(62) Но ты же не Войну и Мир собрался в этом поле ввода писать? Метания курсора никто и увидеть не успеет.

(63) а вдруг на камеру снимут? А потом все это в замедленном режиме прокрутят?

(64) А ну да... Не подумал...
Во! Тогда еще между скачками курсора кидать в поле ввода текст: "Пошли в опу со своей камерой!". Пусть любуются :)

(63) ну это то конечно так

Вопрос еще и в том как эти переменные очистить...

966) Подсказываю:
ПК = 0;

(67) Спасибо за подсказку....
Только ПК = 0; перед первым нажатием

Процедура Левак()
ПК = 0;
активизируем, смешаемся
Пк - ПК-1;
Финиш.

И процедура повторяется Н раз...
???

(68) Что-то я чуствую, что смешались в кучу кони, люди...

Эх... Заставил эту долбанную восьмерку открывать...
Вот:
Перем ПозицияКурсора, Shell;

Процедура кнБукваНажатие(Элемент)
   _Текст = _Текст + "Ы";
   ПозицияКурсора = ПозицияКурсора + 1;
КонецПроцедуры

Процедура кнЛевоНажатие(Элемент)
   ЭтаФорма.ТекущийЭлемент = ЭлементыФормы._Текст;
   
   ПозицияКурсора = ПозицияКурсора - 1;
   Shell.SendKeys("{LEFT}");

   Для Н = 1 По ПозицияКурсора Цикл
       Shell.SendKeys("{RIGHT}");
   КонецЦикла;
КонецПроцедуры

ПозицияКурсора = 0;
Shell = Новый COMОбъект("WScript.Shell");

(70)

Ну а теперь усложни немного ситуацию

Мы вводили "Миста" Твой код отработал нормально
А теперт продолжаем вводить "Миста форум"
Попробуй!
Вот и засада с очисткой переменных. Кнопка с интелектом нужна!...

Рецепт Не найден...

(71) И в чем именно проблема? Плюс, я тебе показал идею. Развивай.

Спасибо, собеседники!