اشتراک عکس

[reza644 435]

سلام چجور میشه واسه ایمیج ویو امکان اشتراک گذاشت؟

 

ایمیج ویو هم محتواش اینجوریه

imageview1.SetBackgroundImage(LoadBitmap(File.DirAssets,"nas ("&nm&").jpg"))

[Kazem Forghani 2,927]

با این کد:

Dim b As Bitmap
b = ImageView1.Bitmap
Dim out As OutputStream
out = File.OpenOutput(File.DirDefaultExternal, "1.jpg", False)
b.WriteToStream(out, 100, "JPEG")
out.Close
Dim a As AriaLib
StartActivity(a.SharePic(File.DirDefaultExternal,"1.jpg","اشتراک گذاری با :"))

کتابخانه AriaLib هم لازمه!

[مجید آرتا 5,874]

خب شما کافیه ImageView1.Bitmap  رو توی یک متغییری از نوع Bitmap  بریزید