تصویر پس زمینه و دکمه اشتراک

[nany12 623]

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

راهنمایی میکنید؟

موضوع بعد اینکه میخوام با زدن دکمه دیگه همون عکسو بتونو به اشتراک گزاری در بیاره.

کدش رو میتونید بدید؟

با تشکر

[Alireza.Ghafari 2,104]

با درود، پس زمینه رو با کتابخانه student هم میشه تغییر داد ولی دسترسی اضافی به برنامه میده که مانع انتشار میشه ! به این دلیل من از راه دیگه آموزش میدم

تغییر پس زمینه :

اول از همیه این کد رو در مانیفست (maniferst) قرار میدی و کتابخانه Reflector فعال میکنی :

AddPermission(android.permission.INTERNET)

و بعد این ساب رو ایجاد میکنی :

sub SetWallPaper(Bmp As Bitmap)
  Dim r As Reflector
  r.Target = r.RunStaticMethod("android.app.WallpaperManager", "getInstance", _
     Array As Object(r.GetContext), Array As String("android.content.Context"))
  r.RunMethod4("setBitmap", Array As Object(Bmp), Array As String("android.graphics.Bitmap"))
End Sub 

حالا با این کد میتونی بگی که فلان عکس رو از پوشه files بردار و تصویر زمینه کن :

SetWallPaper(LoadBitmap(File.DirAssets, "عکس"))
ToastMessageShow("تصویر زمینه دستگاه تغییر کرد !",False)

این برای تصویر زمینه بود ........

این هم برای اشتراک گذاری عکس :

کتابخانه MESShareLibrary فعال کن و با کد زیر اشتراک گذاری کن :

اونو معرفی کن :

Dim share As MESShareLibrary

اینم برای اشتراک گذاری :

File.Copy(File.DirAssets,"عکس شما",File.DirRootExternal,"عکس شما")
   share.sharebinary("file://"&File.DirRootExternal&"/عکس شما","image/jpg","ارسال به ...","","")

در خط اول گفتیم عکس رو از files بردار و کپی کن و در خط بعد هم اشتراک گذاری.

امیدوارم مفید بوده باشه....

یا حق

[nany12 623]

کتابخونه MESShareLibrary رو داری؟

میتونی بفرستی

[Alireza.Ghafari 2,104]

کتابخونه MESShareLibrary رو داری؟

میتونی بفرستی

سرچ بزنید تو انجمن یا گوگل هست.

[nany12 623]

پیدا نیست اگه خودت داری بیزحمت پیوست کن

[Alireza.Ghafari 2,104]

پیدا نیست اگه خودت داری بیزحمت پیوست کن

بفرمایید : www.basic4android.org/attachments/482d1416240016-messharelibrary-d1.zip