اضافه شدن به نرم افزارهای اشتراک متن در B4A

با سلام و درود به کاربرام همیشه در صحنه یاهو ۹۸ YAHOO

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

حتما دیدی موقعی که ما میخوایم یه فایلی رو به اشتراک بزاریم چندین برنامه به صورت پیش فرض باز میشن ؟

✨ نکات مهم:

• کد آماده و تست‌شده (2 قطعه‌کد)

• کار با کتابخانه‌های: JavaObject

• کپی و استفاده مستقیم در پروژه B4A

📚 کتابخانه‌های مورد نیاز:

JavaObject

(از مسیر Libraries در محیط B4A تیک بزنید.)

🚀 نحوه استفاده:

کد زیر را کپی کنید و در Sub یا ماژول مناسب پروژه خود قرار دهید؛ کتابخانه‌های اعلام‌شده را تیک بزنید.

دسته‌بندیتکه کدها
تاریخ انتشار۲۷ شهریور ۱۴۰۵ - ۰۱:۳۸
تعداد بازدید۳
تعداد فروش۰
فرمت تحویلفایل دانلودی (بعد از پرداخت آنی فعال می‌شود)
پشتیبانیتیکت پشتیبانی در پنل کاربری

ویژگی‌های کلیدی

  • تکه‌کد آماده B4A
  • کاملاً رایگان
  • کد تست‌شده با توضیح فارسی
  • کتابخانه: JavaObject

هنوز نظری ثبت نشده است. اولین نفر باشید!

برای ثبت نظر وارد شوید. (ثبت نظر پس از خرید فعال می‌شود)

B4A — کد نمونه رایگان این تکه‌کد را می‌توانید مستقیم در پروژه بیسیک۴اندروید استفاده کنید
AddActivityText(Main,
<intent-filter>
   <action android:name="android.intent.action.SEND" />
   <category android:name="android.intent.category.DEFAULT" />
   <data android:mimeType="image/*" />
</intent-filter>)

#BridgeLogger: True

Sub Process_Globals
   Private OldIntent As Intent
End Sub

Sub Globals

End Sub

Sub Activity_Create(FirstTime As Boolean)

End Sub

Sub Activity_Resume
   If IsRelevantIntent(Activity.GetStartingIntent) Then
     Dim in As JavaObject = Activity.GetStartingIntent
     Dim uri As String = in.RunMethod("getParcelableExtra", Array("android.intent.extra.STREAM"))
     Try
       Log("Loading bitmap from: " & uri)
       Dim bmp As Bitmap = LoadBitmapSample("ContentDir", uri, ۱۰۰%x, ۱۰۰%y)
       Activity.SetBackgroundImage(bmp)
     Catch
       Log(LastException)
     End Try
   End If
End Sub

Private Sub IsRelevantIntent(in As Intent) As Boolean
   If in.IsInitialized And in <> OldIntent And in.Action = in.ACTION_SEND Then
     OldIntent = in
     Return True
   End If
   Return False
End Sub
تخصصی بیسیک۴اندرویدسورس‌کد آمادهآموزش گام‌به‌گامکتابخانه‌های کاربردیتحویل آنی بعد از پرداختپشتیبانی واقعی ۲۴/۷بروزرسانی رایگان+۶۹۲ محصول فعال+۳ فروش موفق