DateDialog from EditText

[angel]

Hello

I open the pressing DateDialog EditText and show a selection in the EditText, the problem is that it also opens the keyboard, as I can do to not display the keyboard.

Sub EditText1_FocusChanged (HasFocus As Boolean)

If HasFocus Then

dialeg.Year = DateTime.GetYear(DateTime.Now)
dialeg.Month = DateTime.GetMonth(DateTime.Now)
dialeg.DayOfMonth = DateTime.GetDayOfMonth(DateTime.Now)
dialeg.Show("select date","none","ok","cancel","",Null)

End If

End Sub

Sub EditText1_EnterPressed

edittext1.Text= DateTime.Date(dialeg.DateTicks)

End Sub



Thank you.

 

[Erel]

Please use [ code ] [ /code ] tags (without spaces) when posting code.

Try to set the InputType of EditText1 to None.

 

[angel]

Thanks Erel