یه سوال در مورد حلقه For

[shamsoft]

یه سوال در مورد حلقه For
حلقه For تنها برای اعداد بکار میره؟
چون من کد زیر رو که نوشتم کار نکرد:
من فکر می کردم این کد text1.text تا Text10.text رو به shamSoft تبدیل می کنه.اشکال کجاست؟

کد:

Private Sub Command1_Click()
For i = Text1 To Text10
  Texti.Text = "shamsoft"
Next i
End Sub

[Mamad2003]

دوست من سلام

اينو جانشين كدت كن :

کد:

Private Sub Command1_Click()

For i = 1 To 10
  Text(i).Text = "shamsoft"
Next i

End Sub

[محمد حسینی]

دوست من سلام

اينو جانشين كدت كن :

کد:

Private Sub Command1_Click()

For i = 1 To 10
  Text(i).Text = "shamsoft"
Next i

End Sub

البته آقا ممد اینو جا انداختن که بگن اون textboxها باید یه آرایه باشن که بجای ایندکسشون باید i بذاری

[shamsoft]

آقای Spiderman یه مشکل دیگه اینه که ایندکس فقط می تونه عدد بگیره.بدتر از اون هم اینه که به جای I نمی تونیم از عدد استفاده کنیم.حالا چی میشه؟ :(

[محمد حسینی]

متوجه نشدم . یکم بیشتر توضیح بده

[محمد حسینی]

خوب اینجا i یه عدد بین 1 تا 10 دیگه

[محمد حسینی]

اصلا اگه می خوای برات بفرستم
آی دی یاهوتو بگو تا بفرستم

[shamsoft]

يعني به جاي ايندكس بايد عدد 1 تا 10 بگذارم؟ :roll: :?

[محمد حسینی]

بایذ textbox هایی که درست می کنی اسمشون یکی باشه
بجای index هر کدوم یه عدد بزاری . که اینجا از 1 تا 10

[shamsoft]

آقاي Spiderman متشکرم.درست شد.

[mRizvandi]

سلام

ناگفته نماند كه در وي بي هم مثل خيلي از زبانهاي برنامه نويسي مي توني يك حلقه بر اساس شي داشته باشي:

کد:

FOR EACH item ON collection
any code
NEXT

:wink: