COMBOX

تفضلي كود التكملة التلقائية في الكمبو

في حدث KeyPress

With Combo1
If KeyAscii = 8 Then
If .SelStart = 0 Then Exit Sub
.SelStart = .SelStart - 1
.SelLength = 32000
.SelText = ""
Else
.SelText = Chr(KeyAscii)
End If
KeyAscii = 0
lngFind = SendMessage(.hwnd, CB_FINDSTRING, 0, ByVal .Text)
If lngFind = -1 Then Exit Sub
intPos = .SelStart
intLength = Len(.List(lngFind)) - Len(.Text)
.SelText = .SelText & Right(.List(lngFind), intLength)
.SelStart = intPos
.SelLength = intLength
End With

شكرا لك ولكن الكود موشغال :( SendMessage

تجدينه في هذا الرابط مع المثال

هنا مثال الاكمال التلقائي

تحياتي

شكرا لك اخي omani الامثلة مفهومه :blink: بعد طول عناء

والنتائج ولا احلى :lol: انت مستخدم KeyAscii

والاخ محمد بدوي مستخدم KeyCode يعطيكم ربي الف عافيه تحياتي

وشكرا اخي على vbCr B)

بس لو تعطيني من وقتك وتشرح الاسطر التاليه اكون ممتنه جدا

Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

.SelLength = 32000
SendKeys "{TAB}"
lngFind = SendMessage(.hwnd, CB_FINDSTRING, 0, ByVal .Text)