Sub Activity_Create(FirstTime As Boolean)
'Do not forget to load the layout file created with the visual designer. For example:
'Activity.LoadLayout("Layout1")
Dim selectedimage As ContentChooser
selectedimage.Initialize("imgChooser")
selectedimage.show("image/*", "Choose image")
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub imgChooser1_Result(Success As Boolean, Dir As String, FileName As String)
If Success Then
Dim B As Bitmap = LoadBitmap(Dir, FileName)
' other inform
' File.Size(Dir, FileName) ' ecc..
Else
ToastMessageShow("Nessuna Immagine Selezionata", True)
End If
End Sub