دستور for

[arman 2012]

سلام خدمت تمامی دوستان
میخوام یک برنامه بنویسم که یک دستور for داره و یک txtbox داره
مثلا عدد 10 رو که توی Txtbox وارد میکنن توی richtextbox بیاد بنویسه:
1,2,3,4,5,6,7,8,9,10 و اون ویرگول رو هم بینشون بزاره

[Fery666]

اینو یه امتحان کن ببین جواب میده :



For i = 1 To Val(TextBox1.Text)

RichTextBox1.Text = RichTextBox1.Text & i & ","

Next


یه textbox با یه Richtextbox اضافه کن

[arman 2012]

اینو یه امتحان کن ببین جواب میده :



For i = 1 To Val(TextBox1.Text)

RichTextBox1.Text = RichTextBox1.Text & i & ","

Next


یه textbox با یه Richtextbox اضافه کن

دوست عزیز واقعا ممنونم ازت
ولی یک مشکلی داره اونم اینه که برای آخریش هم ویرگول میرازه!

[Fery666]

می تونی بعد از For یه شرط بزاری که اگر i به textbox1 رسید ویرگول رو نزاره .

[arman 2012]

می تونی بعد از For یه شرط بزاری که اگر i به textbox1 رسید ویرگول رو نزاره .
خب میشه دستورشو بگید؟

[armin001]

سلام

If i=Val(TextBox1.Text) then
RichTextBox1.Text & i
Exit for
End If

[Fery666]

دیگه دوست عزیزمون armin001 (http://barnamenevis.org/member.php?260990-armin001) زحمتش رو کشیدن .

ولی بین دستور شرط اینو بنویس :
RichTextBox1.Text = RichTextBox1.Text & i