طبعا ممكن وذلك بتعميم متغير يتم تخزين به قيمة على حسب الطلب يتم التحقق عنه عند عمل المؤقت مثلا
زر الامر رقم 1 نكتب
myval= sub1
الزر الثاني
myval=sub2
وفي المؤقت نكتب
if myval = sub1 .............
وهكذا
اللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء، اللهم أصلح لي ديني الذي هو عصمة أمري، وأصلح لي دنياي التي فيها معاشي، وأصلح لي آخرتي التي فيها معادي، واجعل الحياة زيادة لي في كل خير، واجعل الموت راحة لي من كل شر
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي جدي وهزلي وخطأي وعمدي وكل ذلك عندي، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير
Private Sub lblg72_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lblg72.Click Me.lblg72.Text = "" Me.lblg72.ForeColor = Color.Blue Timer15.Interval = 250 Timer15.Start() End Sub
Private Sub Timer15_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer15.Tick
Static ptr As Integer = 0 If ptr < Me.lbl72.Text.Length Then lblg72.Text = lblg72.Text & lbl72.Text.Substring(ptr, 1) ptr += 1 Else Timer15.Stop() ptr = 0 End If
End Sub
واريد ان اكرره عدة مرات
انا عامل الى ا لان عدد 16 تايمر
السابقة 15 وهذه 16
PHP كود :
Private Sub lblg73_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lblg73.Click Me.lblg73.Text = "" Me.lblg73.ForeColor = Color.Blue Timer16.Interval = 250 Timer16.Start() End Sub
Private Sub Timer16_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer16.Tick Static ptr As Integer = 0 If ptr < Me.lbl73.Text.Length Then lblg73.Text = lblg73.Text & lbl73.Text.Substring(ptr, 1) ptr += 1 Else Timer16.Stop() ptr = 0 End If End Sub
كيف اعمل المتغير للكود
PHP كود :
Static ptr As Integer = 0 If ptr < Me.lbl73.Text.Length Then lblg73.Text = lblg73.Text & lbl73.Text.Substring(ptr, 1) ptr += 1 Else Timer16.Stop() ptr = 0 End If
اخي العزيز : ممكن تقول ايش الفكرة اللي تريد تطبقها لعل يوجد حل اسهل.
لاني لم افهم
اللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء، اللهم أصلح لي ديني الذي هو عصمة أمري، وأصلح لي دنياي التي فيها معاشي، وأصلح لي آخرتي التي فيها معادي، واجعل الحياة زيادة لي في كل خير، واجعل الموت راحة لي من كل شر
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي جدي وهزلي وخطأي وعمدي وكل ذلك عندي، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير
اللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء، اللهم أصلح لي ديني الذي هو عصمة أمري، وأصلح لي دنياي التي فيها معاشي، وأصلح لي آخرتي التي فيها معادي، واجعل الحياة زيادة لي في كل خير، واجعل الموت راحة لي من كل شر
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي جدي وهزلي وخطأي وعمدي وكل ذلك عندي، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير
