آموزش Basic4Android سورس ها و کتابخانه ها

کتابخانه BasicShare

بنام خدا و با عرض سلام خدمت شما دوستان عزیز !

در این بخش کتابخانه ای را آماده نموده ایم که با استفاده از هر چیزی را میتوانید اشتراک گذاری کنید !

 ارسال متن :

ساده ترین کاری که میتوان با این کتابخانه انجام داد , اشتراک گذاری متن میباشد ! برای این کار متغیر مربوط به این کتابخانه را در پروژه مورد نظرتان تعریف کنید و بعد از Initialize با استفاده از گزینه ShareText متن مورد نظرتان را به اشتراک بگذارید !

Dim bs As BasicShare
bs.Initialize
StartActivity(bs.ShareText("Your Text !","ارسال متن"))

در کد بالا به جای “Your Text !” متن مورد نظرتان را قرار دهید و برای متن های طولانی میتوانید از String استفاده کنید , به جای “ارسال متن” میتوانید عنوانی را که در کادر اشتراک گذاری متن نمایش داده میشود را تغییر دهید .

 ارسال فایل :

یکی دیگر از قابلیت های این کتابخانه این است که هر نوع فایلی را میتوانید اشتراک گذاری کنید و مهم نیست که فرمت فایل چگونه باشد ! ولی به صورت مستقیم از DirAssets نمیتوانید فایلی را اشتراک گذاری کنید و باید ابتدا فایل مورد نظرتان را در DirRootExternal ( حافظه اصلی گوشی ) کپی کنید :

File.Copy(File.DirAssets,"File.txt",File.DirRootExternal,"File.txt")

و برای اشتراک گذاری آن از گزینه ShareFile استفاده کنید :

Dim bs As BasicShare
bs.Initialize
StartActivity(bs.ShareFile(File.DirRootExternal,"File.txt","Title")

در کد های بالا به جای “File.txt” نام فایل مورد نظرتان را قرار دهید و به جای “Title” هم متنی را که میخواهید در کادر اشتراک گذاری فایل نمایش داده شود را قرار دهید .

با این کار ابتدا فایل در حافظه اصلی گوشی کاربر کپی میشود و بعد از آن کادر اشتراک گذاری فایل نمایش داده میشود . در صورتی که میخواهید بعد از اشتراک گذاری , فایل از حافظه اصلی گوشی حذف شود کافیست در بخش Activity_Resume این کار را انجام دهید :

Sub Activity_Resume
 If File.Exists(File.DirRootExternal,"File.txt") Then
  File.Delete(File.DirRootExternal,"File.txt")
 End If
End Sub

در واقع با این کد وقتی کاربر فایل را اشتراک گذاری میکند و بعد از آن مجددا به برنامه باز میگردد فایل حذف میشود .

مطلب پیشنهادی :   کار با حافظه Clipboard در برنامه

 ارسال برنامه :

یکی دیگر از قابلیت های پرکاربرد این کتابخانه این است که فایل نصب اپلیکیشن های نصب شده روی گوشی کاربر را میتوانید به اشتراک بگذارید ! برای مثال در کد زیر میخواهیم اپلیکیشن اینستاگرام را اشتراک گذاری کنیم , برای این کار از گزینه ShareApp استفاده میکنیم و نام پکیج برنامه مورد نظرمان را وارد میکنیم و این کد در صورتی به درستی کار میکند که اپلیکیشن مورد نظر شما در گوشی کاربر نصب شده باشد :

Dim bs As BasicShare
bs.Initialize
StartActivity(bs.ShareApp("com.instagram.android","ارسال برنامه"))

در صورتی هم که میخواهید برنامه خودتان را اشتراک گذاری کنید کافیست به جای نام پکیج از دستور Application.PackageName استفاده کنید :

Dim bs As BasicShare
bs.Initialize
StartActivity(bs.ShareApp(Application.PackageName,"ارسال برنامه"))

 

 دانلود کتابخانه :

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

دانلود کتابخانه + سورس

این هم از ششمین کتابخانه اختصاصی از وبسایت بیسیک اپ !

منتظر نظرات و پیشنهادات شما عزیزان هستیم !

 

شما هم به کانال تلگرامی سایت ما بپیوندید !
همین حالا کلیک کنید !

درباره نویسنده

حامد باقری

یک نظر

  • سلام.با این کتابخونه می خواهم چند موزیک که از طریق دیتابیس لود می شود را به اشتراک بگذارم.لطفا کدش را بفرستید.
    در ضمن موزیک ها در یک پوشه قسمت Files درون پروژه می باشند.

نظر بدهید