Sub GetImage(path As String)
Dim Cursor1 As Cursor
Dim Uri1 As Uri
Dim Proj() As String = Array As String("_data")
Dim cr As ContentResolver
cr.Initialize("")
Uri1.Parse(path)
Cursor1 = cr.Query(Uri1, Proj, "", Null, "")
Cursor1.Position = 0
Dim res As String
res = Cursor1.GetString("_data")
Cursor1.Close
Log("res=" & res)
Dim files() As String = SplitFullPath(res)
img.Bitmap = LoadBitmap(files(0), files(1))
End Sub
Sub SplitFullPath(s As String) As String()
Dim sf As StringFunctions
sf.Initialize
Dim spl As List = sf.Split(s, "/")
Dim path(2) As String
path(1) = spl.get(spl.Size - 1)
Dim rIndex As Int = s.IndexOf(path(1))
path(0) = sf.Left(s, rIndex)
Return path
End Sub