#Region Project Attributes
#ApplicationLabel: Prueba Carga Imagen
#VersionCode: 1
#VersionName:
'SupportedOrientations possible values: unspecified, landscape or portrait.
#SupportedOrientations: unspecified
#CanInstallToExternalStorage: False
#End Region
#Region Activity Attributes
#FullScreen: False
#IncludeTitle: True
#End Region
Sub Process_Globals
Dim rp As RuntimePermissions
End Sub
Sub Globals
Private ImageView1 As ImageView
End Sub
Sub Activity_Create(FirstTime As Boolean)
'Activity.LoadLayout("Layout1")
'**** The Download folder is the default folder that brings Android to download is in the external storage of the phone, not in the external sd card.****
ImageView1.Initialize("ImageView1")
'ImageView1.Bitmap = LoadBitmap(File.DirRootExternal & "/Download", "alexandra.gif" ) 'This line works with the api 22 maximum.
Log(rp.GetAllSafeDirsExternal(""))
ImageView1.Bitmap = LoadBitmap(rp.GetSafeDirDefaultExternal("Download"), "alexandra.gif") 'This line does not work with api 23+.
ImageView1.Gravity = Gravity.FILL
Activity.AddView(ImageView1,10dip, 10dip, 100%x, 100%y)
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub