تشخیص باز بودن برنامه در سرویس

[arastooms 1,046]

سلام به عزیزان و اساتید بزرگ انجمن

من از هاست یک متن استرینگ به برنامه ارسال میکنم که به درستی میرسه به سرویس 

و متن رو چون داخل سرویس هست و به ویو ها دست رسی ندارم و ممکنه برنامه بسته باشه به کاربر در یک تست مسیج نمایش میدم 

 

حالا میخام وقتی این پیام رسید از هاست به برنامه 
ببینم اگر برنامه باز هست و کاربر در حال استفاده هست یک مسیج باکس بزنه
اگر نه همون تست مسیج رو نشون بده 

با تشکر از راهنمایی شما 

[محمدرضا شاهپیری 5,579]

خیلی سادس عزیز.

فرض کنیم میخواین تو اکتیوتی main مسیج باکس رو نشون بدین. از اونجایی که شما نمیتونین مستقیما از تو سرویس دیالوگ نشون بدین(چه برنامه باز و یا بسته باشه این کار ممکن نیست) کافیه متد نمایش مسیج باکس رو تو اکتیویتی تعریف کنین و اونو از تو سرویس بادستور callsubdelayed اجرا کنید. این از این. حالا اگه شما بخواین موقه بسته بودن توست نمایش بدین باید از تابع IsPaused خود بیسیک استفاده کنین.. کلا به شکل زیر میشه.

اول متد نمایش مسیج باکس رو به اکتیوتی main اضافه کنید.

Public Sub shodialog
Msgbox("متن","متن")
End Sub

حالا توی سرویس به شکل زیر چک کنید که اگه بازه مسیج باکس اگه باز نیست توست نشون بده.

If IsPaused(Main)=False Then
	CallSubDelayed(Main,"shodialog")
Else
ToastMessageShow("",False)	
End If