تقييم الموضوع :
  • 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 , ابو روضة , ابو روضة


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  بحث بالكومبو بوكس لا ى جزء من النص Lathe1 3 440 28-02-24, 02:59 AM
آخر رد: معاند الحظ
  [VB.NET] استخلاص جزء محدد من نص وإضافته إلى بداية النص ؟ AmeenRashed 2 213 02-01-24, 10:06 AM
آخر رد: AmeenRashed
  كيف اجعل قيمة dateTimePicker2 تساوي dateTimePicker1 Adel27213 2 280 09-11-23, 09:07 PM
آخر رد: Adel27213
  كيف اجعل البرنامج في بداية الشهر ينفذ حدث معين بالاصح اريد البرنامج في تاريخ واحد من Adel27213 3 484 05-11-23, 01:45 AM
آخر رد: justforit
  [VB.NET] كيف اجعل البرنامج يحدد اخر يوم من كل شهر Adel27213 2 361 03-11-23, 06:50 AM
آخر رد: Adel27213
  دالة ادخال ارقام فقط في مربع النص atefkhalf2004 7 809 20-08-23, 09:04 AM
آخر رد: atefkhalf2004
  طريقة حذف حرف زيادة من مربع النص علاء الكبابي 2 553 19-06-23, 05:08 PM
آخر رد: Taha Okla
  اريد كود لمسح النص من textbox بمجرد الضغط على ال textebox للكتابة رهف العريفي 21 11,884 03-06-23, 04:56 AM
آخر رد: سعود
Rainbow [كود] النص المكتوب يكون على شكل وميض او تغير في الالوان محمد مسافر 1 460 13-05-23, 01:30 AM
آخر رد: عبدالله الدوسري
  هل ممكن اجعل عناصر ال LISTBOX بشكل افقي ismaeel 0 380 01-05-23, 11:26 PM
آخر رد: ismaeel

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


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