تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
استخدام Timer لعدة ازرير
#1
السلام عليكم ورحمة الله وبركاته

اخواني لدي مثال اتعامل به مع Timer
ولكن لكل ازرار احتاج تايمر هل من الممكن ان استخدم 1 Timer لكل الازارير
مثلا

في

PHP كود :
Private Sub Timer15_Tick(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Timer15.Tick

 End Sub 

في حالة الضغط على Button1
قم بتنفيذ الاجراء (*****)
وفي حالة الضغط على Button2
قم بتنفيذ الاجراء (*****)

مع ملاحظة ان لكل ازرار امره المختلف عن غيرة
الرد }}}
تم الشكر بواسطة:
#2
طبعا ممكن وذلك بتعميم متغير يتم تخزين به قيمة على حسب الطلب يتم التحقق عنه عند عمل المؤقت مثلا
زر الامر رقم 1 نكتب
myval= sub1
الزر الثاني
myval=sub2

وفي المؤقت نكتب
if myval = sub1 .............
وهكذا
الرد }}}
تم الشكر بواسطة:
#3
اخي سعود انا لدي هذا الكود


PHP كود :
Private Sub lblg72_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles 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.ObjectByVal e As System.EventArgsHandles Timer15.Tick

        
Static ptr As Integer 0
        
If ptr Me.lbl72.Text.Length Then
            lblg72
.Text lblg72.Text lbl72.Text.Substring(ptr1)
            
ptr += 1
        
Else
            
Timer15.Stop()
            
ptr 0
        End 
If

        
    
End Sub 

واريد ان اكرره عدة مرات

انا عامل الى ا لان عدد 16 تايمر

السابقة 15 وهذه 16

PHP كود :
Private Sub lblg73_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles 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.ObjectByVal e As System.EventArgsHandles Timer16.Tick
        
Static ptr As Integer 0
        
If ptr Me.lbl73.Text.Length Then
            lblg73
.Text lblg73.Text lbl73.Text.Substring(ptr1)
            
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(ptr1)
            
ptr += 1
        
Else
            
Timer16.Stop()
            
ptr 0
        End 
If 

ام الى اي كود ممكن توضح على الكودين السابقين
الرد }}}
تم الشكر بواسطة:
#4
اخي العزيز : ممكن تقول ايش الفكرة اللي تريد تطبقها لعل يوجد حل اسهل.
لاني لم افهم Smile
الرد }}}
تم الشكر بواسطة:
#5
ارفق المثال لايكفي وجود الكود لان كودك مبهم
الرد }}}
تم الشكر بواسطة:
#6
تفضلو اخواني جزاكم الله خير

هذ مثال مصغر به عدد 2 Timer
اريد استخدم فقط واحد Timer


الملفات المرفقة
.rar   letterByLetter.rar (الحجم : 61.43 ك ب / التحميلات : 50)
الرد }}}
تم الشكر بواسطة:
#7
استدعي السب Tcontrol1 + Tcontrol2

في تايمر واحد :o
جرب وشوف
الرد }}}
تم الشكر بواسطة:
#8
http://vb4arb.com/vb/uploaded/34_01352621109.zip
تعديل سريع والباقي عليكSmile
الرد }}}
تم الشكر بواسطة:
#9
الف شكر للجميع
وشكر خاص للأخ سعود
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] أرغب فى استخدام هذا الكود بالتحديد على الإصدار 10 AmeenRashed 3 206 19-01-24, 12:42 PM
آخر رد: Taha Okla
  [VB.NET] كيف اقوم بمنع المستخدم من استخدام الكيبورد وخصوصا مفتاح Print screen Ameenh 0 235 07-10-23, 10:45 PM
آخر رد: Ameenh
  طريقة استخدام حلقة For Each ASUS2020 5 590 11-04-23, 01:26 AM
آخر رد: ASUS2020
  حذف المسافات الزائدة في الداتا جريد لعدة سجلات دفعة واحدة yosif 4 521 09-04-23, 06:41 PM
آخر رد: Taha Okla
  تغيير الف بهمزة وياء الى الف عادية والف مقصورة بالداتا جريد لعدة سجلات yosif 3 483 09-04-23, 02:38 PM
آخر رد: yosif
  [VB.NET] بطئ تحديث كونترول اثناء استخدام linq الماجيك مسعد 9 1,094 23-10-22, 02:39 PM
آخر رد: الماجيك مسعد
Heart كيفية استخدام Class في المشروع أبو خالد الشكري 4 972 21-08-22, 07:00 PM
آخر رد: أبو خالد الشكري
  استخدام parallel for makky 3 749 17-05-22, 03:23 AM
آخر رد: makky
  كيفية استخدام autocomplete for textbox الماجيك مسعد 2 922 08-05-22, 09:31 PM
آخر رد: الماجيك مسعد
  [VB.NET] كيف ننقل ملف إلى جهاز على الشبكة مع استخدام اسم المستخدم وكلمة المرور abomo3ath 5 1,524 27-04-22, 05:41 AM
آخر رد: أبووسم

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم