page.Msgbox2("DOWNL","Download the Android Mobile App","Get Device Application","Download","Cancel",False,ABM.MSGBOX_TYPE_QUESTION,False,ABM.MSGBOX_POS_CENTER_CENTER,"")
' then the result code....
Sub page_MsgboxResult(returnName As String, result As String)
Dim dirf As ABMLabel = page.Component("dirf")
If result = ABM.MSGBOX_RESULT_OK Then
Log(" OK was pressed Return name "&returnName&" result: "&result)
End If
Select Case returnName
Case "DOWNL"
Log(" what is result: "&result)
Select Case result
Case "abmok"
Dim add As String = "../../apks/tinspect.apk"
ws.Eval("window.location = arguments[0]", Array As Object(add))
ws.Flush
Log("tried to download")
End Select
Case "ECMH"
Select Case result
Case "abmok"
If dirname.Length > 2 Then
Main.histecmFolder = dirname
dirf.Text = "HISTORIC ECM Folder: "&CRLF& Main.histecmFolder
dirf.Refresh
Else
page.Msgbox("ms1","ERROR!!!","No History Record Selected!","Return",False,ABM.MSGBOX_POS_CENTER_CENTER,"")
End If
End Select
Case "ECMC"
Select Case result
Case "abmok"
Main.histecmFolder = Main.ecmFolder
dirf.Text = "Current ECM Folder: "&CRLF&Main.histecmFolder
dirf.Refresh
End Select
End Select
End Sub