عرض مشاركة واحدة
  #2  
قديم 03-08-2013, 06:06 PM
أحمد هاشم الزيدي أحمد هاشم الزيدي غير متواجد حالياً
معلم حاسب ألى
 
تاريخ التسجيل: Feb 2009
المشاركات: 14,659
معدل تقييم المستوى: 31
أحمد هاشم الزيدي will become famous soon enough
افتراضي

اقتباس:
المشاركة الأصلية كتبت بواسطة hass****hawy مشاهدة المشاركة
كود:
        dim r_t as byte
        textbox1.visible = false
        textbox2.visible = false
        textbox3.visible = false
        textbox4.visible = false
        textbox5.visible = false
        randomize()
        r_t = rnd() * 5
        if r_t = 1 then textbox1.visible = true
        if r_t = 2 then textbox2.visible = true
        if r_t = 3 then textbox3.visible = true
        if r_t = 4 then textbox4.visible = true
        if r_t = 5 then textbox5.visible = true
بارك الله في اخي الفاضل حسن علي هذا االحل الرائع والمفسر
__________________
كفي بالله سندا وكفي به هاديا وحبيبا وكفي به معطيا وكفي بالله عن كل شئ