+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : كمبو بوكس ( لغات العالم مع الاختصار ) ( اسماء جميع الدول مع العلم) (/showthread.php?tid=496)
الصفحات:
1
2
RE: كمبو بوكس ( لغات العالم مع الاختصار ) ( اسماء جميع الدول مع العلم) - @@أبورائد@@ - 14-10-13
السلام عليكم ورحمة الله وبركاته
تذكرت مسئلة التعبئة التلقائية (مع جعل أحرف الألف جميعها موحد بألف بدون همزة لتسهيل البحث)
طبعاً هذا الكود بدون صور (يعني كود سريع)
كود :
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السلام عليكم ورحمة الله وبركاته
RE: كمبو بوكس ( لغات العالم مع الاختصار ) ( اسماء جميع الدول مع العلم) - Abu Ehab - 19-03-14
سبحان الله رب العرش العظيم ...
دارت الأيــــــــــــام وأتي اليــــــــــوم اللى أحتــــــــــاج فيه كود كنت عملته زمان بالتعاون من أخي الحبيب أبو رائــــــد ,,ولم أفكر للحظة أني ممكن أحتاج له ..
أحتجــــــته الأن في تطـــــــوير الــــــ Whats _aap
أسأل الله أن يشفي أخي أبو رائـــــــــــد شــــفاءا لا يترك ســـــقم ..