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