Sub Globals
Dim VerGaleriaFotos As ContentChooser
Dim ImagenSeleccionada as String
Dim DirSeleccionado as String
..........
..........
Sub Activity_Create(FirstTime As Boolean)
VerGaleriaFotos.Initialize("EventoGaleriaFotos")
...............
..........
ImageView1_Click
' Click de tu imagen
Try
VerGaleriaFotos.Show("image/ *jpeg","Seleccione Imagen")
Catch
Log("Error al cargar galeria")
End Try
end sub
Sub EventoGaleriaFotos_Result (Success As Boolean, Dir As String, FileName As String)
Log("EventoGaleriaFotos_Result Success: " & Success)
If Success = False Then Return ' no se seleccionó imagen
Log("Dir " & Dir) ' Directorio de la imagen
Log("FileName " & FileName) ' Nombre del fichero
' ya puedes emplearlo en cualquier sitio
ImagenSeleccionada = FileName
DirSeleccionado = Dir
End Sub