در مورد شمارنده ( تکرار )

[zarrin_306]

سلام
من یک لیست باکس دارم که میخواهم شمارنده من آنقدر بشمارد تا تعداد آیتمهای لیست باکس به عدد دلخواه که طرف در یک تکست باکس واردش می کنه برسه

مثلاً در تکس باکس ما عدد 20 رو وارد می کنیم و از ایجاد اعداد تصادفی هم استفاده می شه واعداد بین 100 تا 900 ایجاد می شه ولی ما می خواهیم درون لیست باکس اعداد بین 100 تا 200 وارد بشن با این حال شمارنده انقدر باید بشمارد تا تعداد درون لیست باکس به تعداددلخواه برسد
حال راه چیست؟

[mostafaaa]

ایجور که من متوجه شدم شما میخای یه لیست باکس با اعداد تصادفی بین 100 تا 200 داشته باشی که تعداد آیتمهاش مساوی با عددی باشه که توی تکست باکس نوشته شده.

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim RND As New Random
While ListBox1.Items.Count <= TextBox1.Text
ListBox1.Items.Add(RND.Next(100, 200))
End While
End Sub