کامبو باکس

[khomar]

یه کامبو باکس دارم که می خوام به فیلد نام از یکی از جدول های اکسس اتصال داشته باشه حالا در هنگام اجرا می خوام مثلا وقتی م رو می زنم تمام اسم هایی که با م شروع شدن رو برام بیاره (مثل سرچ ویندوز )

[yavari]

سلام
یه سرچ بکن ، هست !
موفق باشی

[khomar]

سرچ کردم اما اونی که من می خواستم نبود یا شایدم بود و من ندیدم

[hamid2002ir]

از دیتا کمبو استفاده کن مخصوص این کاره
DataCombo

[khomar]

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

[شاپرک]

من هم سرچ کردم ولی چیزی دستگیرم نشد .
لطفا بگید چه جوری میشه اینکار رو کرد ؟

[vb341]

از کنترل datacombo خود Vb استفاده کن . خودش این خاصیت رو داره و وقتی شما حرف م رو زدی کلید جهت رو به پائین رو بزن . یکی یکی اسمهائی که با حرف م شروع شده رو برات میاره

[Hossein Bazyan]

دوست عزیز سلام
کد زیر را در KeyUp کمبوباکست بنویس مشکل حله !!!



Private Sub cboSearch_KeyUp(KeyCode As Integer, _
Shift As Integer)
Static NoSelectText As String
Dim i As Long
Const RGBerror = 255
With cboSearch
If KeyCode = vbKeyUp Then Exit Sub
If KeyCode = vbKeyDown Then Exit Sub
If KeyCode = vbKeyLeft Then Exit Sub
If KeyCode = vbKeyRight Then Exit Sub
If KeyCode <> vbKeyBack Then
NoSelectText = Mid(.Text, 1, Len(.Text) - .SelLength)
Else
If NoSelectText <> "" Then
NoSelectText = Mid(NoSelectText, 1, Len(NoSelectText) - 1)
End If
End If
For i = 0 To .ListCount - 1
If UCase(NoSelectText) = UCase(Mid(.List(i), 1, Len(NoSelectText))) Then
.ListIndex = i
Exit For
End If
Next
.SelStart = Len(NoSelectText)
.SelLength = Len(.Text)
If .ListIndex = -1 Then
.BackColor = RGBerror
Else
.BackColor = vbWindowBackground
End If
End With
End Sub


در کد بالا نام کمبوباکس cboSearch میباشد

[شاپرک]

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

ممنونم من این خاصیت رو نمیدونستم دنبال همین بودم

Hossein Bazyan
از شما هم ممنون من منظورم Datacombo بود که حل شد

[khomar]

با این که هنوز امتحانش نکردم اما از کمکتون ممنون

[شاپرک]

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

[شاپرک]

\????????????????????