هدف اجرای یک نوتیفیکیشن برای رتبه دادن به برنامه در بازار هست پس از خروج از برنامه (مشابه برنامه تلوبیون)
دوستان من یک کد برای این کار نوشتم ولی مشکلی داره، از بخش رتبه دادن خارج نمیشه! چطور میشه مشکل برطرف کرد؟
#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
هدف اجرای یک نوتیفیکیشن برای رتبه دادن به برنامه در بازار هست پس از خروج از برنامه (مشابه برنامه تلوبیون)
دوستان من یک کد برای این کار نوشتم ولی مشکلی داره، از بخش رتبه دادن خارج نمیشه! چطور میشه مشکل برطرف کرد؟
#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لینک ارسال
به اشتراک گذاری در سایت های دیگر
6 پاسخ به این سوال تاکنون داده شده است
ارسالهای توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.