سرچ در combobox

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


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

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

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

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

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

نقل قول:

---

نوشته شده توسط sadeghbarout [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

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

---

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

نقل قول:

---

نوشته شده توسط homa m [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

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


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

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

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

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

---

سلام

کد:

---

http://atmtn.persiangig.com/Program/search.rar

---

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

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

نقل قول:

---

نوشته شده توسط _ermia [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

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

---

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

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

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

کد:

---

Option Explicit
Private Declare Function SendMessage Lib "User32" _
Alias "SendMessageA" (ByVal hWnd As Long, ByVal _
wMsg As Integer, ByVal wParam As Integer, lParam _
As Any) As Long
Const LB_FINDSTRING = &H18F

Private Sub Form_Load()
With List1
.Clear
.AddItem "CPU"
.AddItem "RAM"
.AddItem "ROM"
.AddItem "Cache"
.AddItem "Motherboard"
.AddItem "Hard Disk"
.AddItem "Floppy Disk"
End With
End Sub

Private Sub Text1_Change()
List1.ListIndex = SendMessage(List1.hWnd, LB_FINDSTRING, -1, ByVal
Text1.Text)
Text1.Text = List1.Text
End Sub

---

به همین سادگی...! نیازی به تبدیل هم نداره...! :27: :21:

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

نقل قول:

---

نوشته شده توسط homa m [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

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

---

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

نقل قول:

---

نوشته شده توسط !Plus [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

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

---

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

نقل قول:

---

نوشته شده توسط !Plus [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

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

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

کد:

---

Option Explicit
Private Declare Function SendMessage Lib "User32" _
Alias "SendMessageA" (ByVal hWnd As Long, ByVal _
wMsg As Integer, ByVal wParam As Integer, lParam _
As Any) As Long
Const LB_FINDSTRING = &H18F

Private Sub Form_Load()
With List1
.Clear
.AddItem "CPU"
.AddItem "RAM"
.AddItem "ROM"
.AddItem "Cache"
.AddItem "Motherboard"
.AddItem "Hard Disk"
.AddItem "Floppy Disk"
End With
End Sub

Private Sub Text1_Change()
List1.ListIndex = SendMessage(List1.hWnd, LB_FINDSTRING, -1, ByVal
Text1.Text)
Text1.Text = List1.Text
End Sub

---

به همین سادگی...! نیازی به تبدیل هم نداره...! :27: :21:

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

---

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

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

نقل قول:

---

نوشته شده توسط _ermia [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

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

---

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

اینم با وی بی:

کد:

---

http://atmtn.persiangig.com/Program/search%20%28VB%29.rar

---

نقل قول:

---

نوشته شده توسط homa m [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

اجزا فرم ....یه تکست باکس ...یه کامبو.....و دو تا دکمه سرچ و 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

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

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

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

[PHP]Private Sub search_Click()
r = 0
For i = 0 To Combo1.ListCount-1
If Text1.Text = Combo1.list(i) Then
Combo1.Text = Text1.Text
List1.AddItem (Combo1.Text)
Else
Combo1.AddItem (Text1.Text)
End If
Next
End Sub[/PHP]