InputBox digit grouping

[akrogun]

Hi...
I have a InputBox that input a numeric like here:

Code: Select all

InputVal = InputBox("Please enter value:", "Input Value")

My question:
1. How to restrict only number that can input in the field?
2. Is it possible to make auto digit grouping whatever I enter in the field? If possible, how to do it?

Thanks in advance

[robleyd]

What is "[WTA]" in relation to your question?

[akrogun]

What is "[WTA]" in relation to your question?

Sorry, 2 questions in my post

[robleyd]

All an Input Box can do is return the string entered; you'll need to post-process the string and manipulate it as necessary.

[akrogun]

Perhaps with another method rather than using InputBox. Just like we using desk calculator, a normal calculator. You know, if we hit 4 digit then the display showing us 3,675 for an example. How to do it?

[Zizi64]

You can create your own InputBox by usage the form control element named Text Box on a Form, and its Event "Canged" or "Text modified" in a macro code. Then you will examine all of typed character, you will able to add thousand separator after typing every three caracters, you can delete the non-numeric characters, ... etc.
Finally you can manage the typed characters on the event "When losing focus" or "Key pressed' (if it was the 'Enter'). (Or you can use a dedicated Button located on your Form for the manager routine.)

[akrogun]

You can create your own InputBox by usage the form control element named Text Box on a Form, and its Event "Canged" or "Text modified" in a macro code. Then you will examine all of typed character, you will able to add thousand separator after typing every three caracters, you can delete the non-numeric characters, ... etc.
Finally you can manage the typed characters on the event "When losing focus" or "Key pressed' (if it was the 'Enter'). (Or you can use a dedicated Button located on your Form for the manager routine.)

Thanks, Zizi, I will try it

[JeJe]

An input box is just a modal dialog - you can create your own dialog and put a text box or other dialog control on it and restrict the input.

[Villeroy]

Yesterday's pattern field example: https://ask.libreoffice.org/uploads/sho ... BLAZGB.odb (open the embedded input form).
Pattern fields can be attached to dialogs and spreadsheets as well. [Calc, Basic] Formatted form controls to sheet cells.
Pattern field for phone numbers: download/file.php?id=19462

[JeJe]

Pressing the button in the attached document shows a modal dialog with a textbox which will remove any typed input which isn't a number. Code:

Code: Select all

Sub ModalDialog
dlg = loaddialog("Standard","Dialog1")
dlg.execute
msgbox dlg.getcontrol("TextField1").model.text
End Sub

sub Textboxkeypress(ev)
dim st,sel,a

select case ev.keychar
case "0","1","2","3","4","5","6","7","8","9"
case else
st = ev.source.model.text
sel = ev.source.selection
a = instr( st,chr(ev.keychar)
if a  then mid(st,a,1)= ""
ev.source.model.text=st
ev.source.selection=sel
end select
end sub


Function LoadDialog(oLibraryName as String, oDialogName as String)
	Dim oLib as Object
	DialogLibraries.LoadLibrary(oLibraryName)
	oLib = DialogLibraries.GetByName(oLibraryname)
	LoadDialog() =  CreateUnoDialog(oLib.GetByName(oDialogName))
End Function

Edit: changed code to catch some missed input

[akrogun]

Pressing the button in the attached document shows a modal dialog with a textbox which will remove any typed input which isn't a number. Code:

Thanks for the code example

[akrogun]

Yesterday's pattern field example: https://ask.libreoffice.org/uploads/sho ... BLAZGB.odb (open the embedded input form).
Pattern fields can be attached to dialogs and spreadsheets as well. [Calc, Basic] Formatted form controls to sheet cells.
Pattern field for phone numbers: download/file.php?id=19462

Sorry, I can't understand what you're saying because my limited programming. Why I can't open odb files? And what did you mean with pattern field can be attached to dialogs and spreadsheet?