پرش به محتوا

تکه کد ایجاد وقفه در برنامه بسیک فور اندروید

شاید بعضی وقتا بخوایم یه وقفه چند ثانیه ای در برنامه ایجاد کنیم برای این کار از روش زیر استفاده کنید

ایتدا ساب زیر رو توی اکتیویتی مورد نظرتون کپی کنید

Sub Wait(Sekunden As Int)
Dim Ti As Long
Ti = DateTime.Now + (Sekunden * 1000)
Do While DateTime.Now < Ti
DoEvents
Loop
End Sub

و حالا هر جایی که خواستین وقفه ایجاد کنید از کد زیر استفاده کنید

Wait(4)

عدد ۴ زمان وقفه را تعیین میکنه (به ثانیه)

 

دیدگاهتان را بنویسید

نشانی ایمیل شما منتشر نخواهد شد.