[@@أبورائد@@]

السلام عليكم ورحمة الله وبركاته

تذكرت مسئلة التعبئة التلقائية (مع جعل أحرف الألف جميعها موحد بألف بدون همزة لتسهيل البحث)

طبعاً هذا الكود بدون صور (يعني كود سريع)

كود :

Public Class Form1

#Region " Countries() "
    Dim Countries() As String = { _
            "اذربيجان +994", _
            "ارمينيا +374", _
            "اروبا +297", _
            "اريتريا +291", _
            "اسبانيا +34", _
            "استراليا +61", _
            "استونيا +372", _
            "افغانستان +93", _
            "الارجنتين +54", _
            "الاردن +962", _
            "الاكوادور +593", _
            "الامارات العربية المتحدة +971", _
            "البانيا +355", _
            "البرازيل +55", _
            "البرتغال +351", _
            "البوسنة والهرسك +387", _
            "الجزائر +213", _
            "الولايات المتحدة - الجزر الفرعية النائية +1", _
            "الدنمارك +45", _
            "السلفادور +503", _
            "السنغال +221", _
            "السودان +249", _
            "السويد +46", _
            "الصومال +252", _
            "الصين +86", _
            "العراق +964", _
            "الغابون +241", _
            "الفلبين +63", _
            "الكاميرون +237", _
            "الكنغو +243", _
            "الكونغو +242", _
            "الكويت +965", _
            "المانيا +49", _
            "المغرب +212", _
            "المكسيك +52", _
            "المملكة العربية السعودية +966", _
            "المملكة المتحدة +44", _
            "النرويج +47", _
            "النمسا +43", _
            "النيجر +227", _
            "الهند +91", _
            "الولايات المتحدة +1", _
            "اليابان +81", _
            "اليمن +967", _
            "اليونان +30", _
            "انتاركتيكا +672", _
            "انتيغوا وبربودا +1", _
            "اندورا +376", _
            "اندونيسيا +62", _
            "انغولا +244", _
            "اوروجواي +598", _
            "اوزبكستان +998", _
            "اوغندا +256", _
            "اوكرانيا +380", _
            "ايران +98", _
            "ايرلندا +353", _
            "ايسلندا +354", _
            "ايطاليا +39", _
            "بابوا غينيا الجديدة +675", _
            "باراجواي +595", _
            "باكستان +92", _
            "بالاو +680", _
            "بربادوس +1", _
            "برمودا +1", _
            "بروناي +673", _
            "بلجيكا +32", _
            "بلغاريا +359", _
            "بليز +501", _
            "بنغلاديش +880", _
            "بنما +507", _
            "بنن +229", _
            "بوتان +975", _
            "بوتسوانا +267", _
            "بوركينافاسو +226", _
            "بوروندي +257", _
            "بولندا +48", _
            "بوليفيا +591", _
            "بولينيزيا الفرنسية +689", _
            "بيرو +51", _
            "بيلاروس +375", _
            "تايلاند +66", _
            "تايوان +886", _
            "تركمانستان +993", _
            "تركيا +90", _
            "تريستان دا كونشا +290", _
            "ترينداد وتوباجو +1", _
            "تشاد +235", _
            "تشيلي +56", _
            "تنزانيا +255", _
            "توجو +228", _
            "توفالو +688", _
            "توكيلو +690", _
            "تونس +216", _
            "تونغا +676", _
            "تيمور ليشتي +670", _
            "جامايكا +1", _
            "جامبيا +220", _
            "جان ماين +47", _
            "جبل طارق +350", _
            "جرانادا +1", _
            "جزر الانتيل الهولندية (سابقاً) +599", _
            "جزر البهاما +1", _
            "جزر الراس الاخضر +238", _
            "جزر العذراء البريطانية +1", _
            "جزر العذراء، الولايات المتحدة +1", _
            "جزر القمر +269", _
            "جزر المارتينيك +596", _
            "جزر المالديف +960", _
            "جزر توركس وكايكوس +1", _
            "جزر سليمان +677", _
            "جزر فوكلاند +500", _
            "جزر فيجي +679", _
            "جزر فيرو +298", _
            "جزر كوك +682", _
            "جزر كوكوس كيلنج +61", _
            "جزر كيمان +1", _
            "جزر مارشال +692", _
            "جزر ماريانا الشمالية +1", _
            "جزر والس وفوتانا +681", _
            "جزيرة اسنسيون +247", _
            "جزيرة الكريسماس +61", _
            "جزيرة بوفيه +47", _
            "جزيرة مان +44", _
            "جمهورية افريقيا الوسطى +236", _
            "جمهورية التشيك +420", _
            "جمهورية الدومينيكان +1", _
            "جمهورية كوت ديفوار +225", _
            "جنوب افريقيا +27", _
            "جوام +1", _
            "جورجيا +995", _
            "جيانا الفرنسية +594", _
            "جيبوتي +253", _
            "جيرسي +44", _
            "دولة الفاتيكان +379", _
            "دومينيكا +1", _
            "رواندا +250", _
            "روسيا +7", _
            "رومانيا +40", _
            "روينيون +262", _
            "زامبيا +260", _
            "زمبابوي +263", _
            "ساموا +685", _
            "سان مارينو +378", _
            "سانت بيير وميكولون +508", _
            "سانت فينسنت وجرينادينز +1", _
            "سانت كيتس ونيفيس +1", _
            "سانت لوشيا +1", _
            "سانت هيلينا +290", _
            "ساو تومي وبرينسيبي +239", _
            "سريلانكا +94", _
            "سلوفاكيا +421", _
            "سلوفينيا +386", _
            "سنغافورة +65", _
            "سوازيلاند +268", _
            "سوريا +963", _
            "سورينام +597", _
            "سويسرا +41", _
            "سيراليون +232", _
            "سيشل +248", _
            "صربيا +381", _
            "طاجيكستان +992", _
            "عُمان +968", _
            "غانا +233", _
            "غرينلاند +299", _
            "غواتيمالا +502", _
            "غوادلوب +590", _
            "غويانا +592", _
            "غويرنسي +44", _
            "غينيا +224", _
            "غينيا الاستوائية +240", _
            "غينيا بيساو +245", _
            "فانواتو +678", _
            "فرنسا +33", _
            "فلسطين +972", _
            "فنزويلا +58", _
            "فنلندا +358", _
            "فيتنام +84", _
            "قبرص +357", _
            "قطر +974", _
            "قيرقيزتان +996", _
            "كازاخستان +7", _
            "كالدونيا الجديدة +687", _
            "كرواتيا +385", _
            "كمبوديا +855", _
            "كندا +1", _
            "كوبا +53", _
            "كوريا +82", _
            "كوريا الشمالية +850", _
            "كوستاريكا +506", _
            "كولومبيا +57", _
            "كيريباتي +686", _
            "كينيا +254", _
            "لاتفيا +371", _
            "لاوس +856", _
            "لبنان +961", _
            "لتوانيا +370", _
            "لكسمبورج +352", _
            "ليبيا +218", _
            "ليبيريا +231", _
            "ليسوتو +266", _
            "ليشتنشتاين +423", _
            "ماكاو +853", _
            "مالاوي +265", _
            "مالطا +356", _
            "مالي +223", _
            "ماليزيا +60", _
            "مايوت +262", _
            "مدغشقر +261", _
            "مصر +20", _
            "مقاطعة المحيط الهندي البريطاني +44", _
            "مقدونيا، جمهورية يوغوسلافيا السابقة +389", _
            "مملكة البحرين +973", _
            "منغوليا +976", _
            "موريتانيا +222", _
            "موريشيوس +230", _
            "موزنبيق +258", _
            "مولدافا +373", _
            "موناكو +377", _
            "مونتسيرات +1", _
            "مونتينيغرو +382", _
            "ميانمار +95", _
            "ميكرونيزيا +691", _
            "ناميبيا +264", _
            "ناورو +674", _
            "نيبال +977", _
            "نيجيريا +234", _
            "نيكاراجوا +505", _
            "نيوزيلندا +64", _
            "نييوي +683", _
            "هايتي +509", _
            "هندوراس +504", _
            "هنغاريا +36", _
            "هولندا +31", _
            "هونغ كونغ +852" _
            }
#End Region

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.ComboBox1.Items.AddRange(Countries)
        Me.ComboBox1.RightToLeft = Windows.Forms.RightToLeft.Yes
        Me.ComboBox1.AutoCompleteSource = AutoCompleteSource.ListItems
        Me.ComboBox1.AutoCompleteMode = AutoCompleteMode.Suggest

    End Sub

End Class

السلام عليكم ورحمة الله وبركاته