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

کتابخانه 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

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

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

یکی دیگر از قابلیت های پرکاربرد این کتابخانه این است که فایل نصب اپلیکیشن های نصب شده روی گوشی کاربر را میتوانید به اشتراک بگذارید ! برای مثال در کد زیر میخواهیم اپلیکیشن اینستاگرام را اشتراک گذاری کنیم , برای این کار از گزینه 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,"ارسال برنامه"))

 

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

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

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

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

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

 


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

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

نظر بدهید