Android Question How to create a button that can input text in an edittext

[cayahm]

Hello people of the world I was just curious if there is a way to make a button that can input a text on a selected edittext? like if I have a set of buttons which are numbered from 0-9 and there are multiple edittext. Is there a way to select an edittext and by pressing the button the number will show only to that specified edittext?

 

[cayahm]

Or is there no way for it? The only things that I've done were multiple buttons for a single edittext.

 

[Erel]

EditText.Text = EditText.Text & ""a"

A bit old example but can still help: https://www.b4x.com/android/forum/threads/customview-numpad.64191/#content

 

[aeric]

Sub Class_Globals
    Private Root As B4XView
    Private xui As XUI
    Private Button1 As Button
    Private Button2 As Button
    Private Button3 As Button
    Private EditText1 As EditText
    Private EditText2 As EditText
    Private EditText3 As EditText
    Private FocusOn As String = "EditText1"
End Sub

Public Sub Initialize

End Sub

Private Sub B4XPage_Created (Root1 As B4XView)
    Root = Root1
    Root.LoadLayout("MainPage")
End Sub

Private Sub EditText1_FocusChanged (HasFocus As Boolean)
    If HasFocus Then FocusOn = "EditText1"
End Sub

Private Sub EditText2_FocusChanged (HasFocus As Boolean)
    If HasFocus Then FocusOn = "EditText2"
End Sub

Private Sub EditText3_FocusChanged (HasFocus As Boolean)
    If HasFocus Then FocusOn = "EditText3"
End Sub

Private Sub Button1_Click
    EnterValue("1")
End Sub

Private Sub Button2_Click
    EnterValue("2")
End Sub

Private Sub Button3_Click
    EnterValue("3")
End Sub

Private Sub EnterValue (Value As String)
    Select FocusOn
        Case "EditText3"
            EditText3.Text = EditText3.Text & Value
            EditText3.SetSelection(EditText3.Text.Length, 0)
        Case "EditText2"
            EditText2.Text = EditText2.Text & Value
            EditText2.SetSelection(EditText2.Text.Length, 0)
        Case "EditText1"
            EditText1.Text = EditText1.Text & Value
            EditText1.SetSelection(EditText1.Text.Length, 0)
    End Select
End Sub

 

[toby]

Here is my simple solution that has been tested. test app attached

Private Sub Button_Click
    Dim btn As Button=Sender
    Log(btn.text)
    btnNum=btn.text
   
    Select chkNum
        Case 1'checkbox1
            EditText1.Text=EditText1.Text & btnNum
        Case 2'checkbox2
            EditText2.Text=EditText2.Text & btnNum
        Case 3'checkbox3
            EditText3.Text=EditText3.Text & btnNum
    End Select
End Sub

Private Sub RadioButton_CheckedChange(Checked As Boolean)
    Dim rb As RadioButton=Sender
    chkNum=rb.Tag
End Sub

 

[toby]

See it in action

 

[cayahm]

Thank you everyone I am grateful for all the answers!!! I've finally found a way to make it work thanks I've tried everything you guys sent and they worked thank you so much!