[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