طلب لعمل زر في فورم يقوم بعمل نفس الامر كل ثانية مثلا

[هاني مصطفي]

السلام عليكم

في المرفق زر به فورم به عدد 12 تكست بوكس هل من الممكن وضع امر في الزر الموجود

للقيام بحذف تكست بوكس كل ثانية او كل ضغطة علي الزر بالترتيب او عشوائيا

 

ارجو ان يكون الطلب واضح

 

سؤال.rar

[يحيى حسين]

السلام عليك و رحمة الله 

 

أخي هذا الكود يقوم بإخفاء التكست بوكس الموجودين في مثالك واحداً تلو الآخر عند كل ضغطه 

Private Sub CommandButton1_Click()
Dim ctr As Control

For Each ctr In Me.Controls
    If TypeName(ctr) = "TextBox" Then
        If ctr.Visible = True Then
            ctr.Visible = False
            Exit Sub
        End If
    End If
Next ctr
End Sub

 

دمتم في حفظ الله 

[هاني مصطفي]

مع الآخذ في الاعتبار امكانية زيداة التكستات او انقاصهم

فرجاء يكون بكود بسيط يسهل فهمة او مع شرح الكود المرفق

في انتظار الرد

[حمادة عمر]

السلام عليكم

الاخ الكريم / هاني مصطفي

 

الكود المرسل من القدير / يحيي حسين  ... جزاه الله خيرا

 

يصلح لاي عدد موجود لديك بالفورم زاد اونقص

جزاك الله خيرا

 

شاهد المرفق

 

سؤال1.rar

تم تعديل مارس 1, 2013 بواسطه حمادة عمر

[يحيى حسين]

السلام عليكم

الاخ الكريم / هاني مصطفي

 

الكود المرسل من القدير / يحيي حسين  ... جزاه الله خيرا

 

يصلح لاي عدد موجود لديك بالفورم زاد اونقص

جزاك الله خيرا

نعم أخي حماده الكود المصمم بحيث يتعامل مع جميع التكست بوكس داخل الفورم 

[هاني مصطفي]

هل يمكن عمل هذا الامر بضغطه واحد تحدث كل ثانيه عشوائيا