تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
كيف اجعل النص bold and italic and Underline سوية وليس كل على حدة
#1
السلام عليكم ورحمة الله وبركاته
اخوتي الكرام في المنتدى
لدي textbox فيه نص يمكنني عمله bold او italic او underline  كل على حدة بالكود المرفق
والسؤال هو كيف يمكنني تطبيق bold و italic معا او  bold و italic و underline معا 
وجزاكم الله خير جزاء
كود :
   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       Dim MyFontStyle As FontStyle
       MyFontStyle = FontStyle.Regular
       If ChkBox_Bold.Checked Then
           MyFontStyle = FontStyle.Bold
       End If
       If ChkBox_Italic.Checked Then
           MyFontStyle = FontStyle.Italic
       End If
       If ChkBox_UnderLine.Checked Then
           MyFontStyle = FontStyle.Underline
       End If
       TextBox1.Font = New Font(TextBox1.Font.FontFamily, TextBox1.Font.Size, MyFontStyle)
   End Sub

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







الرد
تم الشكر بواسطة: ابو روضة
#2
السلام عليكم ورحمة الله وبركاته
لاغنى عن منتدانا الغالي ولاعن المساعدة من اخوتنا الاعضاء الأعزاء 
الحمد لله الذي وفقني بكتابة الكود لما أريد وهذا هو الكود الجديد ارفقه ليستفيد منه الجميع ودمتم بخير
كود :
Private Sub ChkBox_Bold_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ChkBox_Bold.CheckedChanged
       If ChkBox_Bold.Checked Then
           TextBox1.Font = New Font(TextBox1.Font, TextBox1.Font.Style Or FontStyle.Bold)
       Else
           TextBox1.Font = New Font(TextBox1.Font, TextBox1.Font.Style And Not FontStyle.Bold)
       End If
   End Sub

   Private Sub ChkBox_Italic_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ChkBox_Italic.CheckedChanged
       If ChkBox_Italic.Checked Then
           TextBox1.Font = New Font(TextBox1.Font, TextBox1.Font.Style Or FontStyle.Italic)
       Else
           TextBox1.Font = New Font(TextBox1.Font, TextBox1.Font.Style And Not FontStyle.Italic)
       End If
   End Sub

   Private Sub CheckBox3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ChkBox_UnderLine.CheckedChanged
       If ChkBox_UnderLine.Checked Then
           TextBox1.Font = New Font(TextBox1.Font, TextBox1.Font.Style Or FontStyle.Underline)
       Else
           TextBox1.Font = New Font(TextBox1.Font, TextBox1.Font.Style And Not FontStyle.Underline)

       End If
   End Sub

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







الرد
تم الشكر بواسطة: حريف برمجة , asemshahen5 , ابو روضة , ابو روضة


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] تحويل النص الى صوت mne3000 6 139 , 06:49 PM
آخر رد: mne3000
  طلب كود لحذف الجزء المظلل عليه من النص في التيكست بوكس waelalmsry75 4 157 26-03-20, 01:53 AM
آخر رد: Mahmoud_2020
  [سؤال] فتح الفورم بحسب اسم الفورم الموجود في مربع النص بسام هزاع 2 86 24-03-20, 11:22 PM
آخر رد: kiki
  طلب كود يقوم مقام (دبل كليك).. وكود للانتقال إلى الكلمة التالية في النص waelalmsry75 2 177 31-01-20, 03:54 AM
آخر رد: waelalmsry75
  تغير لون مربع النص alshandodi 6 506 13-12-19, 05:05 PM
آخر رد: محمد كريّم
  النص الطويل للكرستال ريبورت DOX.1 3 252 20-11-19, 02:12 AM
آخر رد: DOX.1
  ممكن كود تقسيم النص على حقلين على سبيل المثال محمد شريف sherf 0 164 15-11-19, 04:28 AM
آخر رد: sherf
  كود فيجوال بيسك تغيير لون النص في الوورد mostafa12 0 228 07-10-19, 03:57 PM
آخر رد: mostafa12
  كيف جعل البرنامج يظهر التاريخ ارقام فقط وليس يكتب اسم الشهر mostafa12 15 611 01-10-19, 02:06 AM
آخر رد: asemshahen5
Exclamation [VB.NET] إخفاء عمود في ListView وليس حذفه سميـر 4 323 14-09-19, 12:50 AM
آخر رد: سميـر

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم