+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] طلب تعديل على الكود (/showthread.php?tid=44648)
طلب تعديل على الكود - AMAZ1972AMAZ - 31-12-22
السلام عليكم
ممكن تعديل على الكود بحيت عند Click بالماوس فى التكسة بكس تظهر القائمة كاملة تحت التكست بكس ويتم الاختيار منها
الان الكود يخرج القائمة التى تبدأ بنفس الحرف عند الكتابة فى التكسة بكس وهدا هو الكود ارجو التعديل علية لو امكن
Private Sub TextBox9_TextChanged(sender As Object, e As EventArgs) Handles TextBox9.TextChanged
Dim col As New AutoCompleteStringCollection
col.Add("Normal")
col.Add("Budget")
col.Add("Emergency")
col.Add("Shutdown")
TextBox9.AutoCompleteSource = AutoCompleteSource.CustomSource
TextBox9.AutoCompleteCustomSource = col
TextBox9.AutoCompleteMode = AutoCompleteMode.Suggest
Return
End Sub
RE: طلب تعديل على الكود - asmarsou - 31-12-22
(31-12-22, 04:43 PM)AMAZ1972AMAZ كتب : السلام عليكمو عليكم السلام و رحمة الله و بركاته
ممكن تعديل على الكود بحيت عند Click بالماوس فى التكسة بكس تظهر القائمة كاملة تحت التكست بكس ويتم الاختيار منها
الان الكود يخرج القائمة التى تبدأ بنفس الحرف عند الكتابة فى التكسة بكس وهدا هو الكود ارجو التعديل علية لو امكن
Private Sub TextBox9_TextChanged(sender As Object, e As EventArgs) Handles TextBox9.TextChanged
Dim col As New AutoCompleteStringCollection
col.Add("Normal")
col.Add("Budget")
col.Add("Emergency")
col.Add("Shutdown")
TextBox9.AutoCompleteSource = AutoCompleteSource.CustomSource
TextBox9.AutoCompleteCustomSource = col
TextBox9.AutoCompleteMode = AutoCompleteMode.Suggest
Return
End Sub
اعتقد ان ما يلي هو ما تقصده
PHP كود :
Public Class Form2
Dim col As New AutoCompleteStringCollection
Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
col.Add("Normal")
col.Add("Budget")
col.Add("Emergency")
col.Add("Shutdown")
TextBox9.AutoCompleteSource = AutoCompleteSource.CustomSource
TextBox9.AutoCompleteCustomSource = col
TextBox9.AutoCompleteMode = AutoCompleteMode.Suggest
End Sub
Private Sub TextBox9_KeyDown(sender As Object, e As KeyEventArgs) Handles TextBox9.KeyDown
If e.KeyCode = Keys.Enter Then
If Not col.Contains(TextBox9.Text) Then
TextBox9.AutoCompleteCustomSource.Add(TextBox9.Text)
End If
ElseIf e.KeyCode = Keys.Delete Then
col.Remove(TextBox9.Text)
TextBox9.AutoCompleteCustomSource = col
TextBox9.Clear()
End If
End Sub
End Class
RE: طلب تعديل على الكود - AMAZ1972AMAZ - 31-12-22
بارك الله فيك اخى الكريم على الرد ولاكن الكود لم يفى بالمطلوب ممكن تقصير منى فى توضيح المطلوب بالظبط
والمطلوب هو فى الكود 4 خيارات ( 4 ITEM) المطلوب عند الظغط بالماوس فى التكست بكس تخرج القائمة كاملة تحت التكسة بكس ويتم اختيار الخيار المناسب ليكتب بالتكسة بكس مرفق صورة توضح المطلوب بالظبط وشكرا
RE: طلب تعديل على الكود - asmarsou - 31-12-22
(31-12-22, 09:21 PM)AMAZ1972AMAZ كتب : بارك الله فيك اخى الكريم على الرد ولاكن الكود لم يفى بالمطلوب ممكن تقصير منى فى توضيح المطلوب بالظبط
والمطلوب هو فى الكود 4 خيارات ( 4 ITEM) المطلوب عند الظغط بالماوس فى التكست بكس تخرج القائمة كاملة تحت التكسة بكس ويتم اختيار الخيار المناسب ليكتب بالتكسة بكس مرفق صورة توضح المطلوب بالظبط وشكرا
اعتقد ان كان كذلك فما عليك الا باداة ال ContextMenueStrip فهي اسهل فقط كليك يمين على التكست بوكس فتظهر القائمة المنسدلة بما تحويه من عناصر ثم عند اختيار عنصر من القائمة سيكتب في التكست بوكس
و هذا مثال بسيط لذلك