TEXTBOX گوگلي!

[Tifon_vb]

توي موتور هاي جستجو مثلا واژه VB 6 رو سرچ کنيد دفعه بعد به محض فشردن کليد V واژه VB6 که قبلا جستيد ظاهر ميشود
چه طوري تکست باکس رو تنظيم کنيم که به اين شکل شود
بدون استفاده از ديتابيس

[xxxxx_xxxxx]

بدون استفاده از ديتابيس

خوب از يك فايل براي ذخيره عبارات جستجو شده استفاده كنيد.
نمونه مشابه تو سايت هست. مي تونيد تعميمش بديد

[Tifon_vb]

خوب از يك فايل براي ذخيره عبارات جستجو شده استفاده كنيد.
نمونه مشابه تو سايت هست. مي تونيد تعميمش بديد
ما که هرچي جستيم چيزي پيدا نکرديم
اگر شما جايي سراغ داري آدرسشو هم به ما بده

[xxxxx_xxxxx]

AutoComplete for ComboBox:


Private miSelStart As Integer
Private Sub Combo1_KeyDown(KeyCode As Integer, Shift As Integer)
'<Delete>
If KeyCode = 46 Then KeyCode = 0 'Disable the delete key

miSelStart = Combo1.SelStart
End Sub

Private Sub Combo1_KeyPress(KeyAscii As Integer)
Dim lCnt As Long 'Generic long counter
Dim lMax As Long
Dim sComboItem As String
Dim sComboText As String 'Text currently in combobox
Dim sText As String 'Text after keypressed

With Combo1
lMax = .ListCount - 1
sComboText = .TEXT
sText = Left(sComboText, miSelStart) & Chr(KeyAscii)

KeyAscii = 0 'Reset key pressed

For lCnt = 0 To lMax
sComboItem = .List(lCnt)

If UCase(sText) = UCase(Left(sComboItem, _
Len(sText))) Then
.ListIndex = lCnt
.TEXT = sComboItem
.SelStart = Len(sText)
.SelLength = Len(sComboItem) - (Len(sText))

Exit For
End If
Next 'lCnt
End With
End Sub


اين كد براي كمبوباكس هست.
يه كمبو بزار رو فرم و ظاهرشو مثل textbox كن.
بازم براي اون چيزي كه مي خوايد يه تغييرات جزئي بايد داده بشه.

[Mohsen6558]

فایل نمونه ضمیمه شد