German Auf Bilder aus der Galerie zugreifen

Dim rp As RuntimePermissions
    rp.CheckAndRequest(rp.PERMISSION_READ_EXTERNAL_STORAGE)
    Wait For Activity_PermissionResult (Permission As String, result As Boolean)
    
    Log(File.DirDefaultExternal) 'brauch ich in diesem example, weil sonst der "zulassen" dialog nicht getriggerd wird.
    
    If result = True Then
    
    Dim MB As MediaBrowser
    MB.Initialize("MB")
    Dim tmp_m As Map = MB.GetMediaImageList(True, "datetaken DESC") 'Von Neu zu Alt Sortiert
    
    'ASGallery1.xCustomListView.Clear
    ASGallery1.WildCards = "*.jpg,*.png,*.jpeg,*.bmp" 'all die extensions werden ins grid geladen   
    ASGallery1.SetAllImagesMediaStore(tmp_m,"") 'die bilder werden in das grid geladen
    
    Else
        Log("need permissions")
    End If

Dim MB As MediaBrowser
    MB.Initialize("MB")
    Dim tmp_m As Map = MB.GetMediaImageList(True, "datetaken DESC") 'Von Neu zu Alt Sortiert
    
    UND
    
    Private ImageLoader As BitmapsAsync

Dim tmp_m As Map = MB.GetMediaImageList(True, "datetaken DESC") 'Von Neu zu Alt Sortiert

Sub ASGallery1_PreviewClick(path As String,isImage As Boolean)

    'hier kannst du das bild was du angeklickt hast laden

End Sub

Sub Activity_Create(FirstTime As Boolean)
...
    Dim ImageChooser1 As ContentChooser
...
    ImageChooser1.Initialize("imgChooser1")
    ImageChooser1.show("image/*", "Choose image")
...

Sub imgChooser1_Result(Success As Boolean, Dir As String, FileName As String)
    If Success Then
        File.Copy(Dir, FileName, File.DirRootExternal, "1.png")
        Log("Filename=" & FileName)
    Else
        ToastMessageShow("Geht nicht", True)
    End If
End Sub