If RichTextBox1.Text = "" Then
RichTextBox1.Text = TextBox1.Text
Else
RichTextBox1.Text = RichTextBox1.Text + vbNewLine + TextBox1.Text
End If
TextBox1.Clear()
If RichTextBox1.Text = "" Then
RichTextBox1.Text = TextBox1.Text
Else
RichTextBox1.Text = RichTextBox1.Text + vbNewLine + TextBox1.Text
End If
TextBox1.Clear()
السلام عليكم
شكرا اخي الحبيب علي المشاركة
نفذت الكود ولكن وجدت حروف التكست بوكس تكتب بشكل راسي كما بالصورة
26-11-17, 03:34 AM (آخر تعديل لهذه المشاركة : 26-11-17, 05:44 AM {2} بواسطة Rabeea Qbaha.)
صديقي ارفق المشروع و اشرح لي ما الذي تريده بالضبط
هل ال rich سوف تاخذ من textbox واحد فقط ام من جميع textboxs التي بالفورم
اذا من الكل استخدم الاتي :
كود :
Private Sub TextBox1_KeyDown(sender As Object, e As KeyEventArgs) Handles TextBox1.KeyDown
If e.KeyCode = Keys.Enter Then
If RichTextBox1.Text = "" Then
RichTextBox1.Text = TextBox1.Text
TextBox1.Text = TextBox1.Text.Substring(0, TextBox1.Text.Length - 1)
Else
RichTextBox1.Text = RichTextBox1.Text + vbNewLine + TextBox1.Text
'TextBox1.Text = TextBox1.Text.Substring(0, TextBox1.Text.Length - 1)
TextBox1.Clear()
End If
TextBox2.Select()
End If
End Sub
Private Sub TextBox2_KeyDown(sender As Object, e As KeyEventArgs) Handles TextBox2.KeyDown
If e.KeyCode = Keys.Enter Then
If RichTextBox1.Text = "" Then
RichTextBox1.Text = TextBox2.Text
TextBox2.Text = TextBox2.Text.Substring(0, TextBox2.Text.Length - 1)
Else
RichTextBox1.Text = RichTextBox1.Text + vbNewLine + TextBox2.Text
'TextBox2.Text = TextBox2.Text.Substring(0, TextBox2.Text.Length - 1)
TextBox2.Clear()
End If
TextBox3.Select()
End If
End Sub
Private Sub TextBox3_KeyDown(sender As Object, e As KeyEventArgs) Handles TextBox3.KeyDown
If e.KeyCode = Keys.Enter Then
If RichTextBox1.Text = "" Then
RichTextBox1.Text = TextBox3.Text
TextBox3.Text = TextBox3.Text.Substring(0, TextBox3.Text.Length - 1)
Else
RichTextBox1.Text = RichTextBox1.Text + vbNewLine + TextBox3.Text
'TextBox3.Text = TextBox3.Text.Substring(0, TextBox3.Text.Length - 1)
TextBox3.Clear()
End If
TextBox4.Select()
End If
End Sub
Private Sub TextBox4_KeyDown(sender As Object, e As KeyEventArgs) Handles TextBox4.KeyDown
If e.KeyCode = Keys.Enter Then
If RichTextBox1.Text = "" Then
RichTextBox1.Text = TextBox4.Text
TextBox4.Text = TextBox4.Text.Substring(0, TextBox4.Text.Length - 1)
Else
RichTextBox1.Text = RichTextBox1.Text + vbNewLine + TextBox4.Text
' TextBox4.Text = TextBox4.Text.Substring(0, TextBox4.Text.Length - 1)
TextBox4.Clear()
End If
TextBox5.Select()
End If
End Sub
Private Sub TextBox5_KeyDown(sender As Object, e As KeyEventArgs) Handles TextBox5.KeyDown
If e.KeyCode = Keys.Enter Then
If RichTextBox1.Text = "" Then
RichTextBox1.Text = TextBox5.Text
TextBox5.Text = TextBox5.Text.Substring(0, TextBox5.Text.Length - 1)
Else
RichTextBox1.Text = RichTextBox1.Text + vbNewLine + TextBox5.Text
'TextBox5.Text = TextBox5.Text.Substring(0, TextBox5.Text.Length - 1)
TextBox5.Clear()
End If
TextBox6.Select()
End If
End Sub
Private Sub TextBox6_KeyDown(sender As Object, e As KeyEventArgs) Handles TextBox6.KeyDown
If e.KeyCode = Keys.Enter Then
If RichTextBox1.Text = "" Then
RichTextBox1.Text = TextBox6.Text
TextBox6.Text = TextBox6.Text.Substring(0, TextBox6.Text.Length - 1)
Else
RichTextBox1.Text = RichTextBox1.Text + vbNewLine + TextBox6.Text
'TextBox6.Text = TextBox6.Text.Substring(0, TextBox6.Text.Length - 1)
TextBox6.Clear()
End If
TextBox7.Select()
End If
End Sub
Private Sub TextBox7_KeyDown(sender As Object, e As KeyEventArgs) Handles TextBox7.KeyDown
If e.KeyCode = Keys.Enter Then
If RichTextBox1.Text = "" Then
RichTextBox1.Text = TextBox7.Text
TextBox7.Text = TextBox7.Text.Substring(0, TextBox7.Text.Length - 1)
Else
RichTextBox1.Text = RichTextBox1.Text + vbNewLine + TextBox7.Text
'TextBox7.Text = TextBox7.Text.Substring(0, TextBox7.Text.Length - 1)
TextBox7.Clear()
End If
TextBox8.Select()
End If
End Sub
Private Sub TextBox8_KeyDown(sender As Object, e As KeyEventArgs) Handles TextBox8.KeyDown
If e.KeyCode = Keys.Enter Then
If RichTextBox1.Text = "" Then
RichTextBox1.Text = TextBox8.Text
TextBox8.Text = TextBox8.Text.Substring(0, TextBox8.Text.Length - 1)
Else
RichTextBox1.Text = RichTextBox1.Text + vbNewLine + TextBox8.Text
'TextBox8.Text = TextBox8.Text.Substring(0, TextBox8.Text.Length - 1)
TextBox8.Clear()
End If
End If
End Sub
(26-11-17, 03:34 AM)Rabeea Qbaha كتب : صديقي ارفق المشروع و اشرح لي ما الذي تريده بالضبط
هل ال rich سوف تاخذ من textbox واحد فقط ام من جميع textboxs التي بلفورم
اذا من الكل استخدم الاتي :
كود :
Private Sub TextBox1_KeyDown(sender As Object, e As KeyEventArgs) Handles TextBox1.KeyDown
If e.KeyCode = Keys.Enter Then
If RichTextBox1.Text = "" Then
RichTextBox1.Text = TextBox1.Text
TextBox1.Text = TextBox1.Text.Substring(0, TextBox1.Text.Length - 1)
Else
RichTextBox1.Text = RichTextBox1.Text + vbNewLine + TextBox1.Text
'TextBox1.Text = TextBox1.Text.Substring(0, TextBox1.Text.Length - 1)
TextBox1.Clear()
End If
TextBox2.Select()
End If
End Sub
Private Sub TextBox2_KeyDown(sender As Object, e As KeyEventArgs) Handles TextBox2.KeyDown
If e.KeyCode = Keys.Enter Then
If RichTextBox1.Text = "" Then
RichTextBox1.Text = TextBox2.Text
TextBox2.Text = TextBox2.Text.Substring(0, TextBox2.Text.Length - 1)
Else
RichTextBox1.Text = RichTextBox1.Text + vbNewLine + TextBox2.Text
'TextBox2.Text = TextBox2.Text.Substring(0, TextBox2.Text.Length - 1)
TextBox2.Clear()
End If
TextBox3.Select()
End If
End Sub
Private Sub TextBox3_KeyDown(sender As Object, e As KeyEventArgs) Handles TextBox3.KeyDown
If e.KeyCode = Keys.Enter Then
If RichTextBox1.Text = "" Then
RichTextBox1.Text = TextBox3.Text
TextBox3.Text = TextBox3.Text.Substring(0, TextBox3.Text.Length - 1)
Else
RichTextBox1.Text = RichTextBox1.Text + vbNewLine + TextBox3.Text
'TextBox3.Text = TextBox3.Text.Substring(0, TextBox3.Text.Length - 1)
TextBox3.Clear()
End If
TextBox4.Select()
End If
End Sub
Private Sub TextBox4_KeyDown(sender As Object, e As KeyEventArgs) Handles TextBox4.KeyDown
If e.KeyCode = Keys.Enter Then
If RichTextBox1.Text = "" Then
RichTextBox1.Text = TextBox4.Text
TextBox4.Text = TextBox4.Text.Substring(0, TextBox4.Text.Length - 1)
Else
RichTextBox1.Text = RichTextBox1.Text + vbNewLine + TextBox4.Text
' TextBox4.Text = TextBox4.Text.Substring(0, TextBox4.Text.Length - 1)
TextBox4.Clear()
End If
TextBox5.Select()
End If
End Sub
Private Sub TextBox5_KeyDown(sender As Object, e As KeyEventArgs) Handles TextBox5.KeyDown
If e.KeyCode = Keys.Enter Then
If RichTextBox1.Text = "" Then
RichTextBox1.Text = TextBox5.Text
TextBox5.Text = TextBox5.Text.Substring(0, TextBox5.Text.Length - 1)
Else
RichTextBox1.Text = RichTextBox1.Text + vbNewLine + TextBox5.Text
'TextBox5.Text = TextBox5.Text.Substring(0, TextBox5.Text.Length - 1)
TextBox5.Clear()
End If
TextBox6.Select()
End If
End Sub
Private Sub TextBox6_KeyDown(sender As Object, e As KeyEventArgs) Handles TextBox6.KeyDown
If e.KeyCode = Keys.Enter Then
If RichTextBox1.Text = "" Then
RichTextBox1.Text = TextBox6.Text
TextBox6.Text = TextBox6.Text.Substring(0, TextBox6.Text.Length - 1)
Else
RichTextBox1.Text = RichTextBox1.Text + vbNewLine + TextBox6.Text
'TextBox6.Text = TextBox6.Text.Substring(0, TextBox6.Text.Length - 1)
TextBox6.Clear()
End If
TextBox7.Select()
End If
End Sub
Private Sub TextBox7_KeyDown(sender As Object, e As KeyEventArgs) Handles TextBox7.KeyDown
If e.KeyCode = Keys.Enter Then
If RichTextBox1.Text = "" Then
RichTextBox1.Text = TextBox7.Text
TextBox7.Text = TextBox7.Text.Substring(0, TextBox7.Text.Length - 1)
Else
RichTextBox1.Text = RichTextBox1.Text + vbNewLine + TextBox7.Text
'TextBox7.Text = TextBox7.Text.Substring(0, TextBox7.Text.Length - 1)
TextBox7.Clear()
End If
TextBox8.Select()
End If
End Sub
Private Sub TextBox8_KeyDown(sender As Object, e As KeyEventArgs) Handles TextBox8.KeyDown
If e.KeyCode = Keys.Enter Then
If RichTextBox1.Text = "" Then
RichTextBox1.Text = TextBox8.Text
TextBox8.Text = TextBox8.Text.Substring(0, TextBox8.Text.Length - 1)
Else
RichTextBox1.Text = RichTextBox1.Text + vbNewLine + TextBox8.Text
'TextBox8.Text = TextBox8.Text.Substring(0, TextBox8.Text.Length - 1)
TextBox8.Clear()
End If
End If
End Sub
الاخ خالد السلام علكيم قد يساعدك الكود التالي فانه مختصر وجزى الله خيرا الاخ الذي وضح لك حل المشكلة لكن لاحظ هذا الكود يضمن لك حذف الفرغات من النص في حالة الضغط على مفتاح المسطرة (space) والله الموفق
Private Sub TextBox1_KeyDown(sender As Object, e As KeyEventArgs) Handles TextBox1.KeyDown, TextBox2.KeyDown, TextBox3.KeyDown, TextBox4.KeyDown
If e.KeyCode = Keys.Enter Then
If RichTextBox1.Text = "" Then
RichTextBox1.Text = Trim(sender.Text)
Else
RichTextBox1.Text = RichTextBox1.Text + vbNewLine + sender.Text
End If
sender.Clear()
End If
(04-12-17, 09:47 PM)المهندس الاول كتب : الاخ خالد السلام علكيم قد يساعدك الكود التالي فانه مختصر وجزى الله خيرا الاخ الذي وضح لك حل المشكلة لكن لاحظ هذا الكود يضمن لك حذف الفرغات من النص في حالة الضغط على مفتاح المسطرة (space) والله الموفق
Private Sub TextBox1_KeyDown(sender As Object, e As KeyEventArgs) Handles TextBox1.KeyDown, TextBox2.KeyDown, TextBox3.KeyDown, TextBox4.KeyDown
If e.KeyCode = Keys.Enter Then
If RichTextBox1.Text = "" Then
RichTextBox1.Text = Trim(sender.Text)
Else
RichTextBox1.Text = RichTextBox1.Text + vbNewLine + sender.Text
End If
sender.Clear()
End If