هدف اجرای یک نوتیفیکیشن برای رتبه دادن به برنامه در بازار هست پس از خروج از برنامه (مشابه برنامه تلوبیون)
دوستان من یک کد برای این کار نوشتم ولی مشکلی داره، از بخش رتبه دادن خارج نمیشه! چطور میشه مشکل برطرف کرد؟
#Region Module Attributes
#FullScreen: False
#IncludeTitle: True
#ApplicationLabel: Basic4android.org
#VersionCode: 1
#VersionName:
#SupportedOrientations: unspecified
#CanInstallToExternalStorage: False
#End Region
Sub Process_Globals
Dim noti As Notification
End Sub
Sub Globals
Private Label1 As Label
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("Main")
noti.Initialize
noti.Light = False
noti.vibrate = False
noti.OnGoingEvent = True
noti.Sound = False
noti.Icon = "icon"
noti.SetInfo2("حمایت از ما","جهت حمایت از ما امتیاز دهید","mytag",Me)
End Sub
Sub Activity_Resume
Dim selectednoti As String
Dim inte As Intent
inte = Activity.GetStartingIntent
If inte.HasExtra("Notification_Tag") Then
selectednoti = inte.GetExtra("Notification_Tag")
End If
If selectednoti = "mytag" Then
Dim oIntent As Intent
oIntent.Initialize(oIntent.ACTiON_EDIT,"http://cafebazaar.ir/app/?id=ir.pack")
StartActivity(oIntent)
End If
End Sub
Sub Activity_KeyPress (KeyCode As Int) As Boolean
If KeyCode = KeyCodes.KEYCODE_BACK Then
Dim result As Int
result = Msgbox2("آیا مایلید از برنامه خارج شوید؟","خروج از برنامه","بله","خیر","",Null)
If result=DialogResponse.POSITIVE Then
noti.Notify(1)
ExitApplication
Else
Return True
End If
End If
If KeyCode = KeyCodes.KEYCODE_MENU Then
Return True
End If
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
سوال
erayan 23
هدف اجرای یک نوتیفیکیشن برای رتبه دادن به برنامه در بازار هست پس از خروج از برنامه (مشابه برنامه تلوبیون)
دوستان من یک کد برای این کار نوشتم ولی مشکلی داره، از بخش رتبه دادن خارج نمیشه! چطور میشه مشکل برطرف کرد؟
لینک ارسال
به اشتراک گذاری در سایت های دیگر
6 پاسخ به این سوال تاکنون داده شده است
ارسالهای توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.