محدود کردن ادیت تکست

[cloner01001 38]

سلام

دوستان دو تا ادیت تکست دارم میخوام وقتی تو اولی یهکلمهتایپ شد ، خود به خود برهتو ادیت تکست دومی و وقتی تو دومی دو تا کلمه تایپ شد خود به خود کیبورد بسته شه

ممنون میشم کمک کنید

[RoyaPM 538]

از کتابخانه IME استفاده کنید

[salmana 174]

سلام

دوستان دو تا ادیت تکست دارم میخوام وقتی تو اولی یهکلمهتایپ شد ، خود به خود برهتو ادیت تکست دومی و وقتی تو دومی دو تا کلمه تایپ شد خود به خود کیبورد بسته شه

ممنون میشم کمک کنید

کتابخانه IME را تیک بزن

 

نکته: من تعداد کاراکتر رو 4 گذاشتم.

Sub Globals
Dim im As IME
Private EditText2 As EditText
Private EditText1 As EditText
Dim tm As Timer
End Sub

Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("1")
tm.Initialize("tm",2500)
tm.Enabled=True
End Sub
Sub tm_Tick
	im.ShowKeyboard(EditText1)
	tm.Enabled=False
End Sub

Sub EditText1_TextChanged (Old As String, New As String)
If EditText1.Text.Length=4 Then
im.ShowKeyboard(EditText2)	
End If
End Sub

Sub EditText2_TextChanged (Old As String, New As String)
If EditText2.Text.Length=4 Then
im.HideKeyboard
End If	
End Sub