پاسخ ها ( 2 )

  1. احمد آخوندی
    2
    ۱۳۹۹/۲/۲۶ ۱:۳۰:۰۰
    پاسخ

    سلام

    ابتدا نیاز دارید تا دسترسی زیر رو به AndroidManifest اضافه کنید:

    ۱
    ۲
    ۳
    ۴
    ۵
    ۶
    ۷
    ۸
    ۹
    ۱۰
    AddManifestText(
    <uses-sdk android:minSdkVersion="۴" android:targetSdkVersion="۱۴"/>
    <uses-permission android:name="com.android.launcher.permission.INSTALL_SHORTCUT"/>
    <supports-screens android:largeScreens="true"
        android:normalScreens="true"
        android:smallScreens="true"
        android:anyDensity="true"/>)
    SetApplicationAttribute(android:icon, "@drawable/icon")
    SetApplicationAttribute(android:label, "$LABEL$")
    'End of default text.

    سپس نیاز به ساخت یک ساب و تعریف چند متغیر دارید، کتابخانه Phone و Core را باید به برنامه اضافه کنید، که در نهایت کدهای اکتویتی به شکل زیر میشود:

    ۱
    ۲
    ۳
    ۴
    ۵
    ۶
    ۷
    ۸
    ۹
    ۱۰
    ۱۱
    ۱۲
    ۱۳
    ۱۴
    ۱۵
    ۱۶
    ۱۷
    ۱۸
    ۱۹
    ۲۰
    ۲۱
    ۲۲
    ۲۳
    ۲۴
    ۲۵
    ۲۶
    ۲۷
    ۲۸
    ۲۹
    ۳۰
    ۳۱
    ۳۲
    ۳۳
    ۳۴
    ۳۵
    ۳۶
    ۳۷
    ۳۸
    ۳۹
    ۴۰
    ۴۱
    ۴۲
    ۴۳
    ۴۴
    ۴۵
    ۴۶
    ۴۷
    ۴۸
    ۴۹
    ۵۰
    ۵۱
    ۵۲
    #Region  Project Attributes
        #FullScreen: False
        #IncludeTitle: True
        #ApplicationLabel: My App
        #VersionCode: 1
        #VersionName:
        #SupportedOrientations: unspecified
        #CanInstallToExternalStorage: False
        '#DebuggerForceStandardAssets: true
    #End Region
     
    #Region  Activity Attributes
        #FullScreen: False
        #IncludeTitle: True
    #End Region
     
    Sub Process_Globals
    End Sub
     
    Sub Globals
        Private CreateShortcut As Button
    End Sub
     
    Sub Activity_Create(FirstTime As Boolean)
        Activity.LoadLayout("myappmain")
    End Sub
     
    Sub Activity_Resume
    End Sub
     
    Sub Activity_Pause (UserClosed As Boolean)
    End Sub
     
    Sub CreateShortCut_Click
     
        Dim shortcutIntent As Intent
        shortcutIntent.Initialize("", "")
        shortcutIntent.SetComponent("My.App/.main") '<------change My.App for your own app file name here, like "My.Game", look into Tools, Build Configurations for your app's name
     
        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", "My App") '<-----Type here the name of the shortcut, "My App" for "Your App"
        in.PutExtra("android.intent.extra.shortcut.ICON", LoadBitmap(File.DirAssets, "color01.png")) '<----your app image here, "color01.png" for "yourpic.png"
        in.Action = "com.android.launcher.action.INSTALL_SHORTCUT"
     
        Dim p As Phone
        p.SendBroadcastIntent(in)
        DoEvents
    End Sub

    منبع

    موفق باشید.

    بهترین پاسخ
  2. hamed
    0
    ۱۳۹۹/۲/۲۶ ۱۵:۴۸:۵۶
    پاسخ

    سلام خداقوت
    ممنونم از پاسختون
    ولی برای من کار نکرد و ایکون برنامه پس از نصب به صفحه اصلی اضافه نشد

    🙁

     

ارسال یک پاسخ