ghaem-soft
دوشنبه 09 تیر 1393, 20:34 عصر
سلام دوستان من کد زیر را در یک تایمر قرار دادم
هر چه در RichTextBox1 تایپ کنم به صورت حرف حرف ( خیلی مهم است که به صورت حرف حرف باشد )
در RichTextBox2 نوشته می شود
For a As Integer = 0 To RichTextBox1.Text.Length - 1
On Error GoTo e
Dim in1 As Integer
in1 = 1
RichTextBox1.Select(0, in1)
RichTextBox1.Cut()
RichTextBox2.Paste()
Next
e: Exit Sub
بنده این نکته را می خواهم که در RichTextBox2 همیشه خط آخر نشان داده شود
یعنی scroll در پایین ترین مکان قرار گیرد
با تشکر
هر چه در RichTextBox1 تایپ کنم به صورت حرف حرف ( خیلی مهم است که به صورت حرف حرف باشد )
در RichTextBox2 نوشته می شود
For a As Integer = 0 To RichTextBox1.Text.Length - 1
On Error GoTo e
Dim in1 As Integer
in1 = 1
RichTextBox1.Select(0, in1)
RichTextBox1.Cut()
RichTextBox2.Paste()
Next
e: Exit Sub
بنده این نکته را می خواهم که در RichTextBox2 همیشه خط آخر نشان داده شود
یعنی scroll در پایین ترین مکان قرار گیرد
با تشکر