hrj1981
چهارشنبه 07 تیر 1391, 15:21 عصر
با سلام
من به کمک API زیر از خواصیت AutoComplete استفاده میکنم ، یک نکته ای داره که نتونستم حلش کنم ، این خاصیت رو میشه فقط برای مسیر فایلها و یا لینکهای اینترنتی استفاده کرد ، حالا من میخوام وقتی خودم یک کلمه را داخل تکست باکس تایپ کردم و خارج شدم بعد فوکوس مجدد هر وقت اول اون کلمه رو تایپ کنم کلمه ای قبلا تایپ شده رو فراخوانی کنه ، مثل گوگل یا چندین برنامه مشابه دیگه
خود API و توابعش رو براتون میذارم
'Code by L�cio Chaves (luciochaves@bol.com.br)
'This program needs a textbox ('Text1') on a form
Private Const SHACF_AUTOAPPEND_FORCE_OFF = &H80000000
Private Const SHACF_AUTOAPPEND_FORCE_ON = &H40000000
Private Const SHACF_AUTOSUGGEST_FORCE_OFF = &H20000000
Private Const SHACF_AUTOSUGGEST_FORCE_ON = &H10000000
Private Const SHACF_DEFAULT = &H0
Private Const SHACF_FILESYSTEM = &H1
Private Const SHACF_URLHISTORY = &H2
Private Const SHACF_URLMRU = &H4
Private Const SHACF_USETAB = &H8
Private Const SHACF_URLALL = (SHACF_URLHISTORY Or SHACF_URLMRU)
Private Declare Sub SHAutoComplete Lib "shlwapi.dll" (ByVal hwndEdit As Long, ByVal dwFlags As Long)
Private Sub Form_Load()
SHAutoComplete Text1.hWnd, SHACF_DEFAULT
End Sub
من به کمک API زیر از خواصیت AutoComplete استفاده میکنم ، یک نکته ای داره که نتونستم حلش کنم ، این خاصیت رو میشه فقط برای مسیر فایلها و یا لینکهای اینترنتی استفاده کرد ، حالا من میخوام وقتی خودم یک کلمه را داخل تکست باکس تایپ کردم و خارج شدم بعد فوکوس مجدد هر وقت اول اون کلمه رو تایپ کنم کلمه ای قبلا تایپ شده رو فراخوانی کنه ، مثل گوگل یا چندین برنامه مشابه دیگه
خود API و توابعش رو براتون میذارم
'Code by L�cio Chaves (luciochaves@bol.com.br)
'This program needs a textbox ('Text1') on a form
Private Const SHACF_AUTOAPPEND_FORCE_OFF = &H80000000
Private Const SHACF_AUTOAPPEND_FORCE_ON = &H40000000
Private Const SHACF_AUTOSUGGEST_FORCE_OFF = &H20000000
Private Const SHACF_AUTOSUGGEST_FORCE_ON = &H10000000
Private Const SHACF_DEFAULT = &H0
Private Const SHACF_FILESYSTEM = &H1
Private Const SHACF_URLHISTORY = &H2
Private Const SHACF_URLMRU = &H4
Private Const SHACF_USETAB = &H8
Private Const SHACF_URLALL = (SHACF_URLHISTORY Or SHACF_URLMRU)
Private Declare Sub SHAutoComplete Lib "shlwapi.dll" (ByVal hwndEdit As Long, ByVal dwFlags As Long)
Private Sub Form_Load()
SHAutoComplete Text1.hWnd, SHACF_DEFAULT
End Sub