یکسری اسم داریم میخواهیم بازدن چندتا حرف اول بقیه اسم تایپ بشه کسی چیز سراغ
داره؟
یکسری اسم داریم میخواهیم بازدن چندتا حرف اول بقیه اسم تایپ بشه کسی چیز سراغ
داره؟
سلام
http://www.devx.com/vb2themax/CodeDownload/19750
http://www.gotdotnet.com/Community/U...a-09bc8fd2860b
http://www.ncotech.com/downloads/AC_Setup.exe
راستی اگر میشه اون بانک دیکشنری رو یه جائی آپلود کن :wink:
مرسی از لینکها ولی من سورس کد میخواهم
و فقط تکست باکس
میل بده برات بفرستم
سلام
آقا اگه میشه این بانک دیکشنری رو برای من بفرست
ممنون
pop@vahab.com
اینم ایمیل من انشالله که زود بیاد
shahriyarr2001@yahoo.com
حالا که ایتطوری شد سعی می کنم یه جایی upload کنم تا همگی استفاده کنید ولی جواب سوال من چی شد؟
لینوکس عزیز کافیه به محض تایپ شدن چیزی توی TextBox بلافاصله کل متن موجود در TextBox رو با تک تک موارد مورد نظرت مقایسه کنی. البته به شرطی که تعداد موارد زیاد نباشه. یه چیز دیگه اینکه شما نگفتی لیست مورد نظرت کجا ذخیره شده. توی دیتابیس، توی رجیستری، توی یه فایل متنی، توی ListBox یا ... تا بهتر بتونیم کمکت کنیم.
لینوکس عزیز کافیه به محض تایپ شدن چیزی توی TextBox بلافاصله کل متن موجود در TextBox رو با تک تک موارد مورد نظرت مقایسه کنی. البته به شرطی که تعداد موارد زیاد نباشه. یه چیز دیگه اینکه شما نگفتی لیست مورد نظرت کجا ذخیره شده. توی دیتابیس، توی رجیستری، توی یه فایل متنی، توی ListBox یا ... تا بهتر بتونیم کمکت کنیم.
بهترین راه استفاده ار شحه هست یک مثال به vb برات گذاشتم امیدوارم به دردت بخوره
'This project needs a ListBox, named List1 and a TextBox, named Text1
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Integer, ByVal lParam As Any) As Long
Const LB_FINDSTRING = &H18F
Private Sub Form_Load()
With List1
.AddItem "Computer"
.AddItem "Screen"
.AddItem "Modem"
.AddItem "Printer"
.AddItem "Scanner"
.AddItem "Sound Blaster"
.AddItem "Keyboard"
.AddItem "CD-Rom"
.AddItem "Mouse"
End With
End Sub
Private Sub Text1_Change()
'Retrieve the item's listindex
List1.ListIndex = SendMessage(List1.hwnd, LB_FINDSTRING, -1, ByVal CStr(Text1.Text))
End Sub
ممنون از لطفتون
ولی من تکست باکس می خواهم یک چیزهایی را نوشتم ولی هنوز بعضی جاها می لنگه
من با توابع api کار می کنم , امیدوارم مورد استفاده شما قرار بگیره
ابتدا در رویداد textbox1_TextChanged آن TextBox که در حال تایپ در آن هستیم مقدار زیر را وارد
کنید
ListBox1.SelectedIndex = SendMessage(ListBox1.Handle, LB_FINDSTRING, -1, TextBox1.Text).ToInt64
و بعد تابع زیر را هم به برنامه خود اضافه میکنیم
Declare Auto Function SendMessage Lib "user32" (ByVal hWnd As IntPtr, ByVal msg As Integer, ByVal wParam As Integer, ByVal lParam As String) As IntPtr
Const LB_FINDSTRING = &H18F
بسیار سادست دوست عزیز یک کامپوننت در قسمت کام کامپوننت ها همان جایی که می توانید کامپوننتهای جدید را اضافه کنید به اسم Datagridcombobox وجود دارد که میتوانید آن را add کنید بعد از حالت simple آن مانند تکست باکس می توانید استفاده کنید حتی می توانید آن را مانند ظاهر تکست باکس کوچک کنید.اولین حرف را که نوشتید کلید سمت پایین ارو کی را بزنید ادامه کلمه را می آورد
لطفا برای من هم بانک کلماتتون را بفرستید
daryasalam@yahoo.com
ممنون میشم
سلام
لطفا اگه براتون زحمتی نیست (که البته میدونم هست) بانک دیکشنری تون رو برای من هم بفرستید .
یک دنیا تشکر مخصوص
p_d_1382@yahoo.com
شریف لطفی