منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
تغير الخط لجميع الأدوات - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : تغير الخط لجميع الأدوات (/showthread.php?tid=32021)

تغير الخط لجميع الأدوات - اسامه الهرماوي - 08-11-19

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

RE: تغير الخط لجميع الأدوات - baha - 08-11-19

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

بتغيير نوع خط الفورم يتم تغيير نوع خط جميع الأدوات الموجودة بذلك الفورم
كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       Me.Font = New Font("Tahoma", 12, FontStyle.Bold)
   End Sub

أرجو أن يكون المطلوب






تمنياتي لك وللجميع التوفيق


RE: تغير الخط لجميع الأدوات - اسامه الهرماوي - 08-11-19

الكود تمام ولكني اريد تغير الخط فقط دون المقاس.

RE: تغير الخط لجميع الأدوات - baha - 08-11-19

جرب هذا الكود


كود :
For Each f As Control In Me.Controls
           f.Font = New Font("Tahoma", f.Font.Size)
       Next

لن يعمل مع الأدوات التي داخل أدوات أخرى مثل الأدوات التي داخل GroupBox و Panel







تمنياتي لك وللحميع التوفيق


RE: تغير الخط لجميع الأدوات - اسامه الهرماوي - 08-11-19

(08-11-19, 02:25 AM)baha كتب : جرب هذا الكود


كود :
For Each f As Control In Me.Controls
           f.Font = New Font("Tahoma", f.Font.Size)
       Next

لن يعمل مع الأدوات التي داخل أدوات أخرى مثل الأدوات التي داخل  GroupBox و Panel







تمنياتي لك وللحميع التوفيق
هذا هو المطلوب بالضبط