AutoCompelete DataCombo

[شاپرک]

جالب بود شما هم ببینید

[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 میباشد

[شاپرک]

دوست عزیز من منظورم DataCombo بود نه Combo Box !!!!!

[Hossein Bazyan]

هیچ فرقی نمیکنه در DataCombo هم جواب میده . مگه DataCombo خاصیت KeyUp نداره ؟
فقط یکسیر تغییرات جزئی میخواد

[شاپرک]

شما خودتون امتحانش کردید ؟

[شاپرک]

Data Combo خاصیت .ListCount و ListIndex نداره ....

[Hossein Bazyan]

نه راستش امتحان نکرده بودم و حق با شماست اما به نظر میرسه میشه براش کار کرد و آنرا تغییر داد .