Серый форум — AHK: Ввод чисел в "Edit" через точку

Re: AHK: Ввод чисел в "Edit" через точку

null@example.com (teadrinker) — Wed, 27 Jun 2018 14:51:45 +0000

YMP пишет:

Всё это обман.

Почему сразу обман? Просто небольшое волшебство.

Re: AHK: Ввод чисел в "Edit" через точку

null@example.com (RedBishep) — Wed, 27 Jun 2018 14:28:58 +0000

Спасибо всё работает прекрасно,тему можно закрывать если есть такая необходимость.

Re: AHK: Ввод чисел в "Edit" через точку

null@example.com (YMP) — Wed, 27 Jun 2018 14:11:10 +0000

teadrinker пишет:

Может, может.

Чего он тогда дёргается? Всё это обман.

Re: AHK: Ввод чисел в "Edit" через точку

null@example.com (teadrinker) — Wed, 27 Jun 2018 13:44:20 +0000

Или вот так, похитрее немного:

Gui, Add, Edit, w150 number hwndhEdit
obj := {h: hEdit}
obj.f := fn := Func("SetDots").Bind(obj)
GuiControl, +g, %hEdit%, % fn
Gui, Show
Return

SetDots(obj)  {
   GuiControl, -g, % obj.h
   GuiControlGet, num,, % obj.h
   num := RegExReplace(num, "\.")
   GuiControl,, % obj.h, % RegExReplace(num, "\d(?=(\d{3})+$)", "$0.")
   Send {End}
   fn := obj.f
   GuiControl, +g, % obj.h, % fn
}

Re: AHK: Ввод чисел в "Edit" через точку

null@example.com (teadrinker) — Wed, 27 Jun 2018 13:35:56 +0000

Может, может.

Gui, Add, Edit, w150 number gSetDots
Gui, Show
Return

SetDots()  {
   static fn := Func("SetDots")
   GuiControl, -g, Edit1
   GuiControlGet, num,, Edit1
   num := RegExReplace(num, "\.")
   GuiControl,, Edit1, % RegExReplace(num, "\d(?=(\d{3})+$)", "$0.")
   Send {End}
   GuiControl, +g, Edit1, % fn
}

Re: AHK: Ввод чисел в "Edit" через точку

null@example.com (YMP) — Wed, 27 Jun 2018 13:31:25 +0000

RedBishep пишет:

Пример: ввожу число 1000000 и оно так и остаётся. а надо что бы прям на глазах становилось таким 1.000.000
Если конечно такое возможно

Для этого контрол должен заранее знать, какое число вы вводите. Иначе как он поймёт, где ставить точки? Но он не может этого знать, это фантастика.

Re: AHK: Ввод чисел в "Edit" через точку

null@example.com (RedBishep) — Wed, 27 Jun 2018 13:07:44 +0000

Извиняюсь если ввёл в заблуждение. ошибся.
Вот пример кода который я использую он работает но только после нажатия кнопки.


Var1 := ee1
Result1 := RegExReplace(Var1, "\d(?=(\d{3})+$)", "$0.")

Нужно что-то наподобие только без кнопки, моментальное преобразование при написание в окне скрипта в поле "Edit".

Re: AHK: Ввод чисел в "Edit" через точку

null@example.com (teadrinker) — Wed, 27 Jun 2018 12:59:50 +0000

RedBishep пишет:

после каждой 3 цифры ставилась точка

RedBishep пишет:

надо что бы прям на глазах становилось таким 1.000.000

Смотрите, вы говорите после каждой 3 цифры, а в примере, который привели первая точка стоит после первой цифры.

AHK: Ввод чисел в "Edit" через точку

null@example.com (RedBishep) — Wed, 27 Jun 2018 12:55:02 +0000

Доброго времени суток.
Извиняюсь если данный вопрос уже был озвучен кем-то или его решение есть в "FAQ".

Подскажите или дайте кусок кода что бы:
Когда в "GUI" окне в поле "Edit" вводишь цифры они автоматический после каждой 3 цифры ставилась точка.
Пример: ввожу число 1000000 и оно так и остаётся. а надо что бы прям на глазах становилось таким 1.000.000 .
Если конечно такое возможно.

Заранее благодарен!

З.Ы. Новичёк в написание кода походу дела учусь.