اموزش ساخت ShortCut برای برنامه

[Elyas Erfani 3,582]

سلام

 

اموزش متنی ساخت ShortCut یا میانبر برای برنامه به طور خودکار پس از اجرای برنامه

 

کتابخانه های Phone و PrefrenceActivity رو فعال کنید

 

در اکتیویتی کریت :

        Dim PrefMgr As PreferenceManager
   If PrefMgr.GetBoolean("shortcutinstalled") Then
      Return
   End If
   Dim shortcutIntent As Intent
   shortcutIntent.Initialize("", "")
   shortcutIntent.SetComponent("PACKAGE_NAME/.main") 
   Dim In As Intent
   In.Initialize("", "")
   In.PutExtra("android.intent.extra.shortcut.INTENT", shortcutIntent)
   In.PutExtra("android.intent.extra.shortcut.NAME", "Esme Barname")
        In.PutExtra("android.intent.extra.shortcut.ICON", LoadBitmap(File.DirAssets, "icone shortcut.jpg")) 
   In.Action = "com.android.launcher.action.INSTALL_SHORTCUT"
   Dim p As Phone
   p.SendBroadcastIntent(In)
   DoEvents
   PrefMgr.SetBoolean("shortcutinstalled", True)

ابتدا متغیرمون رو تعریف میکنیم

 

سپس با استفاده از اینتنت و کدهای بالا میایم پکیج نیم برنامه رو قرار میدیم

 

در قسمت :

 In.PutExtra("android.intent.extra.shortcut.ICON", LoadBitmap(File.DirAssets, "2.jpg")) 

ایکونیو ک میخوایم به عنوان ShortCut نمایش بده از بیسیک داخل DirAssets ادد میکنیم و ادرسشو میدیم

 

و در قسمت :

   In.PutExtra("android.intent.extra.shortcut.NAME", "Esme Barname")

اسم برناممون رو قرار میدیم 

 

 

و در پایان هم در Activity_Resume :

	Dim In As Intent
	In = Activity.GetStartingIntent
	Log(In)
	If In.HasExtra("from_shortcut") And In.GetExtra("from_shortcut") = True Then
		Msgbox("Launched from shortcut", "")
	End If

موفق باشید