رفتن به مطلب
  • 0

بدست آوردن آدرس عکس از ImageView


mehran7880

سوال

سلام. خسته نباشید

من دنبال این بودم که بتونم از طریق گالری عکسی رو انتخاب کنم و به ImageView انتقال بدم بعد همین عکس رو در بانک اطلاعاتی ذخیره کنم. جست و جو کردم و هر دو رو پیدا کردم و توسط کد زیر عکس را وارد ImageView می کنم:

Sub btnOpen_Click
	Dim PicChooser As ContentChooser
	PicChooser.Initialize("PicChooser")
	PicChooser.Show("image/*", "یک عکس انتخاب کنید")
End Sub

Sub PicChooser_Result(Success As Boolean, Dir As String, FileName As String)
	If Success = True Then
		Dim inp As InputStream
		Msgbox(FileName,1)
		inp = File.OpenInput(Dir, FileName)
		Dim btm As Bitmap
		btm.Initialize2(inp)
		ImageView1.SetBackgroundImage(btm)
	Else
		ToastMessageShow("انجام نشد، دوباره تلاش کنید", True)
	End If
End Sub

ولی حاالا مشکلی که دارم نمی تونم آدرس عکس رو پیدا کنم. من با msgbox از متغیر های Dir,FileName,inp,btm خروجی گرفتم ولی هیچکدوم آدرس عکس نیست تتا به تابع ذخیره در بانک اطلاعاتی بدم. لطفا راهنماییم کنید. ممنون

لینک ارسال
به اشتراک گذاری در سایت های دیگر

1 پاسخ به این سوال تاکنون داده شده است

ارسال های توصیه شده

بایگانی شده

این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.

مهمان
این موضوع برای عدم ارسال قفل گردیده است.
  • کاربران آنلاین در این صفحه   0 کاربر

    • هیچ کاربر عضوی،در حال مشاهده این صفحه نیست.
×
×
  • اضافه کردن...