[أمجد وضاح]

كيف ارسم اشكال بالريتش
كيف ارسم جدول بالريتش
كيف اعمل اطارات بالريتش
وكود يحسب كم عدد الكلمات مع الفراغات وبدون
كيف اعمل زر يحدد كل الكلمات في الريتش لأنني جربت كود ولم ينفع
وزر يحفظ كل هذا وهل سيفتحه برنامج الورد


وزر فتح يفتح كل هذا
وهل أي كود سينفع لفتح الملف هذا

[asemshahen5]

الجواب الاول في هذا الموقع :

draw line in rich textbox

الجواب الثاني :

PHP كود :

       Dim a As Integer
        For Each s As String In RichTextBox1.Text
'معرفة عدد المسافات الفارغة'
            If s = " " Then
                a += 1
            End If
        Next
'عرض عدد المسافات الفارغة'
Label2.Text = a
'عرض عدد الاحرف'
        Label3.Text = RichTextBox1.Text.Length
'عدد الاحرف من غير المسافات الفارغة'
        Label4.Text = RichTextBox1.Text.Length - a
'تحديد الكل'
        RichTextBox1.SelectAll()
        RichTextBox1.Focus() 


PHP كود :

   'زر حفظ'
    Private Sub BtnSave_Click(sender As Object, e As EventArgs) Handles BtnSave.Click
        Dim SaveDlg As New SaveFileDialog
        SaveDlg.Filter = "*.doc|*.docx;|*.rtf|*.txt"
        If SaveDlg.ShowDialog = Windows.Forms.DialogResult.OK Then
            RichTextBox1.SaveFile(SaveDlg.FileName)
        End If
    End Sub
    'زر فتح'
    Private Sub BtnOpen_Click(sender As Object, e As EventArgs) Handles BtnOpen.Click
        Dim OpenDlg As New SaveFileDialog
        OpenDlg.Filter = "*.doc|*.docx;|*.rtf|*.txt"
        If OpenDlg.ShowDialog = Windows.Forms.DialogResult.OK Then
            RichTextBox1.LoadFile(OpenDlg.FileName)
        End If
    End Sub 


بالنسبة هل يمكن فتح الملف المولد ببرنامج الوورد هذا حسب تنسيق الحفظ : 
*.doc
*.docx
*.rtf
يمكن الفتح و الحفظ ببرنامج الوررد .

[أمجد وضاح]

وإنشاء جداول

[asemshahen5]

تفضل هذا مثال :

PHP كود :

   Dim cdlg As New ColorDialog()
    Private Sub Form1_Paint(sender As Object, e As PaintEventArgs) Handles MyBase.Paint
        Dim gr As Graphics = RichTextBox1.CreateGraphics()
        Dim myBrush As SolidBrush = New SolidBrush(cdlg.Color)
        Dim myPen As Pen = New Pen(myBrush, 1)
        If TxtRow.Text = "" Or TxtColumn.Text = "" Or TxtRow.Text = "0" Or TxtColumn.Text = "0" Then
            Return
        End If
        Dim linesRow As Integer = Convert.ToInt32(TxtRow.Text)
        Dim linesCol As Integer = Convert.ToInt32(TxtColumn.Text)
        Dim x As Single = 0.0F
        Dim y As Single = 0.0F
        Dim xSpace As Single = ((RichTextBox1.Width - myPen.Width) * 1.0F / linesRow)
        Dim ySpace As Single = ((RichTextBox1.Height - myPen.Width) * 1.0F / linesCol)
        Dim nn As Integer = IIf(RichTextBox1.Width <= RichTextBox1.Height, xSpace / 4, ySpace / 4)
        Dim myFont As New Font("Arial", nn)
        ''// Vertical Lins
        For i = 0 To linesRow
            gr.DrawLine(myPen, x, y, x, ySpace * linesRow)
            gr.DrawLine(myPen, x, y, x, ySpace * linesCol)
            x += xSpace
        Next
        ''// Horizontal Lins
        x = 0.0F
        y = 0.0F
        For i = 0 To linesCol
            gr.DrawLine(myPen, x, y, xSpace * linesCol, y)
            gr.DrawLine(myPen, x, y, xSpace * linesRow, y)
            y += ySpace
        Next
        ''Text
        x = 0.0F
        y = 0.0F
        Dim counter As Integer = 1
        For r = 0 To linesCol
            For c = 0 To linesRow
                gr.DrawString(counter.ToString(), myFont, myBrush, x, y) '';//x+ myFont.Size//y + myFont.Size
                ''gr.DrawString(counter.ToString(), myFont, Brushes.Black, x + myFont.Size, y + myFont.Size)
                x += xSpace
            Next
            ''//gr.DrawString(counter.ToString(), myFont, Brushes.Black, x + myFont.Size, y + myFont.Size);
            counter += 1
            y += ySpace
            x = 0
        Next
    End Sub
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        RichTextBox1.Refresh()
    End Sub 


طبعا لا تنسى ان تضع زر و صندوقين نص و ريتش تيكست بوكس .

الطريقة السابقة هي لرسم في الريتش أي كصورة اما هذا الموقع فيه شرح عمل جدول كالجدول الموجود في الوورد :

Inserting a table into a richtextbox - VB.NET

[أمجد وضاح]

والاطارات والهوامش