سلام کد زیرو کذاشتم که اگه کاربر امد خارج بشه نظر بده حال میخوام اگر نظر داد دفع بعد نشون داده نشه
Dim r As Int
' این قسمت مال عکسی که تو پیغام نمایش داده میشه
r = Msgbox2("آیا مایلید قبل از خروج به برنامه امتیاز دهید ؟ ","خروج","خارج می شوم", "امتیاز می دهم","خارج نمی شوم",LoadBitmap(File.DirAssets,"123.png")) 'Tarif MsgBox
If ( r = DialogResponse.POSITIVE) Then
ExitApplication
End If
If ( r = DialogResponse.CANCEL) Then
Try
Dim market As Intent, uri As String
uri="bazaar://details?id=ir.ahd2.taha" 'اینجا پکیج نیم برنامه را وارد کن من ازمایشی وارد کردم اول تست کن بعد تغییر بده
market.Initialize(market.ACTION_EDIT,uri)
StartActivity(market)
Catch
ToastMessageShow("لطفا ابتدا برنامه بازار را نصب کنید", False)
End Try
سوال
taha1371 84
سلام کد زیرو کذاشتم که اگه کاربر امد خارج بشه نظر بده حال میخوام اگر نظر داد دفع بعد نشون داده نشه
Dim r As Int ' این قسمت مال عکسی که تو پیغام نمایش داده میشه r = Msgbox2("آیا مایلید قبل از خروج به برنامه امتیاز دهید ؟ ","خروج","خارج می شوم", "امتیاز می دهم","خارج نمی شوم",LoadBitmap(File.DirAssets,"123.png")) 'Tarif MsgBox If ( r = DialogResponse.POSITIVE) Then ExitApplication End If If ( r = DialogResponse.CANCEL) Then Try Dim market As Intent, uri As String uri="bazaar://details?id=ir.ahd2.taha" 'اینجا پکیج نیم برنامه را وارد کن من ازمایشی وارد کردم اول تست کن بعد تغییر بده market.Initialize(market.ACTION_EDIT,uri) StartActivity(market) Catch ToastMessageShow("لطفا ابتدا برنامه بازار را نصب کنید", False) End Tryلینک ارسال
به اشتراک گذاری در سایت های دیگر
5 پاسخ به این سوال تاکنون داده شده است
ارسال‌های توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.