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

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

تغيير حجم خط RichTextBox - أبو خالد الشكري - 03-07-22

هلا بالشباب الرائع

عندي سؤال على السريع

ما هو أمر تغيير حجم خط RichTextBox بدون أن يتغير النص الملون
بمعنى آخر : عند تغيير حجم الخط لا تذهب الألوان ويتحول النص كله إلى اللون الأسود .

أرجو لكم التوفيق .

RE: تغيير حجم خط RichTextBox - Taha Okla - 03-07-22

حدد النص الذي تريد تغيير حجمه وطبق عليه الكود التالي  :

PHP كود :
RichTextBox1.SelectionFont = New Font(Font.OriginalFontName, 14) 

واذا كنت تريد تسميك الخط أو تخفيفه او تخطيطه استخدم الكود التالي (مع التغيير بالحالات) :

PHP كود :
RichTextBox1.SelectionFont = New Font(Font.OriginalFontName, 14, FontStyle.Bold) 

واذا كنت تريد تغيير نوع الخط استخدم الكود التالي (مع مراعاة اسم الخط ):
PHP كود :
RichTextBox1.SelectionFont = New Font("Tahoma", 14) 

واذا كنت تريد تغيير لون الخط استخدم الكود التالي(مع مراعاة اللون) :
كود :
RichTextBox1.SelectionColor = System.Drawing.Color.Green


RE: تغيير حجم خط RichTextBox - أبو خالد الشكري - 03-07-22

مرحبا بك أستاذ طه

لأوضح لكم الفكرة ...

أنا عندي ComboBox فيه أرقام لأحجام الخطوط 


وأريد لما أختار حجم محدد ، يتم تغيير حجم الخط في RichTextBox بالكامل
حاليا يتم ذلك فعلا ، ولكن المشكلة يتحول النص بالكامل إلى اللون الأسود !
وأنا أريده فقط يغير حجم الخط بدون أن يغير ألوان النص .
وهذا الأمر الذي أستخدمه حاليا

كود :
Me.txtCode.Font = New Font("", cmbFont.Text)


حيث أن  txtCode  هو اسم أداة RichTextBox 
وكذلك cmbFont هو اسم ComboBox

RE: تغيير حجم خط RichTextBox - أبو خالد الشكري - 03-07-22

السلام عليكم يا جماعة الخير

خلاص أخيرًا توصلت إلى حل مشكلة إعادة تحجيم الخط  Big Grin

وذلك باستخدام الأكواد التالية :
كود :
  Dim FontSize As Byte = Val(cmbFont.Text)
       txtCode.SelectAll()
       txtCode.SelectionFont = New Drawing.Font("", FontSize, Font.Style)

والكود شغال 100% وجميل جدا وسريع Smile

شكرًا جزيلا لكم جميعًا على محاولاتكم نعي في التوصل إلى حل .

بارك الله فيكم .