درود دوستان
کتابخانه phone رو تیک بزنید
ی دکمه و ی ایمیج ویو به لی اوت اضافه کنید
داخل رویداد کلیک دکمه کد زیر رو قرار بدید
Sub Button1_Click
Dim selectedimage As ContentChooser
selectedimage.Initialize("imgChooser")
selectedimage.show("image/*", "Choose image")
End Sub
و ساب زیر رو هم به ته اکتویتی تون اضافه کنید :
Sub imgChooser_Result(Success As Boolean, Dir As String, FileName As String)
If Success Then
ImageView1.Bitmap = LoadBitmap(Dir, FileName)
ImageView1.Gravity = Gravity.FILL
Else
ToastMessageShow("Nessuna Immagine Selezionata", True)
End If
End Sub
به همین راحتی عکس از گالری به ایمیج ویو منتقل میشه
