سلام دوستان تو کد زیر ایا نیاز هست اسم برنامه رو واردش کنیم برای نظر دهی یا نیاز نداره ممنون
اگه نیاز داره بگید کجا واردش کنم اسمو
Dim r As Int 'Tarif Moteghaier
r = Msgbox2("آیا مایلید قبل از خروج به برنامه امتیاز دهید ؟ ","خروج","نه می خوام برم", "امتیاز دهی","نمی خوام برم",LoadBitmap(File.DirAssets,"favorite.ico")) 'Tarif MsgBox
If ( r = DialogResponse.POSITIVE) Then ' Age Mosbat Bood
ExitApplication ' Khoroj
End If
If ( r = DialogResponse.CANCEL) Then ' Age Cancel Bod
Try
Dim market As Intent, uri As String
uri="bazaar://details?id=com.XTools.internetirancell.free" 'Baz Kardan Bakhsh Nazarat
market.Initialize(market.ACTION_EDIT,uri)
StartActivity(market)
Catch
ToastMessageShow("لطفا ابتدا برنامه بازار را نصب کنید", False) ' age Onn Darkhast Ba moshkel movajeh shod
End Try
End If
سوال
rezamoaser 53
سلام دوستان تو کد زیر ایا نیاز هست اسم برنامه رو واردش کنیم برای نظر دهی یا نیاز نداره ممنون
اگه نیاز داره بگید کجا واردش کنم اسمو
Dim r As Int 'Tarif Moteghaier r = Msgbox2("آیا مایلید قبل از خروج به برنامه امتیاز دهید ؟ ","خروج","نه می خوام برم", "امتیاز دهی","نمی خوام برم",LoadBitmap(File.DirAssets,"favorite.ico")) 'Tarif MsgBox If ( r = DialogResponse.POSITIVE) Then ' Age Mosbat Bood ExitApplication ' Khoroj End If If ( r = DialogResponse.CANCEL) Then ' Age Cancel Bod Try Dim market As Intent, uri As String uri="bazaar://details?id=com.XTools.internetirancell.free" 'Baz Kardan Bakhsh Nazarat market.Initialize(market.ACTION_EDIT,uri) StartActivity(market) Catch ToastMessageShow("لطفا ابتدا برنامه بازار را نصب کنید", False) ' age Onn Darkhast Ba moshkel movajeh shod End Try End Ifلینک ارسال
به اشتراک گذاری در سایت های دیگر
2 پاسخ به این سوال تاکنون داده شده است
ارسال‌های توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.