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

[MR.B4A 252]

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

ابتدا این کدهای جاوا را بین دوساب اضافه میکنید:

#If java
import android.content.Context;
import android.content.pm.ApplicationInfo;
import android.content.pm.PackageManager;

public String getApk() {
    try {
        Context context = BA.applicationContext;
        PackageManager pm = context.getPackageManager();
        ApplicationInfo ai = pm.getApplicationInfo(context.getPackageName(), 0);
        return ai.publicSourceDir;
    } catch (Exception e) {
        BA.Log("ShareApp" + e.getMessage());
    }
    return null;
}
#End If

در ادامه این کدها را در رویدادی که میخواهید بنویسید:

Private Sub btn_share_Click
	Dim jo As JavaObject
	jo.InitializeContext
	Dim patch As String=jo.RunMethod("getApk",Null)
	Dim i As Intent
	i.Initialize(i.ACTION_SEND, "")
	i.SetType("application/vnd.android.package-archive")
	Dim fil As PersianFileProvider
	Dim j As JavaObject = i
	Dim uri As Uri=fil.GetUriFromFile(patch)
	j.RunMethod("putExtra", Array("android.intent.extra.STREAM", uri))
	i.WrapAsIntentChooser("به اشتراک بگذارید !")
	StartActivity(i)
End Sub

طراح و تهیه کننده:
مرتضی صباغی
MR.B4A

https://eitaa.com/basic4androidlan

https://t.me/programmingwithb4a