[paveldida]

السلام عليكم

أحتاج كود لتغيير نوع خط الكتابة في جميع تاكست بوكس الفورم دفعة واحدة او في مجموعة دون غيرها

[asemshahen5]

تفضل هذا الكود :

PHP كود :

       Dim fn As New Font("Arial", 8, FontStyle.Bold)
        For Each Tx As Control In Controls
            If TypeOf (Tx) Is TextBox Then
                Tx.Font = fn
            End If
        Next 


[paveldida]

ممكن شرح بسيط للكود

[asemshahen5]

تفضل الكود مع الشرح :

PHP كود :

'' تعريف متغيير جديد بنوع الخط
Dim fn As New Font("Arial", 8, FontStyle.Bold)
'' عمل لوب عل كل الادوات الموجودة على الفورم
For Each Tx As Control In Controls
'' كتابة جملة شرطية تحدد غذا كان المتغيير Tx من نوع صندوق نص
    If TypeOf (Tx) Is TextBox Then
'' وضع المتغيير الخاص بنوع الخط للاداة التي حققت الشرط    
        Tx.Font = fn
    End If
Next 


[paveldida]

بارك الله فيك أخي

---

لاكن وضعت الكود في بوتون لاكن لم يشتغل

[asemshahen5]

هذا مثال به ما تريد انشاء الله :

   

[paveldida]

بارك الله فيك