Sample 1
Main
[CODE lang="b4x" title="Main"] Dim Ck As CustomKey
Ck.Initialize
Ck.AddRowSimpleChar(Regex.Split(",","Q,W,E,R,T,Y,U,I,O,P"))
Ck.AddRowSimpleChar(Regex.Split(",","A,S,D,F,G,H,J,K,L,Canc"))
Ck.AddRowSimpleChar(Regex.Split(",","Z,X,C,V,B,N,M,Next" ))
SD_Keyboard1.Add(TextField1,"TextField1",Ck,TextField2)
Dim Ck As CustomKey
Ck.Initialize
Ck.AddRowSimpleChar(Regex.Split(",","1,2,3,4,5,6,7,8,9,0,?"))
Ck.AddRowSimpleChar(Regex.Split(",","Q,W,E,R,T,Y,U,I,O,P,Canc" ))
Ck.AddRowSimpleChar(Regex.Split(",","A,S,D,F,G,H,J,K,L,Del"))
'Ck.AddRowSimpleChar(Regex.Split(",","Z,X,C,V,B,N,M,Enter"))
Dim L As List
L.Initialize
L.Add(Ck.cKey("Z",90,"z",122))
l.Add(Ck.cKey("X",90,"x",122))
L.Add(Ck.cKey("C",67,"c",99))
l.Add(Ck.cKey("V",86,"v",118))
l.Add(Ck.cKey("B",66,"b",98))
l.Add(Ck.cKey("N",78,"n",110))
L.Add(Ck.cKey("M",77,"m",109))
l.Add(Ck.cKey("ENTER",13,"enter",13))
Ck.AddRow(L)
SD_Keyboard1.Add(TextField2,"TextField2",Ck,TextField1)[/CODE]
Event
B4X:
Private Sub TextField1_FocusChanged (HasFocus As Boolean)
Log("Focus1: " & HasFocus)
End Sub
Private Sub TextField2_FocusChanged (HasFocus As Boolean)
Log("Focus2: " & HasFocus)
End Sub
Private Sub TextField1_EnterPressed
Log("Enter 1")
End Sub
Private Sub TextField2_EnterPressed
Log("Enter 2")
End Sub
Private Sub TextField2_TextChanged (Old As String, New As String)
Log("Change: " & Old & " " & New)
End Sub
