با سلام
دوستان عزیز برنامه ای نوشتم که در آن پس از نصب میان بری روی صفحه نمایش ایجاد میشه تا این جا مشکلی در گوشی ها ندیدم اما برایم بسیار مهم است که پس از حذف برنامه توسط کاربر، این میان بر هم حذف شود.
مشکل این جاست که در بعضی گوشی ها این کار انجام نمی شود. فکر می کنید مشکل کجاست؟
از اجازه نامه زیر در مانیفست استفاده می کنم:
Dim shortcutIntent As Intent
shortcutIntent.Initialize("", "")
shortcutIntent.Action=shortcutIntent.ACTION_MAIN
shortcutIntent.SetComponent("b4a.example4/.main")
Dim in As Intent
in.Initialize("", "")
in.PutExtra("duplicate",False)
in.PutExtra("android.intent.extra.shortcut.INTENT", shortcutIntent)
in.PutExtra("android.intent.extra.shortcut.NAME", "nam")
in.PutExtra("android.intent.extra.shortcut.ICON", LoadBitmap(File.DirAssets,"ic_android.png"))
in.Action = "com.android.launcher.action.INSTALL_SHORTCUT"
Dim p As Phone
p.SendBroadcastIntent(in)
DoEvents
سوال
mahdy mofidy 0
با سلام
دوستان عزیز برنامه ای نوشتم که در آن پس از نصب میان بری روی صفحه نمایش ایجاد میشه تا این جا مشکلی در گوشی ها ندیدم اما برایم بسیار مهم است که پس از حذف برنامه توسط کاربر، این میان بر هم حذف شود.
مشکل این جاست که در بعضی گوشی ها این کار انجام نمی شود. فکر می کنید مشکل کجاست؟
از اجازه نامه زیر در مانیفست استفاده می کنم:
و از کدهای زیر در b4a (در Activity_Create)
Dim shortcutIntent As Intent shortcutIntent.Initialize("", "") shortcutIntent.Action=shortcutIntent.ACTION_MAIN shortcutIntent.SetComponent("b4a.example4/.main") Dim in As Intent in.Initialize("", "") in.PutExtra("duplicate",False) in.PutExtra("android.intent.extra.shortcut.INTENT", shortcutIntent) in.PutExtra("android.intent.extra.shortcut.NAME", "nam") in.PutExtra("android.intent.extra.shortcut.ICON", LoadBitmap(File.DirAssets,"ic_android.png")) in.Action = "com.android.launcher.action.INSTALL_SHORTCUT" Dim p As Phone p.SendBroadcastIntent(in) DoEvents
ممنون می شوم راهنمایی بفرمایید.
لینک ارسال
به اشتراک گذاری در سایت های دیگر
6 پاسخ به این سوال تاکنون داده شده است
ارسالهای توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.