سلام من کد زیروقتی میزارم تو اکتیویتی یه مشکل هست که دیگه دکمه صدا گوشی داخل همون اکتیویتی کار نمیکنه
ولی وقتی برش میدارم کار میکنه باید چه کار کنم که کار کنه
Dim r As Int If KeyCode = KeyCodes.KEYCODE_BACK Then Dim r As Int r = Msgbox2("کوچولو میخوای بری ؟ ","خروج","آره خسته شدم", "امتیاز می دهم","نه میمونم",LoadBitmap(File.DirAssets,"1234.gif")) 'Tarif MsgBox If ( r = DialogResponse.POSITIVE) Then ExitApplication ahang1.Stop End If
If ( r = DialogResponse.CANCEL) Then Try Dim market As Intent, uri As String uri="bazaar://details?id=ir.kodak.taha" market.Initialize(market.ACTION_EDIT,uri) StartActivity(market) Catch ToastMessageShow("لطفا ابتدا برنامه بازار را نصب کنید", False) End Try End If End If Return True End Sub
سوال
taha1371 84
سلام من کد زیروقتی میزارم تو اکتیویتی یه مشکل هست که دیگه دکمه صدا گوشی داخل همون اکتیویتی کار نمیکنه
ولی وقتی برش میدارم کار میکنه باید چه کار کنم که کار کنه
Dim r As Int
If KeyCode = KeyCodes.KEYCODE_BACK Then
Dim r As Int
r = Msgbox2("کوچولو میخوای بری ؟ ","خروج","آره خسته شدم", "امتیاز می دهم","نه میمونم",LoadBitmap(File.DirAssets,"1234.gif")) 'Tarif MsgBox
If ( r = DialogResponse.POSITIVE) Then
ExitApplication
ahang1.Stop
End If
If ( r = DialogResponse.CANCEL) Then
Try
Dim market As Intent, uri As String
uri="bazaar://details?id=ir.kodak.taha"
market.Initialize(market.ACTION_EDIT,uri)
StartActivity(market)
Catch
ToastMessageShow("لطفا ابتدا برنامه بازار را نصب کنید", False)
End Try
End If
End If
Return True
End Sub
لینک ارسال
به اشتراک گذاری در سایت های دیگر
8 پاسخ به این سوال تاکنون داده شده است
ارسالهای توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.