[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

[asmarsou]

(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 


[AMAZ1972AMAZ]

بارك الله فيك اخى الكريم على الرد ولاكن الكود لم يفى بالمطلوب ممكن تقصير منى فى توضيح المطلوب بالظبط
والمطلوب هو فى الكود 4 خيارات ( 4 ITEM) المطلوب عند الظغط بالماوس فى التكست بكس تخرج القائمة كاملة تحت التكسة بكس ويتم اختيار الخيار المناسب ليكتب بالتكسة بكس مرفق صورة توضح المطلوب بالظبط وشكرا

[asmarsou]

(31-12-22, 09:21 PM)AMAZ1972AMAZ كتب : بارك الله فيك اخى الكريم على الرد ولاكن الكود لم يفى بالمطلوب ممكن تقصير منى فى توضيح المطلوب بالظبط
والمطلوب هو فى الكود 4 خيارات ( 4 ITEM) المطلوب عند الظغط بالماوس فى التكست بكس تخرج القائمة كاملة تحت التكسة بكس ويتم اختيار الخيار المناسب ليكتب بالتكسة بكس مرفق صورة توضح المطلوب بالظبط وشكرا

اعتقد ان كان كذلك فما عليك الا باداة ال ContextMenueStrip  فهي اسهل فقط كليك يمين على التكست بوكس فتظهر القائمة المنسدلة بما تحويه من عناصر ثم عند اختيار عنصر من القائمة سيكتب في التكست بوكس
و هذا مثال بسيط لذلك