PDA

View Full Version : سوال: در مورد Multiline تکس باکس


Snoopboy
دوشنبه 15 شهریور 1389, 19:20 عصر
با سلام و خسته نباشید .
من برنامه نوشتم که هندل برنامه رو به دست میاره و متنی رو که من به تکست باکس میدم رو به پنجره ارسال میکنه. حالا تکست باکس رو Multi line کردم و می خوام توسط تایمر هر لاین از تکست هر 2 ثانیه ارسال بشه . اگه میشه کمکم کنید.
mohammad pro
دوشنبه 15 شهریور 1389, 19:29 عصر
دوست عزيز بيشتر توضيح بديد

براي اين كار ويژگي interval تايمر خودتون رو روي 2000 بذاريد. (2 ثانيه)

مي تونيد label هاي متعدد هم واسه نمايش بسازيد.

كار بسيار راحت هست.
Snoopboy
دوشنبه 15 شهریور 1389, 20:07 عصر
دوست عزیز من بلدم با تایمر کار کنم .
می خوام از طریق برنامه یک متنی رو ارسال کنم به پنجره ای که هندلش رو به دست آوردم .
حالا من تکس باکس رو مولتی لاین کردم تا مثلا چند خط ارسال بشه . حالا می خوام هر خط از تکس باکس من به پنجره در فاصله زمانی مثلا 2 ثانیه ارسال بشه.
parselearn
سه شنبه 16 شهریور 1389, 04:07 صبح
http://barnamenevis.org/forum/showthread.php?t=240106
Snoopboy
سه شنبه 16 شهریور 1389, 15:45 عصر
این آموزشی که گذاشتید واسه من خطا میده . چرا؟ میشه یک مثال ساده بزنید؟
MEhdi Sobhani
سه شنبه 16 شهریور 1389, 15:56 عصر
این آموزشی که گذاشتید واسه من خطا میده . چرا؟ میشه یک مثال ساده بزنید؟
با اجازه جناب parselearn من جواب میدم .
چون خدم هم الان امتحان کردم و خطا داد و بعد متوجه خطا شدم .
این تابع
Split(Text1.Text, vbCrLf)(5 - 1)یه آرایه بر میگردونه و پرانتز دوم تعیین میکنه کدوم عضو آرایه رو می خوایم .
مثلا تکتباکس 4 خط داره برای به دست آوردن خطها :



FirstLine$=Split(Text1.Text, vbCrLf)(0)
SecodLine$=Split(Text1.Text, vbCrLf)(1)
.
.
.
parselearn
سه شنبه 16 شهریور 1389, 17:30 عصر
يك راهه ديگه با همون تابع


Private Sub Command1_Click()
Dim a() As String
a = Split(Text1.Text, vbCrLf)
For i = 0 To UBound(a)
MsgBox a(i)
Next i
End Sub