استفاده از تکست بجای لیست

[xrezax]

من برنامه ای دارم که یک سری اعداد رو لیست می کنه

list1.clear
for i=val(text1.text) to val(text2.text)
list1.addItem i
next i


حالا می خوام به جای اینکه توی لیست باکس لیست کنه توی یک تکست لیست کنه.

[butterfly8528]

سلام یه تکست باکس دیگه به اسم Text3 بر روی فرم قرار بده و خاصیت Multiline ش رو True کن و خاصیت Scrollbars ش رو به Vertical تعغیر بده . و کد زیر رو استفاده کن .


List1.Clear
For i = Val(Text1.Text) To Val(Text2.Text)
Text3.Text = Text3.Text & i & vbCrLf
Next i

موفق باشی