B4J Question ABMINPUT which library?

[ViMeAv ICT]

I have to check currency and because selectionstart is only read-only i will try this with abminput.
But which library do i have to use for abminput?

 

[alwaysbusy]

ABMInput is part of the ABMaterial library and is for WebApps only

 

[DonManfred]

and because selectionstart is only read-only

where is it readonly? In which library/object

 

[ViMeAv ICT]

so not for b4j?

where is it readonly? In which library/object

Hello don,

in here :

 

[DonManfred]

in here

in WHERE? What is textfield10?

 

[ViMeAv ICT]

in WHERE? What is textfield10?

textfield10 As TextField (b4j)
i have no edittext

 

[DonManfred]

textfield10 As TextField (b4j)

my fault, sorry. I confused B4A and B4J (again)

 

[DonManfred]

textfield10 As TextField (b4j)

You need to use

textfield1.SetSelection(0,15)

to set the selection.

 

[ViMeAv ICT]

You need to use

textfield1.SetSelection(0,15)

to set the selection.

solved:

Private Sub textfield10_TextChanged (Old As String, New As String)
 
    If textfield10.Text = "" Then
        Return
    Else
        Dim chrtolookat As String = textfield10.Text.CharAt(textfield10.Text.Length - 1)
        Select chrtolookat
            Case "0","1","2","3","4","5","6","7","8","9"
                Return
            Case "."
                If (Old.Contains(".") Or Old.Contains(",")) Then
                    textfield10.Text = textfield10.Text.SubString2(0,textfield10.Text.Length - 1)
                    textfield10.SetSelection(textfield10.Text.Length,textfield10.Text.Length)
                Else
                    Return
                End If
            Case ","
                If (Old.Contains(".") Or Old.Contains(",")) Then
                    textfield10.Text = textfield10.Text.SubString2(0,textfield10.Text.Length - 1)
                    textfield10.SetSelection(textfield10.Text.Length,textfield10.Text.Length)
                Else
                    Return
                End If
            Case Else
                textfield10.Text = textfield10.Text.SubString2(0,textfield10.Text.Length - 1)
                textfield10.SetSelection(textfield10.Text.Length,textfield10.Text.Length)
        End Select
    End If
   
End Sub

I found this code in older forum messages.