Sub btnPicture_Click
Dim Chooser As ContentChooser
If Chooser.IsInitialized = False Then
Chooser.Initialize("chooser")
End If
Chooser.Show("image/*", "Select an image")
End Sub
Sub chooser_Result (Success As Boolean, Dir As String, FileName As String)
If Success Then
PictureName = FileName
PictureDir = Dir
Log(">" & PictureDir & ">" )
Log(">" & PictureName & ">" )
imgPicture.SetBackgroundImage(LoadBitmap(PictureDir,PictureName))
Else
ToastMessageShow("No image selected", True)
End If
End Sub