✅با سلام و ارادت خدمت کاربران یاهو۹۸✅

 

خوب امروز میخوام بهتون آموزش خروج از برنامه با دوبار کلیک کردن کلید خروج بره بیرون

 

که وقتی کاربر یک بار روی دکمه خروج میزنه بهش یه پیام نشون داده میشه مثال:👇👇

برای خروج دکمه بازگشت را دوباره فشار دهید!

 

و کاربر بلافاصله که دکمه بازگشت رو برای دومین بار  بزنه از برنامه خارج میشه.

 

ابتدا باید یک متغیر از نوع Timer در Process_Globals و یک متغیر از نوع int ایجاد کنید و مقدار آن را روی ۰ قرار دهید :

Sub Process_Globals
Dim tim As Timer
End Sub

Sub Globals
Dim ext As Int = 0
End Sub

 

سپس کد های زیر رو در اکتیوتی قرار میدیم:

 

Sub tim_Tick
	 ext = 0 tim.Enabled = False
 End Sub

 

خوب وقتی برنامه رو ران بگیرید متن دلخواه که وارد کردین نشون داده میشه و اون مقدار تایم رو که ۲۰۰۰ وارد کردیم به میلی ثانیه هست که میشه ۲ ثانیه و اگر توی این ۲ ثانیه کلید بازگشت رو نزنیم خارج نمیشه و فقط و فقط باید  بعد از  اولین زدن روی دکمه بازگشت تا ۲ ثانیه وقت داریم که دوباره کلید بازگشت رو بزنیم و از برنامه خارج بشه.

 

 

میسپارمتون به خدا تا پست بعدی!

 

🙏