#Region Shared Files
'#CustomBuildAction: folders ready, %WINDIR%\System32\Robocopy.exe,"..\..\Shared Files" "..\Files"
'Ctrl + click to sync files: ide://run?file=%WINDIR%\System32\Robocopy.exe&args=..\..\Shared+Files&args=..\Files&FilesSync=True
#End Region
'Ctrl + click to export as zip: ide://run?File=%B4X%\Zipper.jar&Args=Project.zip
Sub Class_Globals
Private Root As B4XView
Private xui As XUI
Private etInputTemplate As B4XInputTemplate
Private btnQuit As B4XView
Private btnSubmit As B4XView
Private etNoRemem As B4XView
Private memberID As Int
Private Dialog As B4XDialog
End Sub
Public Sub Initialize
End Sub
'This event will be called once, before the page becomes visible.
Sub B4XPage_Created (Root1 As B4XView)
Root = Root1
Root1.LoadLayout("MainPage")
Dialog.Initialize (Root)
etInputTemplate.Initialize
B4XPages.GetManager.LogEvents = True
End Sub
Sub etID_Click
etInputTemplate.ConfigureForNumbers(True, True) 'no decimals and no negatives
etInputTemplate.lblTitle.Text = "Enter your OGS ID with 1 to 4 digits - leading zeros unnecessary"
Wait For (Dialog.ShowTemplate(etInputTemplate, "OK", "", "CANCEL")) Complete (Result As Int)
If Result = xui.DialogResponse_Positive Then
Log(etInputTemplate.text)
memberID = etInputTemplate.text
Log(memberID)
End If
End Sub
Private Sub btnQuit_Click
B4XPages.GetNativeParent(Me).Finish
End Sub