Sub Process_Globals
Public App As Application
Public NavControl As NavigationController
Private Page1 As Page
Private di As DocumentInteraction
End Sub
Private Sub Application_Start (Nav As NavigationController)
NavControl = Nav
Page1.Initialize("Page1")
Page1.RootPanel.Color = Colors.Green
NavControl.ShowPage(Page1)
di.Initialize("di", File.DirAssets, "Workbook.xls") '<--- open a file from the assets folder
End Sub
Sub Page1_Click
di.OpenFile(Page1.RootPanel)
End Sub
Sub di_Closed
Log("Dialog closed")
End Sub
Sub di_SendingFile
Log("Opening file")
End Sub