الاكمال التلقائي في الكمبو بوكس

السلام عليكم,

اعمل ذلك لا بد لك من أن يحتوي جهازك على المتصفح I.E 5.0 اصدار الخامس او اكثر

ولعمل تجربة اعمل فورم واضف اليها التالي

و text box

(Text1)

و زر

(Command1)

الخطوة الاولى ان تعلن عن بعض الوظائف التي سوف تستعملها من وظائف الوندوز الاساسية

Private Declare Function SHAutoComplete Lib "shlwapi" _
  (ByVal hwndEdit As Long, _
   ByVal dwFlags As Long) As Long

الخطوة النالية هي ان تضيف الكود التالي المصدر في الزر command1

Private Declare Function SHAutoComplete Lib "shlwapi" _
  (ByVal hwndEdit As Long, _
   ByVal dwFlags As Long) As Long


Private Sub Command1_Click()
'لقيمة 0 التي استعملتها في المثال يمكنك تغيرها كالتالي
'1 لكي يعرض حتى الملفات الخاصة بالنظام
'

 Call SHAutoComplete(Text1.hWnd, &H0)
     
Text1.SetFocus
      Text1.SelStart = Len(Text1.Text)


End Sub

عند التشغيل سوف يظهر لك العناوين التي زرتها في الاكسبلورر

بالطبع عندماىتريد ان تعرض الاكمال التلقائي للكومبو بكس من قائمة كلمات خاصة بك يمكنك ان تستعمل الرجستري و بعض القراءة و الكتابة منها واليها

والسلام عليكم