گاهی میخواهید متن اشتراکگذاری ساختار داشته باشد؛ اینجا قبل از ارسال، یک رشته قالببندیشده میسازیم که عنوان از edtData میآید، با CRLF به خط بعد میرود و یک امضای ثابت «از اپلیکیشن ما» هم ته آن اضافه میشود. این دقیقاً همان کاری است که اپهای خبری و فروشگاهی برای دکمه «اشتراکگذاری خبر» میکنند. چون رشته را اول در متغیر میسازیم، بعداً اضافهکردن لینک یا قیمت هم فقط یک خط تغییر است و خوانایی کد بالا میماند.
بدون نیاز به کتابخانه جانبی (فقط کتابخانههای داخلی B4A)
این قطعهکد بهصورت خودکار توسط «موتور مولد B4A» ساخته و قبل از انتشار از نظر تکرارینبودن بررسی شده است. برای دیدن تکهکدهای جدید، همین بخش را دنبال کنید؛ هر بازه زمانی یک کد کاربردی جدید اضافه میشود.
| دستهبندی | تکه کدها |
| تعداد بازدید | ۰ |
| تعداد فروش | ۰ |
| فرمت تحویل | فایل دانلودی (بعد از پرداخت آنی فعال میشود) |
| پشتیبانی | تیکت پشتیبانی در پنل کاربری |
ویژگیهای کلیدی
- کد B4A آماده استفاده
- توضیح کامل فارسی
- کاملاً رایگان
- بدون کتابخانه جانبی
هنوز نظری ثبت نشده است. اولین نفر باشید!
برای ثبت نظر وارد شوید. (ثبت نظر پس از خرید فعال میشود)
Sub btnStart_Click
Dim share As Intent
share.Initialize(share.ACTION_SEND, "")
share.SetType("text/plain")
Dim msg As String = "عنوان: " & edtData.Text & CRLF & "از اپلیکیشن ما"
share.PutExtra(share.EXTRA_TEXT, msg)
share.WrapAsIntentChooser("اشتراکگذاری با")
StartActivity(share)
End Sub