Sub Process_Globals
'These global variables will be declared once when the application starts.
'Public variables can be accessed from all modules.
Public App As Application
Public NavControl As NavigationController
Private Page1 As Page
Type Rodovias(Nome As String,NumRodovia As String, Cameras As String,Telefone As String,Imagem As String,act As String)
End Sub
Private Sub Application_Start (Nav As NavigationController)
NavControl = Nav
Page1.Initialize("Page1")
Page1.Title = "Page 1"
Page1.RootPanel.Color = Colors.White
NavControl.ShowPage(Page1)
Dim MyTypeArray() As Rodovias = Array As Rodovias(CreateMyType("Rodovia dos Tamoios","7","SP-99","0800-055-5510","img_tamoios.png", "Tamoios2"))
For x = 0 To MyTypeArray.Length -1
Log(MyTypeArray(x))
Next
End Sub
Sub CreateMyType (Nome1 As String,NumRodovia2 As String, Cameras3 As String,Telefone4 As String,Imagem5 As String,act6 As String) As Rodovias
Dim arrRodovias As Rodovias
arrRodovias.Initialize
arrRodovias.Nome = Nome1
arrRodovias.Cameras = NumRodovia2
arrRodovias.NumRodovia = Cameras3
arrRodovias.Telefone = Telefone4
arrRodovias.Imagem = Imagem5
arrRodovias.act = act6
Return arrRodovias
End Sub