منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
خاصية الإكمال التلقائي في التكست بوكس - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : تقنية البرمجة Dev Express (http://vb4arb.com/vb/forumdisplay.php?fid=201)
+--- الموضوع : خاصية الإكمال التلقائي في التكست بوكس (/showthread.php?tid=35109)

خاصية الإكمال التلقائي في التكست بوكس - larbihamri - 04-06-20

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



RE: خاصية الإكمال التلقائي في التكست بوكس - عبد العزيز البسكري - 07-06-20

السلام عليكم و رحمة الله و بركاته
بالنسبة للإكمال التلقائي بالتاكست بوكس
إعتبار العمود رقم 5 المقصود بالبحث به ..
كود :
   Private Sub Auto_Complete_Lieu_Naissance()
       Dim Da As New OleDbDataAdapter("SELECT * From TBL_CINQUIEME", Conne_2020)
       Dim Dt As New DataTable
       Da.Fill(Dt)
       Dim DataSource As New AutoCompleteStringCollection
       For i As Integer = 0 To Dt.Rows.Count - 1
           DataSource.Add(Dt.Rows(i)(5).ToString)
       Next
       Me.TextEdit1.MaskBox.AutoCompleteCustomSource = DataSource
       Me.TextEdit1.MaskBox.AutoCompleteSource = AutoCompleteSource.CustomSource
       Me.TextEdit1.MaskBox.AutoCompleteMode = AutoCompleteMode.SuggestAppend
   End Sub

تحياتي واحتراماتي


RE: خاصية الإكمال التلقائي في التكست بوكس - larbihamri - 07-06-20

السلام عليكم اخي عبد العزيز شكرا كثيرا على الرد لكن ليس هذا هو المطلوب
عند الكتابة في التكست بوكس يظهر القريد و هي من الميزات التي توفرها الديف اكسبرس لكن كيف يمكن العمل بها

RE: خاصية الإكمال التلقائي في التكست بوكس - عبد العزيز البسكري - 08-06-20

أخي العربي ..
بالنسبة لكيفية العمل بها ..
ولا يهمّك ..
فقط أكتب الحرف الأول .. و ستظهر المقترحات بالجريد كنترول
المشكلة التي لاحظتها هي حتى و لو جعلت الجريد كنترول من اليمين إلى اليسار 
سيبقى إتجاه  و وضعية ال Find Panel من اليسار لليمين .. من ناحية المظهر أتحدث
و لإظهر الخاصية .. يمكن عمل ذلك فقط بالكود ..
كود :
 Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       GridView1.OptionsFind.AlwaysVisible = True
   End Sub

تحياتي