تنفيذ امر خروج بعد 30 ثانية

في هذه الحالة تحتاج الى اضافة Timer وتكتب الكود بداخلة بدون التكست بكس

تحياتي

اخي تفضل هذا الكود يتم وضعه داخل تايمر ويكون interval بتاعه 1000 ويوجد تكست بوكس اسمها text1 ثم قم بوضع الكود التالي داخل التايمر .

Private Sub Timer1_Timer()

'يتم وضع شرط في حالة ان التكست فارغ يقم بالحاق له قيمة تساوي صفر حتي لا يتم ظهور رسالة الخطأ والاعتراض


If text1.Text = "" Then


text1.Text = 0
Timer1.Enabled = True

End If


''''''''''''''''''''''''''''''''''''''

' يتم وضع شرط في حالة ان القيمة داخل التسكت لم تصل الي 30 ثانية فانه يقوم بزيادتها بمقدار واحد  ثانية
If text1.Text < 30 Then



text1.Text = text1.Text + 1


''''''''''''''''''''''''''''''''''''

' وضع شرط ينص علي انه في حالة اتمام 30 ثانية فانه يقوم بتنفز الكود اسفل الشرط


ElseIf text1.Text = 30 Then


' الامر المراد تنفيزه بعد 30 ثانية

MsgBox " Hii how are you man , iam Max Bayne", , "Welcome"


'لايقاف عمل ونشاط التيمر بعد اتمام 30 ثانية وذلك حتي لا يقوم بتكرار تنفيز الامر اكثر من مرة

Timer1.Enabled = False


End If