Private Sub SetMinutesSelectorIntervalTo10Minutes(Key As String)
Dim i As Int = p.PrefItems.IndexOf(p.GetPrefItem(Key))
Dim pmMinutes As B4XPlusMinus = p.CustomListView1.GetPanel(i).GetView(1).Tag
pmMinutes.SetNumericRange(0, 50, 10)
End Sub
Example:
B4X:
Sub Button1_Click
Dim rs As Object = p.ShowDialog(Data(0), "Ok", "CANCEL")
SetMinutesSelectorIntervalTo10Minutes("time") 'this is the item "key"
Wait For (rs) Complete (Result As Int)
Log(Result)
End Sub
Private Sub SetMinutesSelectorIntervalTo10Minutes(Key As String)
Dim i As Int = p.PrefItems.IndexOf(p.GetPrefItem(Key))
Dim pmMinutes As B4XPlusMinus = p.CustomListView1.GetPanel(i).GetView(1).Tag
pmMinutes.SetNumericRange(0, 50, 10)
End Sub
Example:
B4X:
Sub Button1_Click
Dim rs As Object = p.ShowDialog(Data(0), "Ok", "CANCEL")
SetMinutesSelectorIntervalTo10Minutes("time") 'this is the item "key"
Wait For (rs) Complete (Result As Int)
Log(Result)
End Sub