+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : أسئلة في الريتش (/showthread.php?tid=34784)
أسئلة في الريتش - أمجد وضاح - 15-05-20
كيف ارسم اشكال بالريتش
كيف ارسم جدول بالريتش
كيف اعمل اطارات بالريتش
وكود يحسب كم عدد الكلمات مع الفراغات وبدون
كيف اعمل زر يحدد كل الكلمات في الريتش لأنني جربت كود ولم ينفع
وزر يحفظ كل هذا وهل سيفتحه برنامج الورد
وزر فتح يفتح كل هذا
وهل أي كود سينفع لفتح الملف هذا
RE: أسئلة في الريتش - asemshahen5 - 15-05-20
الجواب الاول في هذا الموقع :
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
يمكن الفتح و الحفظ ببرنامج الوررد .
RE: أسئلة في الريتش - أمجد وضاح - 16-05-20
وإنشاء جداول
RE: أسئلة في الريتش - asemshahen5 - 16-05-20
تفضل هذا مثال :
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
RE: أسئلة في الريتش - أمجد وضاح - 28-05-20
والاطارات والهوامش