03-03-19, 06:20 AM
السلام عليكم ورحمة الله وبركاته
اخوتي الكرام في المنتدى
لدي 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
اعمل الخير وأجرك لا تنتظره فالله خير من إليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات