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

[majid08 266]

سلام

من یه لینک عکس دارم که تو مولتی پنل اومدم با اون روش جداسازی با # دانلود کرئم و تو ایمیج ویو نمایش میدم

میخام این عکس رو در هر پنلی که نمایش میده روش کلیک شه به اشتراک بزاره عکس رو

ممنونم

[امین شاهدی 5,773]

خب میتونی از طریق تگ و عکس که تو ایمیج ویو هست رو ذخیره کنی و بعد شیر کنی نمایش بدی ، یه چیزی تو این مایه ها :

Sub img_Click
Dim send As ImageView
send=Sender
Dim bitmap1 As Bitmap
bitmap1=send.Bitmap
Dim out As OutputStream
out=File.OpenOutput(File.DirRootExternal,"sharing.png",False)
bitmap1.WriteToStream(out,100,"PNG")
Dim a As AriaLib
StartActivity( a.SharePic(File.DirRootExternal,"sharing.png","Share") )
End Sub

[majid08 266]

داداش کلیک میکنم میرم رو واتس اپ میگه اشتراک گذاری ناموفق بود

[امین شاهدی 5,773]

عکس رو چک کردین که درست سیو شده یا نه ؟

[majid08 266]

سلام

عکس دخیره شده و هیچی نشون نمیده؟!