سوالی در مورد لیست باکس

[tehran2009]

من یک لیست باکس دارم که چندتا نوشته لیست شده و یک کامند هم کذاشتم که وقتی روش کلیک می کنم یکی یکی نوشته ها رو می خونه . بدین شکل

For i=0 to List1.ListCount-1
DoEvents
List1.ListIndex=i
Next i

حالا می خوام وقتی برنامه به ارورر بر بخوره برنامه متوقف بشه.
من از دستوری که استفاده کردم وقتی برنامه اررور می ده و من ok می کنم برنامه می ره روی کلمه بعد سلکت می کنه یعنی متوقف نمی شه .

به برنامه ای که ضمیمه کردم یه نگاهی بندازین سوالم واضحه .

[Babak.Hassanpour]

سلام دوست عزیز
کافیه یه Exit Sub
بعد از دستور Msgbox بزاری .همین

[reza_mn]

شما میتوانید درون حلقه از Exit For نیز برای خروج از حلقه استفاده نمائید.

[tehran2009]

چطور میشه برای یک حلقه تعریف کرد که از جایی که انتخاب شده به بعد را یکی یکی طی کنه. ( عکس ضمیمه را ببینید )

[reza_mn]

For i = List1.ListIndex To ListCount - 1

[tehran2009]

یه چندتا سوال دیگه هم دارم اونم اینن :
1- می خوام یه کامندی باشه که وقتی روش کلیک کنم هرجا حلقه ای در برنامه در حال کار باشه متوقف بشه .

2- آیا میشه داخل لیست شماره بندی کرد . مثلا ً بجای اینکه بنویسه ( رضا - محمد - احمد و... ) بنویسه ( 1- رضا - 2- محمد - 3- احمد و ... ) یعنی ردیف بزنه.

3- می خوام دوتا تکس باکس باشن و. تکس اولی نقطه شروع و تکس دومی نقطه پایان باشه ( یعنی اگر در تکس اولی بزنم 1 و تکس دومی بزنم 4 حلقه از 1 شروع بشه و تا 4 تموم بشه )

ممنون میشم با پروژه های وی بی برام توضیح بدید .

[xxxxx_xxxxx]

1- يك متغير بولي پابليك تعريف كنيد و تو همه حلقه هاي for مقدارشو چك كنيد كه اگر true بود حلقه ها متوقف شن. زمان فشردن دكمه متغير بولي مقدار true بگيره.

2- با اضافه كردن هر آيتم به ليست، listindex +1 رو هم به اول رشته اضافه كنيد

3-


For i = Val(Text1.Text) To Val(Text2.Text)
MsgBox i
Next i

موفق باشيد/

[tehran2009]

1- يك متغير بولي پابليك تعريف كنيد و تو همه حلقه هاي for مقدارشو چك كنيد كه اگر true بود حلقه ها متوقف شن. زمان فشردن دكمه متغير بولي مقدار true بگيره.

2- با اضافه كردن هر آيتم به ليست، listindex +1 رو هم به اول رشته اضافه كنيد

3-


For i = Val(Text1.Text) To Val(Text2.Text)
MsgBox i
Next i

موفق باشيد/

اگه ممکنه با پروژه های وی بی توضیح بدید ممنون میشم

[parselearn]

سوال دومتون مبهمه

[tehran2009]

ممنون از کمک خوبتون در مورد سوال دوم هم باید بگم که می خوام واسه لیست ردیف بزارم مثلاً 1-2-3-4- همینجوری به ترتیب عکس ضمیمه را مشاهده بفرمایید.

[parselearn]

Dim FirstClick As Boolean
Private Sub Command1_Click()
'List1.Clear
If FirstClick = False Then
For j = 0 To 100
List1.List(j) = CStr(j + 1) + ") " + List1.List(j)
Next

FirstClick = True
End If
End Sub

Private Sub Form_Load()
List1.Clear
For i = 0 To 100
List1.AddItem "Item" + CStr(i)
Next
End Sub

[tehran2009]

ممنون از جواب کاملتون دقیقاً چیزی هست که می خواستم ، فقط یه مشکی داره اونم اینه که تا 100 تا بیشتر نمی می ره من می خوام به اندازه تعداد شماره بزنه یعنی اگه لیست من 5 تا باشه 5 تا بزنه اگه 10 تا با شه 10 تا بزنه .
بازم ممنون

[tehran2009]

ممنون جوابمو گرفتم

Dim FirstClick As Boolean
Private Sub Command1_Click()
'List1.Clear
If FirstClick = False Then
For j = 0 To List1.ListCount - 1
List1.List(j) = CStr(j + 1) + ") " + List1.List(j)
Next

FirstClick = True
End If
End Sub
Private Sub Form_Load()
List1.Clear
For i = 0 To 1000
List1.AddItem "Item" + CStr(i)
Next
End Sub