اتو کامیپلیت textbox [بایگانی]

View Full Version : اتو کامیپلیت textbox

linux

پنج شنبه 10 اردیبهشت 1383, 21:05 عصر

یکسری اسم داریم میخواهیم بازدن چندتا حرف اول بقیه اسم تایپ بشه کسی چیز سراغ
داره؟

جمعه 11 اردیبهشت 1383, 00:11 صبح

سلام

http://www.devx.com/vb2themax/CodeDownload/19750

http://www.gotdotnet.com/Community/UserSamples/Details.aspx?SampleGuid=30138e02-c2c3-41cd-bc6a-09bc8fd2860b
http://www.ncotech.com/downloads/AC_Setup.exe

راستی اگر میشه اون بانک دیکشنری رو یه جائی آپلود کن :wink:

linux

جمعه 11 اردیبهشت 1383, 01:12 صبح

مرسی از لینکها ولی من سورس کد میخواهم
و فقط تکست باکس
میل بده برات بفرستم

Vahab

جمعه 11 اردیبهشت 1383, 02:41 صبح

سلام

آقا اگه میشه این بانک دیکشنری رو برای من بفرست

ممنون

pop@vahab.com

جمعه 11 اردیبهشت 1383, 10:06 صبح

اینم ایمیل من انشالله که زود بیاد
shahriyarr2001@yahoo.com

linux

جمعه 11 اردیبهشت 1383, 10:06 صبح

حالا که ایتطوری شد سعی می کنم یه جایی upload کنم تا همگی استفاده کنید ولی جواب سوال من چی شد؟

Voldemort

دوشنبه 14 اردیبهشت 1383, 17:50 عصر

لینوکس عزیز کافیه به محض تایپ شدن چیزی توی TextBox بلافاصله کل متن موجود در TextBox رو با تک تک موارد مورد نظرت مقایسه کنی. البته به شرطی که تعداد موارد زیاد نباشه. یه چیز دیگه اینکه شما نگفتی لیست مورد نظرت کجا ذخیره شده. توی دیتابیس، توی رجیستری، توی یه فایل متنی، توی ListBox یا ... تا بهتر بتونیم کمکت کنیم.

Voldemort

دوشنبه 14 اردیبهشت 1383, 17:50 عصر

بابک زواری

دوشنبه 14 اردیبهشت 1383, 20:30 عصر

بهترین راه استفاده ار شحه هست یک مثال به 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

linux

سه شنبه 15 اردیبهشت 1383, 21:21 عصر

ممنون از لطفتون
ولی من تکست باکس می خواهم یک چیزهایی را نوشتم ولی هنوز بعضی جاها می لنگه

mohsen_53

شنبه 08 مرداد 1384, 10:10 صبح

من با توابع 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

رضا دریایی

چهارشنبه 19 مرداد 1384, 23:53 عصر

بسیار سادست دوست عزیز یک کامپوننت در قسمت کام کامپوننت ها همان جایی که می توانید کامپوننتهای جدید را اضافه کنید به اسم Datagridcombobox وجود دارد که میتوانید آن را add کنید بعد از حالت simple آن مانند تکست باکس می توانید استفاده کنید حتی می توانید آن را مانند ظاهر تکست باکس کوچک کنید.اولین حرف را که نوشتید کلید سمت پایین ارو کی را بزنید ادامه کلمه را می آورد

لطفا برای من هم بانک کلماتتون را بفرستید

daryasalam@yahoo.com

ممنون میشم

Sharif Lotfi

پنج شنبه 12 مرداد 1385, 10:27 صبح

سلام
لطفا اگه براتون زحمتی نیست (که البته میدونم هست) بانک دیکشنری تون رو برای من هم بفرستید .
یک دنیا تشکر مخصوص
p_d_1382@yahoo.com
شریف لطفی