السلام عليكم و رحمة الله و بركاته
أنا أعرف أسوي تايمر بيوزركنترول بس قلت باسويهه بطريقة ثانية
و سويتهه بـ Class Module و أحب أقول ليكم أن كل مرة أشتغل فيهه على الفيجوال بيسك الكلاس موديول ما أقرب منهه يعني هي أول مرة أستخدمهه
Public Event Timer()
Dim OPs As Boolean
Dim IntX As Integer
Dim After As Currency
Public Property Get Interval() As Integer
Interval = IntX
End Property
Public Property Let Interval(ByVal vNewInterval As Integer)
IntX = vNewInterval
End Property
Public Sub Go_()
OPs = True
Counter = 0
After = IntX / 1000
Dim TempTime As Currency
TempTime = Timer + After
Do Until OPs = False
DoEvents
If Timer >= TempTime Then
RaiseEvent Timer
TempTime = Timer + After
End If
DoEvents
Loop
End Sub
Public Sub Stop_()
OPs = False
End Sub
و أنا سويت للكود تطبقين واحد على الفيجوال بيسك و الثاني بماكرو باور بوينت
التطبيقين
أي واحد عنده تعديل لا يستحي و يسكت أبغي آراء و تعليقات
يلا أنتظر ردودكم