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

[vB.N3T]

دوستان من این کد رو زدم اما لیست باکس بیشتر از 20 تا اسم نمیگیره



Private Sub Command1_Click()
With CD1
CD1.DialogTitle = "Save Client Log:"
CD1.Filter = "Text File (*.txt)|*.txt|All Files (*.*)|*.*|"
CD1.ShowSave
Dim Nbr As Long
On Error Resume Next
Open .FileName For Output As #1
For Nbr = 0 To List3.ListCount - 1
Print #1, List3.List(Nbr)
Next Nbr
Close #1
End With
End Sub

مشکل کجاست

[xxxxx_xxxxx]

یه نمونه برنامه که این مشکل رو داشته باشه بزارید اینجا

[vB.N3T]

دوستان BreakPoint چیه و کارش یه کمی توضیح میخواستم

[xxxxx_xxxxx]

سلام،
وقتی روی خطوط برنامه علامت گذاری می کنید تا اجرای برنامه رو متوقف کنید، به اون نقاط میگن BreakPoint
تو VB برای BreakPoint گذاشتن باید کنار دستور موردنظر کلیک کنید(جایی که در تصویر زیر نقطه قرمز هست) تا اون دستور به رنگ قرمز دربیاد. اونوقت در حین اجرای برنامه زمانی که اجرا به اون خط برسه برنامه متوقف میشه و شما میتونید با کلید F8 برنامه رو خط به خط اجرا کنید تا نحوه اجرای دستورات رو ببینید.

http://barnamenevis.org/forum/attachment.php?attachmentid=42419&stc=1&d=1263310334

من تو پیغام خصوصی خدمت شما دوست عرض کردم که اون قسمت از برنامه که آیتم ها به لیست اضافه میشن BreakPoint بزارید تا متوجه بشید که چرا لیست باکس شما بیشتر از 20 آیتم نمیگیره.

موفق باشید/