سورس آماده اشتراک‌گذاری عنوان و متن با هم (قالب آماده) — مینیمال و کاربردی

گاهی می‌خواهید متن اشتراک‌گذاری ساختار داشته باشد؛ اینجا قبل از ارسال، یک رشته قالب‌بندی‌شده می‌سازیم که عنوان از edtData می‌آید، با CRLF به خط بعد می‌رود و یک امضای ثابت «از اپلیک

توضیحات محصول

گاهی می‌خواهید متن اشتراک‌گذاری ساختار داشته باشد؛ اینجا قبل از ارسال، یک رشته قالب‌بندی‌شده می‌سازیم که عنوان از 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