View Full Version : سوال: اضافه کردن سطرهای TextBox در ListBox
mmssoft
جمعه 19 شهریور 1389, 09:45 صبح
سلام به همه دوستان
من توی فرمم یک TextBox دارم که مثلا 100+ تا سطر داره. می خوام هر کدوم از این سطرها به صورت یک آیتم به ListBox اضافه بشن. با چه کدی می تونم این کار رو انجام بدم؟
Saman_12
جمعه 19 شهریور 1389, 14:02 عصر
List.Clear
Dim Str() As String, NewStr
Str = Split(Text.Text, vbCrLf)
For Each NewStr In Str
List.AddItem (NewStr)
Next
mmssoft
جمعه 19 شهریور 1389, 20:25 عصر
ممنون دوست عزیز
حالا یه سوال دیگه. با چه کدی می تونیم تعداد آیتم های یک ListBox رو بشماریم و اگر از یک مقدار بیشتر بود، اضافی ها رو از لیست حذف کنیم؟؟؟
ali1234567890
جمعه 19 شهریور 1389, 20:47 عصر
Private Sub Command1_Click()
Dim itemsnumber As Integer
itemsnumber = List1.ListCount
Text1.Text = itemsnumber
End Sub
Saman_12
جمعه 19 شهریور 1389, 20:47 عصر
If List.ListCount > 3 Then List.RemoveItem (List.ListCount - 1 )
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.