تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] احتاج طريقة تغيير حجم الخط ولونه في TextBox
#1
السلام عليكم ورحمة الله وبركاته

تقبل الله منا ومنكم الأعمال وأعاننا الله وإياكم على صيام رمضان وقيامه وقيام ليلة القدر إيماناً واحتساباً اللهم ءامين.

لدي مشروع احتاج فيه لطريقة إضافة كنترول مثل wordpad ( الذي يأتي مع الويندوز ) بحيث اتحكم في النص من تلوين وحجم الخط وتوسيط وغيرها من التعديلات.
قال رسول الله صلى الله عليه وسلم ( من قال لا إله إلا الله دخل الجنة ) حديث صحيح.
قال رسول الله صلى الله عليه وسلم ( كلمتان خفيفتان على اللسان ثقيلتان في الميزان حبيبتان للرحمن : سبحان الله وبحمده سبحان الله العظيم ) حديث صحيح.
الرد
تم الشكر بواسطة:
#2
سلام

استخدم RichTextBox1 ولو اني اتوقع انك تعرفها ولا تريدها
كود :
Public Class Form1

    ' عدم اخفا المحدد
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        RichTextBox1.HideSelection = False
    End Sub

    ' تلوين
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim selColor As Color = Color.Red
        RichTextBox1.SelectionColor = selColor
    End Sub

    ' النمط
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim _fontStyle As FontStyle = FontStyle.Bold + FontStyle.Italic
        RichTextBox1.SelectionFont = New Font(RichTextBox1.SelectionFont.FontFamily, RichTextBox1.SelectionFont.Size, _fontStyle)
    End Sub

    ' الحجم
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim _fontSize As Single = 20
        RichTextBox1.SelectionFont = New Font(RichTextBox1.SelectionFont.FontFamily, _fontSize, RichTextBox1.SelectionFont.Style)
    End Sub

    ' الخط
    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Dim _fontName As String = "Courier New"
        RichTextBox1.SelectionFont = New Font(_fontName, RichTextBox1.SelectionFont.Size, RichTextBox1.SelectionFont.Style)
    End Sub

    ' المحاذاه
    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        Dim _Alignment As String = HorizontalAlignment.Center
        RichTextBox1.SelectionAlignment = _Alignment
    End Sub

End Class

كوفقين
متغيب
الرد
تم الشكر بواسطة: ربيع , عبد الله
#3
وعليكم السلام
على العكس أخي الطالب كنت أريد ما يفي بالغرض وابشرك أني وجدت هذا المثال الرائع
لمن أراد المثال هذا رابط المثال: http://3ixgfx32po625qmg71336d5w.wpengine...ordPad.rar
قال رسول الله صلى الله عليه وسلم ( من قال لا إله إلا الله دخل الجنة ) حديث صحيح.
قال رسول الله صلى الله عليه وسلم ( كلمتان خفيفتان على اللسان ثقيلتان في الميزان حبيبتان للرحمن : سبحان الله وبحمده سبحان الله العظيم ) حديث صحيح.
الرد
تم الشكر بواسطة: مبرمج بلا حدود , الطالب
#4
سلام

هذه اضافه حفظ وقراء وتحديث محتوى ritchtextbox الموجود المثال اللي وضعه اخونا عبدالله
http://3ixgfx32po625qmg71336d5w.wpengine...ordPad.rar

اضف ثلاث ازارير واحد للحفظ والثان للقراء والثالث للتحديث
تجب وضع قاعدت بيانات اكسس فيها جدول wordpad وفيه حقلان الاول اسمه docname نوعه نص ويكون مفتاح لعدم السماح ياتكرار الاسماء والحقل الثاني اسمه rtf ونوعه مذكره
كود :
#Region " RichTextBox1 to Database "

    Private connectionString As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=Database1.accdb"
    Dim docName As String = ""

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim dn As String = InputBox("أدخل اسم المستند للحفظ")
        If dn.Trim <> "" Then
            docName = dn
            If InsertWordPadDocument(docName, RichTextBox1.Rtf) Then
                MsgBox("تم الحفظ")
            End If
        End If
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim dn As String = InputBox("أدخل اسم المستند للعرض")
        If dn.Trim <> "" Then
            docName = dn
            RichTextBox1.Rtf = SelectWordPadDocument(docName)
        End If
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        If MsgBox("هل تريد تحديث المستند:" & docName, MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then
            If UpdateWordPadDocument(docName, RichTextBox1.Rtf) Then
                MsgBox("تم التحديث")
            End If
        End If
    End Sub


    Private Function SelectWordPadDocument(ByVal docName As String) As String
        Using conn As New OleDb.OleDbConnection(connectionString)
            Using cmd As New OleDb.OleDbCommand("SELECT [rtf] FROM [wordpad] WHERE [docname]=@docName", conn)
                cmd.Parameters.AddWithValue("@docName", docName)
                conn.Open()
                Return cmd.ExecuteScalar
                conn.Close()
            End Using
        End Using
    End Function

    Private Function InsertWordPadDocument(ByVal docName As String, ByVal rtf As String) As Boolean
        Using conn As New OleDb.OleDbConnection(connectionString)
            Using cmd As New OleDb.OleDbCommand("INSERT INTO [wordpad] ( [docName], [rtf]) VALUES ( @docName, @rtf)", conn)
                cmd.Parameters.AddWithValue("@docName", docName)
                cmd.Parameters.AddWithValue("@rtf", rtf)
                conn.Open()
                Return If(cmd.ExecuteNonQuery > 0, True, False)
                conn.Close()
            End Using
        End Using
    End Function

    Private Function UpdateWordPadDocument(ByVal docName As String, ByVal rtf As String) As Boolean
        Using conn As New OleDb.OleDbConnection(connectionString)
            Using cmd As New OleDb.OleDbCommand("UPDATE [wordpad] SET [rtf]=@rtf WHERE [docName]=@docName", conn)
                cmd.Parameters.AddWithValue("@rtf", rtf)
                cmd.Parameters.AddWithValue("@docName", docName)
                conn.Open()
                Return If(cmd.ExecuteNonQuery > 0, True, False)
                conn.Close()
            End Using
        End Using
    End Function

#End Region

موفقين
متغيب
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  زيادة ونقص اداة التاريخ عند تغيير تاريخ اداة التاريخ الاخري atefkhalf2004 2 53 أمس, 10:54 PM
آخر رد: atefkhalf2004
  [VB.NET] طريقة الاتصال واغلاق الاتصال بقاعدة البيانات dubai.eig 8 119 أمس, 07:53 PM
آخر رد: elgokr
  [VB.NET] طلب طريقة عمل فلتر للمعلومات jassim316 2 37 20-02-19, 09:54 PM
آخر رد: jassim316
  [كود] طريقة البحث عن صورة في قاعدة البيانات access باستعمال صورة أخرى technomedia 6 99 20-02-19, 04:01 PM
آخر رد: elgokr
  [VB.NET] مشكلة فى عرض محتويات DataGridView فى TextBox mr_hso 8 168 18-02-19, 10:52 PM
آخر رد: nabil.1710
Rainbow [VB.NET] أسرع طريقة للتحقق من هل الجدول فارغ sniperjawadino 7 275 17-02-19, 02:59 PM
آخر رد: sniperjawadino
  تغيير الليست بكس بالداتاجريد فيو محمد خيري 5 114 15-02-19, 09:09 PM
آخر رد: princelovelorn
  تغيير كلمة المرور في الفيجوال بيسك مع قواعد البيانات عبدالله اااا 4 130 14-02-19, 06:46 PM
آخر رد: عبد العزيز البسكري
  [VB.NET] ماهي أفضل طريقة لتخزين رقم والنداء عليه في كل مرة sniperjawadino 9 228 12-02-19, 04:20 PM
آخر رد: princelovelorn
  تغيير كلمة المرور في الفيجوال بيسك مع قواعد البيانات عبدالله اااا 3 104 11-02-19, 11:39 PM
آخر رد: princelovelorn

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


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