جستجو در filelistbox توسط یک text box برای مثال وارد کردن اسم یک فایل در textbox و یافتن فایل موجود

[aliasadi1]

وارد کردن اسم یک فایل در textbox و یافتن فایل موجود از میان فایل های لیست شده در filelistbox و در صورت وحود نداشتن فایل لیست filelistbox پیغام مناسب نمایش بدهد.از اساتید محترم خواهش می کنم جواب سوال بنده را بدهیدبه این کد خیلس احتیاج دارم تا آنجا که می شه راهنمایی کنید: با تشکر:بوس:

[Hashemvp]

سلام
اینطوری که از سوالت متوجه شدم فکر کنم این ب دردت بخوره

For HvP = 0 To List1.ListCount
If Text1.text = List1.List(HvP) Then
me.caption="پیدا شد"
End If
Next

[aliasadi1]

دست شما درد نکنه ،خیلی ممنون خداوند خیر دهد شما را ،اما هنوز امتحان نکردم

[aliasadi1]

کد را امتحان کردم error 424 ld می دهد خواهش می کنم کمک کن یک راه درست نشانم بدهید :گریه:

[Hashemvp]

میتونی بیشتر توضیح بدی یا سورس برنامه رو بذاری و یا اینکه اون تیکه از کد ک ارور میده و مشکل داری رو بذاری؟

دوست عزیز اینقدر اسپم نفرستید

[aliasadi1]

از for hvp=0 to list1.listcountخطا میگیره:run- time error424 خطای object require

[Hashemvp]

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

[aliasadi1]

خیلی ممنون سوال من جستجو در filelistbox بوده (file1)واز listboxاستفاده م نکردم (list1)
کد شما را به این صورت تغییر دادم for hvp=0 to file1.listcountکه اerrorمی دهد

[SlowCode]

خب حتما کنترل لیست باکس رو ایجاد نکردی که خطا میده.
البته درستش به این صورته:
For HvP = 0 To List1.ListCount-1

[Hashemvp]

دوست عزیز شما ی فرم جدید بساز
بعد ی دونه filebox و ی دونه Textbox و ی دونه دکمه بیار توی فرم.
بعد توی رویداد کلیک دکمه اینا رو بنویس

Private Sub Command1_Click()
For HvP = 0 To File1.ListCount
If Text1.Text = File1.List(HvP) Then
Me.Caption = "Done"
Exit Sub
Next
End Sub

[aliasadi1]

با سپاس فراوان از بردباری شما استادان عزیز آقا محسن و آقا hashem ،این کد شما را امتحان کرده ام ولی همان خطای که به شما عرض کردم را می دهد

[Hashemvp]

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

موفق باشی

[unit001]

با سپاس فراوان از بردباری شما استادان عزیز آقا محسن و آقا hashem ،این کد شما را امتحان کرده ام ولی همان خطای که به شما عرض کردم را می دهد

دوست عزیز شما اول یه FileList تو فرم اضافه کن, که به طور پیش فرض اسمش File1 هست.

بعد یه دکمه (Command) اضافه کن. (پیش فرض Command1)

بعد کد زیر رو توی رویداد کلیک Command1 کپی کن.

For i = 0 To File1.ListCount - 1
If file1.list(i) = "چیزی که می خوای جستجو کنی" Then
Msgbox i
Exit sub
End If
Next i