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

[mohammad1997 0]

سلام دوستان 

من تو برنامه یه دکمه گذاشتم که کاربر میتونه بازدن اون، برنامه رو به اشتراک بزاره 

 

از کتابخونه AriaLib و از این کدها استفاده کردم :

Sub ImageView2_Click

 

   Dim a As AriaLib

  (("StartActivity( a.ShareApplication("b4a.dezfull","share

   

End Sub 

 

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

لطفا بگین چیکار کنم 

 

 

[Elyas Erfani 3,582]

سلام

 

میتونید با کتابخانه MESShareLibrary هم برنامه رو به اشتراک بگذارید

Dim share As MESShareLibrary
share.sharebinary("file://" & File.DirRootExternal & "/com.xxx.yyy.zip", "application/zip", "Share with", "")

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

سلام دوستان 

من تو برنامه یه دکمه گذاشتم که کاربر میتونه بازدن اون، برنامه رو به اشتراک بزاره 

 

از کتابخونه AriaLib و از این کدها استفاده کردم :

Sub ImageView2_Click

 

   Dim a As AriaLib

  (("StartActivity( a.ShareApplication("b4a.dezfull","share

   

End Sub 

 

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

لطفا بگین چیکار کنم 

 

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