سرچ در combobox [آرشيو] - P30World Forums - انجمن های تخصصی پی سی ورلد

homa m

01-09-2010, 08:12

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

اجزا فرم ....یه تکست باکس ...یه کامبو.....و دو تا دکمه سرچ و add ....با یه listbox

چند تا اسمو از طریق تکست به لیست کامبو اضافه میکنیم و بعد اسمی رو در تکست میزنیم که در کامبو سرچ بشه اگه اسم تو لیست

کامبو موجود بود اونرو توی اون نشون بده.... مرحله بعدیش هم اگه اسم توی لیست کامبو باشد توی listbox نشونش بده اگرم نباشد

اونو به انتهای لیست اضافه کنه البته تو این مرحله با دکمه سرچ اضافه بشه نه با دکمه add

sadeghbarout

01-09-2010, 14:06

خب برای قسمت اول برنامه میتونی با یه حلقه for از ابتدا تا انتهای لیست کومبو رو بگردی و بنویسی که اگه اون رو پیدا کرد خاصیت تکست کومبو همون بشه و به لیست باکس اضافه بشه و اگر نبود با یه متد additem به انتهای کومبو اضافه بشه
امیدوارم متوجه شده باشی
اگه خواستی بگو تا کد یه همچین برنامه ای رو برات بنویسم:5:

homa m

01-09-2010, 16:53

خب برای قسمت اول برنامه میتونی با یه حلقه for از ابتدا تا انتهای لیست کومبو رو بگردی و بنویسی که اگه اون رو پیدا کرد خاصیت تکست کومبو همون بشه و به لیست باکس اضافه بشه و اگر نبود با یه متد additem به انتهای کومبو اضافه بشه
امیدوارم متوجه شده باشی
اگه خواستی بگو تا کد یه همچین برنامه ای رو برات بنویسم:5:

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

_ermia

01-09-2010, 19:01

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

اجزا فرم ....یه تکست باکس ...یه کامبو.....و دو تا دکمه سرچ و add ....با یه listbox

چند تا اسمو از طریق تکست به لیست کامبو اضافه میکنیم و بعد اسمی رو در تکست میزنیم که در کامبو سرچ بشه اگه اسم تو لیست

کامبو موجود بود اونرو توی اون نشون بده.... مرحله بعدیش هم اگه اسم توی لیست کامبو باشد توی listbox نشونش بده اگرم نباشد

اونو به انتهای لیست اضافه کنه البته تو این مرحله با دکمه سرچ اضافه بشه نه با دکمه add

سلام

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

homa m

01-09-2010, 20:07

سلام ممنون عالی بود درست همونی که میخواستم ولی یه مشکلی من از سورسش چیزی متوجه نشدم بصورت ماژول سیو کردید اگه میشه بصورت پروژه برام بذارید :10:

_ermia

01-09-2010, 20:21

متوجه منظورتون نمیشم
کل پروژه رو آپلود کردم براتون دیگه!
با ویژوال استودیو که بازکردید، F7 رو بزنید، قسمت کد رو میاره دیگه
البته من با سی شارپ نوشتم، چون الان تازه دیدم شما تو بخش وی بی پست دادید!
اما فکر نکنم مشلی باشه، میتونید تبدیلش کنید به وی بی خودتون

homa m

01-09-2010, 20:42

متوجه منظورتون نمیشم
کل پروژه رو آپلود کردم براتون دیگه!
با ویژوال استودیو که بازکردید، F7 رو بزنید، قسمت کد رو میاره دیگه
البته من با سی شارپ نوشتم، چون الان تازه دیدم شما تو بخش وی بی پست دادید!
اما فکر نکنم مشلی باشه، میتونید تبدیلش کنید به وی بی خودتون

چطوری تبدیل میکنند ؟

!Plus

01-09-2010, 20:50

این مسخره بازی ها چیه دیگه...؟ :13:

با دو خط کد میشه عملیات جستجو رو به صورت خودکار انجام داد...! :27:

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنیدبه همین سادگی...! نیازی به تبدیل هم نداره...! :27: :21:

موفق باشید...! :46:

_ermia

01-09-2010, 21:38

چطوری تبدیل میکنند ؟
کد منو نگاه کنید، معادل وی بیش رو بنویسید دیگه!
خیلی شبیهن، تفاوت های کوچیکی هست مثل اینکه تو وی بی Begin و Ed استفاده میشه برای شروع و پایان (اگه اشتباه نکنم)اما تو سی شارپ از آکولاد باز و بسته و ...
سایت هایی هم هست برای تبدیل کد های نوشته شده زبان های مختلف به هم
متاسفانه وی بی کار نمیکنم اصلا، اما اگه تونستم تبدیل کنم، براتون میذارم

این مسخره بازی ها چیه دیگه...؟ :13:

مودبانه صحبت کنید لطفا

homa m

01-09-2010, 22:36

این مسخره بازی ها چیه دیگه...؟ :13:

با دو خط کد میشه عملیات جستجو رو به صورت خودکار انجام داد...! :27:

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنیدبه همین سادگی...! نیازی به تبدیل هم نداره...! :27: :21:

موفق باشید...! :46:

:19:متوجه سوال من شدی یکبار دیگه بخون منظور من این نبود که شما زحمتشو کشیدی به هر حال ممنون

---------- Post added at 11:36 PM ---------- Previous post was at 11:32 PM ----------

کد منو نگاه کنید، معادل وی بیش رو بنویسید دیگه!
خیلی شبیهن، تفاوت های کوچیکی هست مثل اینکه تو وی بی Begin و Ed استفاده میشه برای شروع و پایان (اگه اشتباه نکنم)اما تو سی شارپ از آکولاد باز و بسته و ...
سایت هایی هم هست برای تبدیل کد های نوشته شده زبان های مختلف به هم
متاسفانه وی بی کار نمیکنم اصلا، اما اگه تونستم تبدیل کنم، براتون میذارم

خیلی لطف میکنی ممنون میشم

_ermia

01-09-2010, 22:37

اینم با وی بی:

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

homa m

02-09-2010, 03:02

اجزا فرم ....یه تکست باکس ...یه کامبو.....و دو تا دکمه سرچ و add ....با یه listbox

چند تا اسمو از طریق تکست به لیست کامبو اضافه میکنیم و بعد اسمی رو در تکست میزنیم که در کامبو سرچ بشه اگه اسم تو لیست

کامبو موجود بود اونرو توی اون نشون بده.... مرحله بعدیش هم اگه اسم توی لیست کامبو باشد توی listbox نشونش بده اگرم نباشد

اونو به انتهای لیست اضافه کنه البته تو این مرحله با دکمه سرچ اضافه بشه نه با دکمه add

اینم برنامه ای که نوشتم اصلا کار نمیکنه....

Private Sub search_Click()
r = 0
For i = 0 To Combo1.ListIndex
If Text1.Text = Combo1.Text Then
Combo1.Text = Text1.Text
List1.AddItem (Combo1.Text)
Else
Combo1.AddItem (Text1.Text)
End If
Next
End Sub

sadeghbarout

02-09-2010, 09:58

ای بابا
از دیروز تا حالا چقدر آدم ریخته تو این گفتگو:18:
انگار پا قدمم خیر بوده و جوابت رو گرفتی:31:
اگه جوابت رو نگرفتی بگو تا منم راهم رو بنویسم:5:

sadeghbarout

02-09-2010, 10:07

اهان من الان این تایپک آخری تو رو دیدم:27:
خب معلومه چرا کار نمیکنه
تو باید حلقه for رو تا listcount ادامه بدی نه تا listindex

البته یه تغییر دیگه هم میخواد
این هم کد کاملش:5:

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید