#Region Project Attributes
#ApplicationLabel: b4aPickerViewMulti
#VersionCode: 1
#VersionName:
'SupportedOrientations possible values: unspecified, landscape or portrait.
#SupportedOrientations: portrait
#CanInstallToExternalStorage: False
#End Region
#AdditionalRes: ..\resource
#AdditionalRes: ..\PickerLibRes
'#AdditionalRes: C:\Users\----------2\Documents\Basic 4 Android\JOHAN APPS\JHS LIBS\resource\b4a_appcompat, de.amberhome.objects.appcompat
'#AdditionalRes: C:\ANDRIOD_SDK_TOOLS\extras\android\support\v7\appcompat\res, android.support.v7.appcompat
'#AdditionalRes: C:\ANDRIOD_SDK_TOOLS\extras\google\google-play-services\libproject\google-play-services_lib\res, com.google.android.gms
'#AdditionalRes: C:\ANDRIOD_SDK_TOOLS\extras\android\support\design\res, android.support.design
'#ExcludeClasses: .games, .drive, .ads, .fitness, .wearable, .measurement, .cast, .auth, .nearby
'#ExcludeClasses: .tagmanager, .analytics, .wallet, .plus, .gcm, .maps, .panorama
'#Extends: android.support.v7.app.AppCompatActivity
#Region Activity Attributes
#FullScreen: False
#IncludeTitle: True
#End Region
Sub Process_Globals
'These global variables will be declared once when the application starts.
'These variables can be accessed from all modules.
End Sub
Sub Globals
'These global variables will be redeclared each time the activity is created.
'These variables can only be accessed from this module.
Private Button1 As Button
Private Button2 As Button
Private Button3 As Button
Dim spv As SinglePickerView
Dim dpv As DoublePickerView
Dim tpv As TriplePickerView
Dim singlelist As List
Dim doublelist1 As List
Dim doublelist2 As List
Dim triplelist1 As List
Dim triplelist2 As List
Dim triplelist3 As List
End Sub
Sub Activity_Create(FirstTime As Boolean)
'Do not forget to load the layout file created with the visual designer. For example:
Activity.LoadLayout("main")
spv.Initialize("spv")
dpv.Initialize("dpv")
tpv.Initialize("tpv")
singlelist.Initialize
singlelist.AddAll(Array As String("January", "February", "March", "April", "May", "June", "July", "August", "September", "October", "November", "December"))
spv.WheelItems = singlelist
spv.Cyclical = True
spv.PickerTitle = "Months"
spv.SelectedIndex = 1
spv.SingleTextColorOut = Colors.LightGray
spv.SingleTextColorCenter = Colors.Black
spv.SingleDividerColor = Colors.Blue
spv.BtnCancelText = "CANS"
spv.BtnSubmitText = "SUBS"
spv.BtnCancelTextColor = Colors.Red
spv.BtnSubmitTextColor = Colors.Green
'*************************************************************************************************************************************
doublelist1.Initialize
doublelist1.AddAll(Array As String("1", "2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12"))
dpv.WheelItems1 = doublelist1
doublelist2.Initialize
doublelist2.AddAll(Array As String("Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul", "Aug", "Sep", "Oct", "Nov", "Dec"))
dpv.WheelItems2 = doublelist2
dpv.setCyclical(True, True)
dpv.setSelectedIndex(2, 3)
dpv.PickerTitle = "Double Data"
dpv.Option1TextColorOut = Colors.Green
dpv.Option1TextColorCenter = Colors.Red
dpv.Option2TextColorOut = Colors.Red
dpv.Option2TextColorCenter = Colors.Green
dpv.Option1DividerColor = Colors.Magenta
dpv.Option2DividerColor = Colors.Cyan
dpv.BtnCancelText = "QUIT"
dpv.BtnSubmitText = "GO"
dpv.BtnCancelTextColor = Colors.Black
dpv.BtnSubmitTextColor = Colors.Cyan
'************************************************************************************************************************************
triplelist1.Initialize
triplelist1.AddAll(Array As String("2010", "2011", "2012", "2013", "2014", "2015", "2016", "2017", "2018", "2019", "2020"))
triplelist2.Initialize
triplelist2.AddAll(Array As String("Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul", "Aug", "Sep", "Oct", "Nov", "Dec"))
triplelist3.Initialize
triplelist3.AddAll(Array As String("1", "2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12", "13", "14", "15", "16", "17", "18", "19", "20", "21", "22", "23", "24", "25", "26", "27", "28", "29", "30", "31"))
tpv.WheelItems1 = triplelist1
tpv.WheelItems2 = triplelist2
tpv.WheelItems3 = triplelist3
tpv.setCyclical(True, True, True)
tpv.setSelectedIndex(6, 9, 0)
tpv.PickerTitle = "Triple Data"
tpv.Option1TextColorOut = Colors.Green
tpv.Option1TextColorCenter = Colors.Red
tpv.Option2TextColorOut = Colors.Red
tpv.Option2TextColorCenter = Colors.Green
tpv.Option3TextColorOut = Colors.Blue
tpv.Option3TextColorCenter = Colors.Cyan
tpv.Option1DividerColor = Colors.Red
tpv.Option2DividerColor = Colors.Green
tpv.Option3DividerColor = Colors.Black
tpv.BtnCancelText = "NO"
tpv.BtnSubmitText = "YES"
tpv.BtnCancelTextColor = Colors.Magenta
tpv.BtnSubmitTextColor = Colors.Black
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub Button1_Click
spv.StartSinglePicker
End Sub
Sub Button2_Click
dpv.StartDoublePicker
End Sub
Sub Button3_Click
tpv.StartTriplePicker
End Sub
Sub spv_single_picker_value_selected(index As Int)
'if index = -1 then the user as clicked on CANCEL
Log("selected index = " & index)
If index <> -1 Then
Log("Selected Value = " & singlelist.Get(index))
Else
Log("User clicked on CANCEL")
End If
End Sub
Sub dpv_double_picker_values_selected(index1 As Int, index2 As Int)
'if index1 = -1 then the user as clicked on CANCEL
Log("Selected index1 = " & index1 & " Selected index2 = " & index2)
If index1 <> -1 Then
Log("Selected Value1 = " & doublelist1.Get(index1))
Log("Selected Value2 = " & doublelist2.Get(index2))
Else
Log("User clicked on CANCEL")
End If
End Sub
Sub tpv_triple_picker_values_selected(index1 As Int, index2 As Int, index3 As Int)
'if index1 = -1 then the user as clicked on CANCEL
Log("selected index1 = " & index1 & " Selected index2 = " & index2 & " Selected index3 = " & index3)
If index1 <> -1 Then
Log("Selected Value1 = " & triplelist1.Get(index1))
Log("Selected Value2 = " & triplelist2.Get(index2))
Log("Selected Value3 = " & triplelist3.Get(index3))
Else
Log("User clicked on CANCEL")
End If
End Sub
