این کد منوی استاندارد اشتراکگذاری اندروید را باز می‌کند؛ همان پنجره‌ای که تلگرام، واتساپ، پیامک و هر برنامه دیگری که متن قبول کند را نشان می‌دهد. Intent از نوع ACTION_SEND می‌سازیم، نوع داده را text/plain تعیین و متن ادیت باکس edtSearch را با PutExtra به Intent می‌چسبانیم. WrapAsIntentChooser عنوان دلخواه «هم‌رسانی از طریق» را بالای منو می‌گذارد. این ساده‌ترین راه اشتراکگذاری است و به هیچ مجوز یا کتابخانه‌ای نیاز ندارد.
بدون نیاز به کتابخانه جانبی (فقط کتابخانه‌های داخلی B4A)
این قطعه‌کد به‌صورت خودکار توسط «موتور مولد B4A» ساخته و قبل از انتشار از نظر تکراری‌نبودن بررسی شده است. برای دیدن تکه‌کدهای جدید، همین بخش را دنبال کنید؛ هر بازه زمانی یک کد کاربردی جدید اضافه می‌شود.
| دسته‌بندی | تکه‌کدها |
| تعداد بازدید | ۳ |
| تعداد فروش | ۰ |
| فرمت تحویل | کد نمونهٔ رایگان در همین صفحه |
| پشتیبانی | تیکت پشتیبانی در پنل کاربری |
ویژگی‌های کلیدی
- کد B4A آماده استفاده
- توضیح کامل فارسی
- کاملاً رایگان
- بدون کتابخانه جانبی
هنوز نظری ثبت نشده است. اولین نفر باشید!
برای ثبت نظر وارد شوید. (ثبت نظر پس از خرید فعال می‌شود)
Sub btnSubmit_Click
Dim share As Intent
share.Initialize(share.ACTION_SEND, "")
share.SetType("text/plain")
share.PutExtra(share.EXTRA_TEXT, edtSearch.Text)
share.WrapAsIntentChooser("هم‌رسانی از طریق")
StartActivity(share)
End Subمحصولات مشابه
پرسش‌های متداول
این تکه‌کد در چه پروژه‌ای به کار می‌آید؟
برای کارهای تکرارشوندهٔ روزمره مثل فرم، اعتبارسنجی، تاریخ و فایل. کد کوتاه است و داخل پروژهٔ خودت کپی می‌شود.
کد را چطور به پروژه اضافه کنم؟
فایل کد را باز کن و بخش لازم را در ماژول خودت بگذار. توضیح هر تکه در همان صفحه آمده است.
برای این کد پشتیبانی هم می‌دهید؟
بله. اگر کد در پروژه‌ات خطا داد، در تیکت توضیح بده تا بررسی کنیم.
آیا اشتراکگذاری متن با برنامههای دیگر در بیسیک۴اندروید — بهزبان ساده به‌روزرسانی رایگان دارد؟
بله. برای این محصول در دستهٔ تکه‌کدها به‌روزرسانی‌ها رایگان است و در پنل کاربری اطلاع داده می‌شود.