مرحبا
انا عملت برنامج وهو عبارة عن فروم وااضفت 1 تايمر وفي التايمر وضعت هاذا الكود Me.Close()
وفي ال interval كتبت الرقم 3 ولم ينجح الاغلاق
(21-09-18, 10:51 AM)dasktop كتب : [ -> ]مرحبا
انا عملت برنامج وهو عبارة عن فروم وااضفت 1 تايمر وفي التايمر وضعت هاذا الكود Me.Close()
وفي ال interval كتبت الرقم 3 ولم ينجح الاغلاق
Public Class Form1
Dim ii As Integer = 0
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Timer1.Interval = 500
End Sub
Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick
ii += 1
If ii > 5 Then
End
End If
End Sub
End Class
(21-09-18, 11:06 AM)العواد الصغير كتب : [ -> ] (21-09-18, 10:51 AM)dasktop كتب : [ -> ]مرحبا
انا عملت برنامج وهو عبارة عن فروم وااضفت 1 تايمر وفي التايمر وضعت هاذا الكود Me.Close()
وفي ال interval كتبت الرقم 3 ولم ينجح الاغلاق
Public Class Form1
Dim ii As Integer = 0
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Timer1.Interval = 500
End Sub
Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick
ii += 1
If ii > 5 Then
End
End If
End Sub
End Class
اخي انا اريد فقط اغلاق الفروم رقم 2بعد 5 ثواني والفروم 1 يبقى شغال لان الفروم 1 واجهة البرنامج والفروم 2 مجرد رسالة عند الضغط ع زر فقط المطلوب فقط كود اغلاق فروم 2 بعد 5 ثواني
إذا كنت تريد العرض لمدة 3 ثواني اجعل القيمة = 3000
ايضاً قم بتفعيل التايمر Enabled = True
(21-09-18, 12:02 PM)حريف برمجة كتب : [ -> ]إذا كنت تريد العرض لمدة 3 ثواني اجعل القيمة = 3000
ايضاً قم بتفعيل التايمر Enabled = True
اخي انا المشروع يتكون من 2 فروم فروم رقم 1 هو البرنامج والفروم 2 مجرد رسالة تضهر عند الضغط على زر في الفروم 1 المطلوب هو كود اغلاق الفروم 2 بعد 5 او 3 ثواني فقط والفروم 1 يعمل
في الفورم 2 ضع تايمر وغير Enabled = False اجعلها True
ايضاً interval اكتب بها 3000 تعني 3 ثواني لأن كل 1000 يحسبها التايمر بثانية واحدة
دبل كلك على التايمر وأكتب هذا السطر :
Me.Close
انتهينا من الفورم 2
في الفورم 1 ضع هذا السطر في الزر :
Form2.Show
تم نجحت الطريقة ونشكركم على التوضيح