Dialog
Bueno parece que hoy Domingo los informáticos están durmiendo.
Parece que la Solución es sencilla.
Para ello se añade la Librería Dialog y se pone el siguente texto en un Botón:
Sub Button1_Click
Dim ret As String
Dim Dd As DateDialog
Dd.Year = DateTime.GetYear(DateTime.Now)
Dd.Month = DateTime.GetMonth(DateTime.Now)
Dd.DayOfMonth = DateTime.GetDayOfMonth(DateTime.Now)
ret = Dd.Show("", "Seleccione una Fecha", "Seleccionar", "Cancelar", "",Null)
ToastMessageShow(ret & " : " & Dd.DayOfMonth & "/" & Dd.Month & "/" & Dd.Year , False)
End Sub
Otro ejemplo con Hora.
Bmp.Initialize(File.DirAssets, "android48.png"), si le poneis Null como el el primer ejemplo.
Sub btnTime_Click
Dim ret As String
Dim td As TimeDialog
Dim txt As String
td.Hour = DateTime.GetHour(DateTime.Now)
td.Minute = DateTime.GetMinute(DateTime.Now)
td.Is24Hours = True
ret = td.Show("Set the required time", "B4A Time Dialog", "Yes", "Cancel", "No", Bmp)
ToastMessageShow(ret & " : " & td.Hour & ":" & td.Minute, False)
End Sub
Si alguien sabe como cambiar el idioma se los agradecería.
Saludos
Me contesto el simulador no se entera pero al pasar el programa a Móvil este detecta el idioma sin hacer nada.