Вы не вошли. Пожалуйста, войдите или зарегистрируйтесь.
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
Есть ли возможность при вводе чисел в окно GUI - разряды отделять пробелом/отступом, как это сделано во встроенном калькуляторе? Напр.: 8 201 794.
Gui, +AlwaysOnTop hwndMainWin
Gui, Font, s12 w400, Tahoma
Gui, Add, Edit, x+0 yp4 w252 h24 +Center +Number vToggleLen
Gui, Show, Center w400 h100, %script_name%
returnПо ссылке есть решение для точки, но с пробелом не срабатывает - ?pid=126480#p126480.
Все-таки, работает -
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
}Есть ли аналогичная "+Number" опция, для задания лимита цифр, которые можно ввести в Gui-окно - например, не более 18 цифр?
Как передать введенное число в MsgBox по нажатии кнопки OK?
Gui, +AlwaysOnTop hwndMainWin
Gui, Font, s13 w400, Tahoma
Gui, Add, Edit, w240 number hwndhEdit
Gui, Add, Button, default, OK
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
}
GuiClose:
ExitApp
ButtonOK:
Gui, Submit
MsgBox, %hEdit%
Pause
ReturnНаверно так:
...
Gui, Add, Edit, w240 number vnumber hwndhEdit
...
ButtonOK:
Gui, Submit
MsgBox, %number%
...
Alectric, спасибо!
опция, для задания лимита цифр, которые можно ввести в Gui-окно - например, не более 18 цифр?
Gui, Add, Edit, Limit18Следующий код при вводе разбивает числовые разряды пробелами и допускает ввод только цифр. Как перехватить момент вставки числа с пробелами из буфера обмена, чтобы предварительно удалить пробелы?
Gui, +AlwaysOnTop hwndMainWin
Gui, Font, s13 w400, Tahoma
Gui, Add, Edit, w240 number hwndhEdit
Gui, Add, Button, default, OK
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
}
1srafel Для начала разберите каждую строку, что для чего. Тогда ясно станет всё. Если вы не понимаете элементарного, толку указывать что-то?
__Михаил__ Я примерно догадываюсь, что там надо добавить событие для вставки из буфера, но затрудняюсь с его поиском.
Попробуйте так:
Gui, +AlwaysOnTop hwndMainWin
Gui, Font, s13 w400, Tahoma
Gui, Add, Edit, w240 number hwndhEdit
Gui, Add, Button, default, OK
obj := {h: hEdit}
obj.f := fn := Func("SetDots").Bind(obj)
GuiControl, +g, %hEdit%, % fn
Gui, Show
OnMessage(0x102, "WM_CHAR")
Return
WM_CHAR(wp) {
if (wp = 22) { ; Ctrl + V
Clipboard := StrReplace(Clipboard, " ")
}
}
SetDots(obj) {
GuiControl, -g, % obj.h
GuiControlGet, num,, % obj.h
num := StrReplace(num, " ")
GuiControl,, % obj.h, % RegExReplace(num, "\d(?=(\d{3})+$)", "$0 ")
Send {End}
fn := obj.f
GuiControl, +g, % obj.h, % fn
}Спасибо! Правильно понимаю, что событие вставки из контекстного меню не может быть так же обработано?
В качестве обхода невозможности отловить вставку из контекстного меню, видимо, можно удалить опцию "number" -
Gui, Add, Edit, w240 number hwndhEditи воспользоваться следующим кодом в функции события, разрешив ввод перечисленных символов:
WM_CHAR(wp) {
if (wp = 22) { ; Ctrl + V
Clipboard := StrReplace(Clipboard, " ")
}
Chr := Chr(wp)
if Chr not in 0,1,2,3,4,5,6,7,8,9
Return 0
}Как добавить в этот список с цифрами - пробел?
Впрочем, эта мера не поможет, если удерживать клавишу, которой нет в списке.
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
