YAHOO98

درود دوستان

کتابخانه 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

به همین راحتی عکس از گالری به ایمیج ویو منتقل میشه