السلام عليكم
هذا الموضوع استكمال لدورة الاكواد الشاملة 
هذا الموضوع خاص بالادوات :  اداة ComboBox 
بيئة العمل : VB.NET 2019 - يعمل على جميع اصدارات VB.NET
============================================
'3-منع المستخدم من اضافة او كتابة بداخل الكومبو
كود PHP:
Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ComboBox1.DropDownStyle = ComboBoxStyle.DropDownList
    End Sub
End Class
'3-منع المستخدم من اضافة او كتابة بداخل الكومبو 
 
'4- اكمال تلقائي عند الكتابة بداخل الكومبو
كود PHP:
Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ComboBox1.Items.Add("item1")
        ComboBox1.Items.Add("item2")
        ComboBox1.Items.Add("item3")
        ComboBox1.Items.Add("item4")
        ComboBox1.Items.Add("item5")
    End Sub
    Private Sub ComboBox1_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ComboBox1.TextChanged
        ComboBox1.AutoCompleteMode = _
        AutoCompleteMode.Suggest
        ComboBox1.AutoCompleteSource = _
        AutoCompleteSource.ListItems
    End Sub
End Class
'4- اكمال تلقائي عند الكتابة بداخل الكومبو