PDA

View Full Version : ♦ یک سوال کوچک در باره تکس باکس ♦


mostafabestman
دوشنبه 22 آذر 1389, 19:41 عصر
سلام.میخوام با کلیک بر روی دکمه ای یا به استفاده از تایمر به آخرین خط یک تکس باکسی که مالتی لاینش فعاله برم.چی بنویسم.مثلأ 100 خط در جعبه متن هست.وقتی خط 101 اضافه شد(بدون تایپ) به خط آخر برم

VB.Net 2010
omid-vbAuto
دوشنبه 22 آذر 1389, 19:52 عصر
سلام.میخوام با کلیک بر روی دکمه ای یا به استفاده از تایمر به آخرین خط یک تکس باکسی که مالتی لاینش فعاله برم.چی بنویسم.مثلأ 100 خط در جعبه متن هست.وقتی خط 101 اضافه شد(بدون تایپ) به خط آخر برم

VB.Net 2010

دوست عزیز منظورتون این هست که طی عملیاتی چشمک زن علامت تایپ رو به انتهای متن موجود در Textbox بفرستیم؟
mostafabestman
دوشنبه 22 آذر 1389, 19:58 عصر
بله.در واقع اسکرول به انتها رفته بشه و آخرین خط نمایش داده بشه
Rezahak
دوشنبه 22 آذر 1389, 20:09 عصر
در click دکمه یا timer باید کد زیر را بیویسید:

If TextBox1.Text <> "" Then
TextBox1.Text &= vbCrLf
TextBox1.SelectionStart = TextBox1.Text.Length
End If

TextBox1.Select()
ali_najari
دوشنبه 22 آذر 1389, 20:22 عصر
دوست عزيز شما بايد Scroll مربوط به textbox رو فعال كنيد بعد دستورات زير رو توي Button Click يا توي timer خودتون قرار دهيد:


TextBox1.SelectionStart = TextBox1.Text.Length
TextBox1.ScrollToCaret()
TextBox1.Focus()
ali_najari
دوشنبه 22 آذر 1389, 20:26 عصر
در click دکمه یا timer باید کد زیر را بیویسید:

If TextBox1.Text <> "" Then
TextBox1.Text &= vbCrLf
TextBox1.SelectionStart = TextBox1.Text.Length
End If

TextBox1.Select()

دوست عزيز اگر دقت كنيد ميخواهند كه بصورت اتوماتيك Scroll انجام بشه!
با دستور شما فقط مكان textEditor به آخر جمله ها ميره و هيچ Scrolly انجام نميگيره مگر اينكه اين دستور نيز اضافه بشه :


TextBox1.ScrollToCaret()
mostafabestman
دوشنبه 22 آذر 1389, 20:27 عصر
در click دکمه یا timer باید کد زیر را بیویسید:

If TextBox1.Text <> "" Then
TextBox1.Text &= vbCrLf
TextBox1.SelectionStart = TextBox1.Text.Length
End If

TextBox1.Select()
دوست عزیز با این روش فقط چشمک زن به آخر خط میره.من میخوام اسکرول به اخر بره و خط آخر نمایش داده بشه.فرقی نداره که چشمک زن به آخر بره یا نه....
Rezahak
دوشنبه 22 آذر 1389, 20:30 عصر
If TextBox1.Text <> "" Then
TextBox1.Text &= vbCrLf
TextBox1.SelectionStart = TextBox1.Text.Length
TextBox1.ScrollToCaret()
End If

TextBox1.Select()
ali_najari
دوشنبه 22 آذر 1389, 20:34 عصر
دوست عزيز از اين كد براي رفتن به آخر و Scroll شدن ميتونيد استفاده كنيد
و اگر قصد ايجاد خط جديد داريد از دستوري كه دوستمون اصلاح كردن و گذاشتن ميتونيد استفاده كنيد:


TextBox1.SelectionStart = TextBox1.Text.Length
TextBox1.ScrollToCaret()
TextBox1.Focus()