'Code module
#Region Project Attributes
#ApplicationLabel: B4i Example
#Version: 1.0.0
'Orientation possible values: Portrait, LandscapeLeft, LandscapeRight and PortraitUpsideDown
#iPhoneOrientations: Portrait, LandscapeLeft, LandscapeRight
#iPadOrientations: Portrait, LandscapeLeft, LandscapeRight, PortraitUpsideDown
#Target: iPhone, iPad
#ATSEnabled: True
#MinVersion: 8
#End Region
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
Private xui As XUI
End Sub
Private Sub Application_Start (Nav As NavigationController)
NavControl = Nav
Page1.Initialize("Page1")
Page1.RootPanel.LoadLayout("Page1")
NavControl.ShowPage(Page1)
End Sub
Sub Button1_Click
xui.MsgboxAsync("Hello world!", "B4X")
End Sub
Private Sub Page1_Resize(Width As Int, Height As Int)
End Sub
Sub Page1_Click
Dim avc As ActivityViewController
avc.Initialize("avc", Array(CreateFileUrl(File.DirLibrary, "1.pdf")))
avc.Show(Page1, Page1.RootPanel)
End Sub
'Doesn't work with assets files. You must first copy them.
Sub CreateFileUrl (Dir As String, FileName As String) As Object
Dim no As NativeObject
no = no.Initialize("NSURL").RunMethod("fileURLWithPath:", Array(File.Combine(Dir, FileName)))
Return no
End Sub
Sub avc_Complete (Success As Boolean, ActivityType As String)
Log($"Success: ${Success}, ActivityType: ${ActivityType}"$)
End Sub
'Sub Page1_Click
' Dim avc As ActivityViewController
' avc.Initialize("avc", Array("Some text to share together with an image", LoadBitmap(File.DirAssets, "smiley.png")))
' avc.Show(Page1, Page1.RootPanel) 'Second parameter is relevant for iPad only. The arrow will point to the view.
'End Sub
'
'Sub avc_Complete (Success As Boolean, ActivityType As String)
' Log($"Success: ${Success}, ActivityType: ${ActivityType}"$)
'End Sub