فيلتر كردن بعضي كلمات در ليست باكس

[hackershz]

سلام دوستان یه سوال ساده
کی میدونه چه جوری باید کلمات رو تو لیست باکس فیلتر کرد
مثلا من یه لیست باکس دارم
که کلمه ی مثلا book بهش اضافه ميشه پاک بشه یعنی نذاره اضافه بشه ؟

[parselearn]

http://www.barnamenevis.org/forum/showthread.php?t=151743

[hackershz]

دوست عزیز من تکست باکس رو نمیگم من لیست باکس رو میگم list box لطفا اگه کسی بلده راهنمایی کنه

[Sundown]

سلام منظورت این هست ؟


if text1.text<>"Book" then list1.addItem(text1.text)

[xxxxx_xxxxx]

سلام
اگه ليست كلمات فيلترشدتون خيلي زياده به نظر من براش يه تابع بنويسيد.
اينطوري:


Private Sub Command1_Click()
Dim s As String
s = Text1.Text
If BlackList(s) <> True Then List1.AddItem s
End Sub

Private Function BlackList(str As String) As Boolean
BlackList = False
If UCase(str) = UCase("book") Then BlackList = True
If UCase(str) = UCase("notebook") Then BlackList = True
If UCase(str) = UCase("pen") Then BlackList = True
If UCase(str) = UCase("pencil") Then BlackList = True
End Function

حالا هر كلمه اي كه مي خوايد فيلتر شه به تابع BlackList اضافه كنيد. Ucase ها رو هم براي اين گذاشتم كه كاربر اون كلمه رو چه با حروف كوچيك بنويسه چه با حروف بزرگ فيلترشه. حتي بخشي از كلمه باحروف كوچيك باشه و بخش ديگش با حروف بزرگ باز هم فيلتر ميشه.
موفق باشيد/

[hackershz]

ببين ليست باكس من قبلا اين اسم ها رو داره لیست باکس من دوقتی اجراش میکنی عبارت book توش هست قبل از اضافه کردن وجود داره و پاک نمیشه چه جوری میشه یه اسم رو تو لیست باکس پاک کرد مثلا اسم علی رو فقط تولیست باکس پاک کرد ؟

[egproje]

(شماره ايتمي كه ميخواهيد پاك كنيد) list1.removeitem
مثلا علي چهارمين اسميه كه در ليست باكس شماست . شماره ايتم علي 3 ميشه كه بايد داخل پرانتز بنويسيد
موفق باشي./