تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
All World Countries Data
#1
كاتب الموضوع : Programmation

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


إخـواني الأعضـاء الكرام, كيف حال الجميع؟
أسـأل الله العظيم أن تكـونوا فى أفضل حال وأتم عافية.


فى الغالب حين تقوم بإنشـاء حساب جديد على أي موقع يتطلب منك الأمر تحديد البلد, والمدينة التابع إليها حتى يضُمها ضمن بياناتك الشخصية, وقد تكون فكرت فى نسخ البيانات حتى تستخدمها فى أي من تطبيقاتك سواءاً كانت موجهه نحو Web أو نحو Desktop وبصراحة أنا نفسي إحتجتها منذ فترة قريبة وقمت بالبحث وحصلت فعلاً على مصدر لبيانات دول العالم من الإسم, اللغـ(ا)ـة الخاصة بتلك البلد, كذلك المدن المتواجدة بها و والإختصار المُتداول لها.

وقد قمت بتجميع جميع تلك البيانات فى قاعدة بيانات من نوع SQL Server 2008و كذلك Access, وإليك قاعدة البيانات:








أما لكيفية التعامل مع قاعدة البيانات للحصول على البيانات الخاصة بالدول, فلقد قمت بعمل مشروع صغير كمثـال لكيفية الإستخدام, والمشروع مُنشأ بإستخدام بيئة Visual Studio 2010 ولذلك سأضع المشروع والأكواد أيضاً حتى يتسفيد من يعمل على 2008 مثلا.


صـورة للمثـال



الكـود كاملاً للـ Form:


كود :
[COLOR=#000000][COLOR=#dd0000]'Author: Programmation(OmarNegm)
'[/COLOR][color=#0000bb]Country[/color][color=#007700]: [/color][color=#0000bb]Egypt[/color][COLOR=#007700].
[/COLOR][COLOR=#dd0000]'E_Mail: Programmation2000@hotmail.com
'[/COLOR][color=#0000bb]Mobile[/color][color=#007700]: +[/color][COLOR=#0000bb]2 01 22 88 55 353
Imports System
Imports System[/COLOR][color=#007700].[/color][COLOR=#0000bb]Data
Imports System[/COLOR][color=#007700].[/color][color=#0000bb]Data[/color][color=#007700].[/color][COLOR=#0000bb]OleDb
[/COLOR][color=#007700]Public Class [/color][COLOR=#0000bb]frmMain
    [/COLOR][color=#007700]Private [/color][color=#0000bb]Sub frmMain_Load[/color][color=#007700]([/color][color=#0000bb]ByVal sender [/color][color=#007700]As [/color][color=#0000bb]System[/color][color=#007700].[/color][color=#0000bb]Object[/color][color=#007700], [/color][color=#0000bb]ByVal e [/color][color=#007700]As [/color][color=#0000bb]System[/color][color=#007700].[/color][color=#0000bb]EventArgs[/color][color=#007700]) [/color][color=#0000bb]Handles MyBase[/color][color=#007700].[/color][COLOR=#0000bb]Load
        lblProccess[/COLOR][color=#007700].[/color][color=#0000bb]Text [/color][color=#007700]= [/color][COLOR=#dd0000]"Process..."
        [/COLOR][color=#0000bb]lblCounter[/color][color=#007700].[/color][color=#0000bb]Text [/color][color=#007700]= [/color][COLOR=#dd0000]"( 0 Of 0)"
        [/COLOR][color=#0000bb]Call LoadAllContries[/color][COLOR=#007700]()
    [/COLOR][COLOR=#0000bb]End Sub
    [/COLOR][color=#007700]Private [/color][color=#0000bb]Sub LoadAllContries[/color][COLOR=#007700]()
        [/COLOR][color=#0000bb]Dim Conn [/color][color=#007700]As [/color][color=#0000bb]OleDbConnection [/color][color=#007700]= New [/color][color=#0000bb]OleDbConnection[/color][color=#007700]([/color][color=#dd0000]"Provider=Microsoft.JET.OLEDB.4.0;Data Source=" [/color][color=#007700]& [/color][color=#0000bb]Application[/color][color=#007700].[/color][color=#0000bb]StartupPath [/color][color=#007700]& [/color][color=#dd0000]"\World.mdb"[/color][COLOR=#007700])
        [/COLOR][color=#0000bb]Dim Comm [/color][color=#007700]As [/color][color=#0000bb]OleDbCommand [/color][color=#007700]= New [/color][color=#0000bb]OleDbCommand[/color][color=#007700]([/color][color=#dd0000]"SELECT tblCountries.country_Name FROM tblCountries ORDER BY tblCountries.country_Name;"[/color][color=#007700], [/color][color=#0000bb]Conn[/color][COLOR=#007700])
        Try
            [/COLOR][color=#0000bb]Conn[/color][color=#007700].[/color][color=#0000bb]Open[/color][COLOR=#007700]()
            [/COLOR][color=#0000bb]Dim dReader [/color][color=#007700]As [/color][color=#0000bb]OleDbDataReader [/color][color=#007700]= [/color][color=#0000bb]Comm[/color][color=#007700].[/color][COLOR=#0000bb]ExecuteReader
            [/COLOR][color=#007700]If [/color][color=#0000bb]dReader[/color][color=#007700].[/color][COLOR=#0000bb]HasRows Then
                cmbCountries[/COLOR][color=#007700].[/color][color=#0000bb]Text [/color][color=#007700]= [/color][COLOR=#dd0000]""
                [/COLOR][color=#0000bb]cmbCountries[/color][color=#007700].[/color][color=#0000bb]Items[/color][color=#007700].[/color][color=#0000bb]Clear[/color][COLOR=#007700]()
                While [/COLOR][color=#0000bb]dReader[/color][color=#007700].[/color][COLOR=#0000bb]Read
                    cmbCountries[/COLOR][color=#007700].[/color][color=#0000bb]Items[/color][color=#007700].[/color][color=#0000bb]Add[/color][color=#007700]([/color][color=#0000bb]dReader[/color][color=#007700]([/color][color=#dd0000]"country_Name"[/color][color=#007700]).[/color][color=#0000bb]ToString[/color][color=#007700].[/color][color=#0000bb]Trim[/color][color=#007700]) [/color][COLOR=#dd0000]'Or dReader(0).ToString.Trim
                End While
                cmbCountries.Refresh()
            End If
        Catch ex As Exception
            MessageBox.Show("An error has occurred:" & vbNewLine & "Error description:" & ex.ToString, "World Countries", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
        Finally            
            Conn.Dispose()
            Comm.Dispose()
        End Try
    End Sub
    Private Sub ShowCountryData()
        Dim Conn As OleDbConnection = New OleDbConnection("Provider=Microsoft.JET.OLEDB.4.0;Data Source=" & Application.StartupPath & "\World.mdb")
        Dim Comm As OleDbCommand = New OleDbCommand        
        Try
            Conn.Open()
            Comm.Connection = Conn
            Comm.CommandType = CommandType.Text
            Comm.CommandText = "SELECT tblCities.city_Name FROM tblCities WHERE tblCities.city_ID IN (SELECT tblCountriesCities.city_ID FROM tblCountriesCities WHERE tblCountriesCities.country_ID = (SELECT tblCountries.country_ID FROM tblCountries WHERE tblCountries.country_Name LIKE '" & cmbCountries.Text.Trim & "')) ORDER BY tblCities.city_Name;"
            '''''''''''''''''''''''''''''''''''''''''''''''''''
            [/COLOR][color=#0000bb]pbLoader[/color][color=#007700].[/color][color=#0000bb]Value [/color][color=#007700]= [/color][COLOR=#0000bb]0
            pbLoader[/COLOR][color=#007700].[/color][color=#0000bb]Minimum [/color][color=#007700]= [/color][COLOR=#0000bb]0
            pbLoader[/COLOR][color=#007700].[/color][color=#0000bb]Maximum [/color][color=#007700]= [/color][color=#0000bb]ReturnedRowsCount[/color][color=#007700]([/color][color=#dd0000]"SELECT tblCities.city_Name FROM tblCities WHERE tblCities.city_ID IN (SELECT tblCountriesCities.city_ID FROM tblCountriesCities WHERE tblCountriesCities.country_ID = (SELECT tblCountries.country_ID FROM tblCountries WHERE tblCountries.country_Name LIKE '" [/color][color=#007700]& [/color][color=#0000bb]cmbCountries[/color][color=#007700].[/color][color=#0000bb]Text[/color][color=#007700].[/color][color=#0000bb]Trim [/color][color=#007700]& [/color][color=#dd0000]"')) ORDER BY tblCities.city_Name;"[/color][COLOR=#007700])
            [/COLOR][color=#0000bb]lblProccess[/color][color=#007700].[/color][color=#0000bb]Text [/color][color=#007700]= [/color][COLOR=#dd0000]"Loading Cities..."
            [/COLOR][color=#0000bb]lblProccess[/color][color=#007700].[/color][color=#0000bb]Refresh[/color][COLOR=#007700]()
            [/COLOR][color=#0000bb]lblCounter[/color][color=#007700].[/color][color=#0000bb]Text [/color][color=#007700]= [/color][color=#dd0000]"( 0 Of " [/color][color=#007700]& [/color][color=#0000bb]pbLoader[/color][color=#007700].[/color][color=#0000bb]Maximum [/color][color=#007700]& [/color][COLOR=#dd0000]" )"
            [/COLOR][color=#0000bb]lblCounter[/color][color=#007700].[/color][color=#0000bb]Refresh[/color][COLOR=#007700]()
            [/COLOR][color=#0000bb]Dim dReader [/color][color=#007700]As [/color][color=#0000bb]OleDbDataReader [/color][color=#007700]= [/color][color=#0000bb]Comm[/color][color=#007700].[/color][COLOR=#0000bb]ExecuteReader
            [/COLOR][color=#007700]If [/color][color=#0000bb]dReader[/color][color=#007700].[/color][COLOR=#0000bb]HasRows Then
                lstCities[/COLOR][color=#007700].[/color][color=#0000bb]Items[/color][color=#007700].[/color][color=#0000bb]Clear[/color][COLOR=#007700]()
                While [/COLOR][color=#0000bb]dReader[/color][color=#007700].[/color][COLOR=#0000bb]Read
                    pbLoader[/COLOR][color=#007700].[/color][color=#0000bb]Value [/color][color=#007700]+= [/color][COLOR=#0000bb]1
                    pbLoader[/COLOR][color=#007700].[/color][color=#0000bb]Refresh[/color][COLOR=#007700]()
                    [/COLOR][color=#0000bb]lblCounter[/color][color=#007700].[/color][color=#0000bb]Text [/color][color=#007700]= [/color][color=#dd0000]"(" [/color][color=#007700]& [/color][color=#0000bb]pbLoader[/color][color=#007700].[/color][color=#0000bb]Value [/color][color=#007700]& [/color][color=#dd0000]" Of " [/color][color=#007700]& [/color][color=#0000bb]pbLoader[/color][color=#007700].[/color][color=#0000bb]Maximum [/color][color=#007700]& [/color][COLOR=#dd0000]")"
                    [/COLOR][color=#0000bb]lblCounter[/color][color=#007700].[/color][color=#0000bb]Refresh[/color][COLOR=#007700]()
                    [/COLOR][color=#0000bb]lstCities[/color][color=#007700].[/color][color=#0000bb]Items[/color][color=#007700].[/color][color=#0000bb]Add[/color][color=#007700]([/color][color=#0000bb]dReader[/color][color=#007700]([/color][color=#dd0000]"city_Name"[/color][color=#007700]).[/color][color=#0000bb]ToString[/color][color=#007700].[/color][color=#0000bb]Trim[/color][color=#007700]) [/color][COLOR=#dd0000]'Or dReader(0).ToString.Trim
                End While
            End If
            ''''''''''''''''''''''''''''''''''''''''''''''''''
            If Not dReader.IsClosed Then dReader.Close()
            ''''''''''''''''''''''''''''''''''''''''''''''''''
            Comm.CommandText = "SELECT tblLanguages.language_Name FROM tblLanguages WHERE tblLanguages.language_ID IN (SELECT tblCountriesLanguages.language_ID FROM tblCountriesLanguages WHERE tblCountriesLanguages.country_ID = (SELECT tblCountries.country_ID FROM tblCountries WHERE tblCountries.country_Name LIKE '" & cmbCountries.Text.Trim & "')) ORDER BY tblLanguages.language_Name;"
            pbLoader.Value = 0
            pbLoader.Minimum = 0
            pbLoader.Maximum = ReturnedRowsCount("SELECT tblLanguages.language_Name FROM tblLanguages WHERE tblLanguages.language_ID IN (SELECT tblCountriesLanguages.language_ID FROM tblCountriesLanguages WHERE tblCountriesLanguages.country_ID = (SELECT tblCountries.country_ID FROM tblCountries WHERE tblCountries.country_Name LIKE '" & cmbCountries.Text.Trim & "')) ORDER BY tblLanguages.language_Name;")
            lblProccess.Text = "Loading Languages..."
            lblProccess.Refresh()
            lblCounter.Text = "( 0 Of " & pbLoader.Maximum & " )"
            lblCounter.Refresh()
            dReader = Comm.ExecuteReader
            If dReader.HasRows Then
                lstLanguages.Items.Clear()
                Do While dReader.Read
                    pbLoader.Value += 1
                    pbLoader.Refresh()
                    lblCounter.Text = "(" & pbLoader.Value & " Of " & pbLoader.Maximum & ")"
                    lblCounter.Refresh()
                    lstLanguages.Items.Add(dReader("language_Name").ToString.Trim) '[/COLOR][color=#007700]Or [/color][color=#0000bb]dReader[/color][color=#007700]([/color][color=#0000bb]0[/color][color=#007700]).[/color][color=#0000bb]ToString[/color][color=#007700].[/color][COLOR=#0000bb]Trim
                Loop
            End [/COLOR][COLOR=#007700]If
            [/COLOR][color=#0000bb]lblProccess[/color][color=#007700].[/color][color=#0000bb]Text [/color][color=#007700]= [/color][COLOR=#dd0000]"Process..."
            [/COLOR][color=#0000bb]lblCounter[/color][color=#007700].[/color][color=#0000bb]Text [/color][color=#007700]= [/color][COLOR=#dd0000]"( 0 Of 0)"
            [/COLOR][color=#0000bb]pbLoader[/color][color=#007700].[/color][color=#0000bb]Value [/color][color=#007700]= [/color][COLOR=#0000bb]0
        [/COLOR][color=#007700]Catch [/color][color=#0000bb]ex [/color][color=#007700]As [/color][COLOR=#0000bb]Exception
            MessageBox[/COLOR][color=#007700].[/color][color=#0000bb]Show[/color][color=#007700]([/color][color=#dd0000]"An error has occurred:" [/color][color=#007700]& [/color][color=#0000bb]vbNewLine [/color][color=#007700]& [/color][color=#dd0000]"Error description:" [/color][color=#007700]& [/color][color=#0000bb]ex[/color][color=#007700].[/color][color=#0000bb]ToString[/color][color=#007700], [/color][color=#dd0000]"World Countries"[/color][color=#007700], [/color][color=#0000bb]MessageBoxButtons[/color][color=#007700].[/color][color=#0000bb]OK[/color][color=#007700], [/color][color=#0000bb]MessageBoxIcon[/color][color=#007700].[/color][color=#0000bb]Exclamation[/color][COLOR=#007700])
        [/COLOR][COLOR=#0000bb]Finally
            Conn[/COLOR][color=#007700].[/color][color=#0000bb]Dispose[/color][COLOR=#007700]()
            [/COLOR][color=#0000bb]Comm[/color][color=#007700].[/color][color=#0000bb]Dispose[/color][COLOR=#007700]()
        [/COLOR][color=#0000bb]End [/color][COLOR=#007700]Try
        [/COLOR][color=#0000bb]cmbCountries[/color][color=#007700].[/color][color=#0000bb]Focus[/color][COLOR=#007700]()
    [/COLOR][COLOR=#0000bb]End Sub
    [/COLOR][color=#007700]Private [/color][color=#0000bb]Sub RefreshData[/color][COLOR=#007700]()
        [/COLOR][color=#0000bb]Call LoadAllContries[/color][COLOR=#007700]()
        [/COLOR][color=#0000bb]lstCities[/color][color=#007700].[/color][color=#0000bb]Items[/color][color=#007700].[/color][color=#0000bb]Clear[/color][COLOR=#007700]()
        [/COLOR][color=#0000bb]lstLanguages[/color][color=#007700].[/color][color=#0000bb]Items[/color][color=#007700].[/color][color=#0000bb]Clear[/color][COLOR=#007700]()
        [/COLOR][color=#0000bb]lblProccess[/color][color=#007700].[/color][color=#0000bb]Text [/color][color=#007700]= [/color][COLOR=#dd0000]"Process..."
        [/COLOR][color=#0000bb]lblCounter[/color][color=#007700].[/color][color=#0000bb]Text [/color][color=#007700]= [/color][COLOR=#dd0000]"( 0 Of 0)"
        [/COLOR][color=#0000bb]pbLoader[/color][color=#007700].[/color][color=#0000bb]Value [/color][color=#007700]= [/color][COLOR=#0000bb]0
    End Sub
    [/COLOR][color=#007700]Private Function [/color][color=#0000bb]ReturnedRowsCount[/color][color=#007700]([/color][color=#0000bb]ByVal strSQL [/color][color=#007700]As [/color][color=#0000bb]String[/color][color=#007700]) As [/color][COLOR=#0000bb]Integer
        Dim Conn [/COLOR][color=#007700]As [/color][color=#0000bb]OleDbConnection [/color][color=#007700]= New [/color][color=#0000bb]OleDbConnection[/color][color=#007700]([/color][color=#dd0000]"Provider=Microsoft.JET.OLEDB.4.0;Data Source=" [/color][color=#007700]& [/color][color=#0000bb]Application[/color][color=#007700].[/color][color=#0000bb]StartupPath [/color][color=#007700]& [/color][color=#dd0000]"\World.mdb"[/color][COLOR=#007700])
        [/COLOR][color=#0000bb]Dim Comm [/color][color=#007700]As [/color][color=#0000bb]OleDbCommand [/color][color=#007700]= New [/color][color=#0000bb]OleDbCommand[/color][color=#007700]([/color][color=#0000bb]strSQL[/color][color=#007700], [/color][color=#0000bb]Conn[/color][COLOR=#007700])
        [/COLOR][color=#0000bb]Dim Result [/color][color=#007700]As [/color][color=#0000bb]Integer [/color][color=#007700]= [/color][COLOR=#0000bb]0
        [/COLOR][COLOR=#007700]Try
            [/COLOR][color=#0000bb]Conn[/color][color=#007700].[/color][color=#0000bb]Open[/color][COLOR=#007700]()
            [/COLOR][color=#0000bb]Dim dReader [/color][color=#007700]As [/color][color=#0000bb]OleDbDataReader [/color][color=#007700]= [/color][color=#0000bb]Comm[/color][color=#007700].[/color][COLOR=#0000bb]ExecuteReader
            [/COLOR][color=#007700]If [/color][color=#0000bb]dReader[/color][color=#007700].[/color][COLOR=#0000bb]HasRows Then
                [/COLOR][color=#007700]While [/color][color=#0000bb]dReader[/color][color=#007700].[/color][COLOR=#0000bb]Read
                    Result [/COLOR][color=#007700]+= [/color][COLOR=#0000bb]1
                End [/COLOR][COLOR=#007700]While
            [/COLOR][color=#0000bb]End [/color][COLOR=#007700]If
        Catch [/COLOR][color=#0000bb]ex [/color][color=#007700]As [/color][COLOR=#0000bb]Exception
            MessageBox[/COLOR][color=#007700].[/color][color=#0000bb]Show[/color][color=#007700]([/color][color=#dd0000]"An error has occurred:" [/color][color=#007700]& [/color][color=#0000bb]vbNewLine [/color][color=#007700]& [/color][color=#dd0000]"Error description:" [/color][color=#007700]& [/color][color=#0000bb]ex[/color][color=#007700].[/color][color=#0000bb]ToString[/color][color=#007700], [/color][color=#dd0000]"World Countries"[/color][color=#007700], [/color][color=#0000bb]MessageBoxButtons[/color][color=#007700].[/color][color=#0000bb]OK[/color][color=#007700], [/color][color=#0000bb]MessageBoxIcon[/color][color=#007700].[/color][color=#0000bb]Exclamation[/color][COLOR=#007700])
        [/COLOR][COLOR=#0000bb]Finally
            Conn[/COLOR][color=#007700].[/color][color=#0000bb]Dispose[/color][COLOR=#007700]()
            [/COLOR][color=#0000bb]Comm[/color][color=#007700].[/color][color=#0000bb]Dispose[/color][COLOR=#007700]()
        [/COLOR][color=#0000bb]End [/color][COLOR=#007700]Try
        Return [/COLOR][COLOR=#0000bb]Result
    End [/COLOR][COLOR=#007700]Function
    Private [/COLOR][color=#0000bb]Sub btnShow_Click[/color][color=#007700]([/color][color=#0000bb]ByVal sender [/color][color=#007700]As [/color][color=#0000bb]System[/color][color=#007700].[/color][color=#0000bb]Object[/color][color=#007700], [/color][color=#0000bb]ByVal e [/color][color=#007700]As [/color][color=#0000bb]System[/color][color=#007700].[/color][color=#0000bb]EventArgs[/color][color=#007700]) [/color][color=#0000bb]Handles btnShow[/color][color=#007700].[/color][COLOR=#0000bb]Click
        [/COLOR][color=#007700]If [/color][color=#0000bb]Not cmbCountries[/color][color=#007700].[/color][color=#0000bb]Text[/color][color=#007700].[/color][color=#0000bb]Trim [/color][color=#007700]= [/color][color=#dd0000]"" [/color][COLOR=#0000bb]Then
            Call ShowCountryData[/COLOR][COLOR=#007700]()        
        [/COLOR][color=#0000bb]End [/color][COLOR=#007700]If
    [/COLOR][COLOR=#0000bb]End Sub
    [/COLOR][color=#007700]Private [/color][color=#0000bb]Sub btnRefresh_Click[/color][color=#007700]([/color][color=#0000bb]ByVal sender [/color][color=#007700]As [/color][color=#0000bb]System[/color][color=#007700].[/color][color=#0000bb]Object[/color][color=#007700], [/color][color=#0000bb]ByVal e [/color][color=#007700]As [/color][color=#0000bb]System[/color][color=#007700].[/color][color=#0000bb]EventArgs[/color][color=#007700]) [/color][color=#0000bb]Handles btnRefresh[/color][color=#007700].[/color][COLOR=#0000bb]Click
        Call RefreshData[/COLOR][COLOR=#007700]()
    [/COLOR][COLOR=#0000bb]End Sub
    [/COLOR][color=#007700]Private [/color][color=#0000bb]Sub btnClose_Click[/color][color=#007700]([/color][color=#0000bb]ByVal sender [/color][color=#007700]As [/color][color=#0000bb]System[/color][color=#007700].[/color][color=#0000bb]Object[/color][color=#007700], [/color][color=#0000bb]ByVal e [/color][color=#007700]As [/color][color=#0000bb]System[/color][color=#007700].[/color][color=#0000bb]EventArgs[/color][color=#007700]) [/color][color=#0000bb]Handles btnClose[/color][color=#007700].[/color][COLOR=#0000bb]Click
        Me[/COLOR][color=#007700].[/color][color=#0000bb]Dispose[/color][COLOR=#007700]()
        [/COLOR][color=#0000bb]Me[/color][color=#007700].[/color][color=#0000bb]Close[/color][COLOR=#007700]()
    [/COLOR][COLOR=#0000bb]End Sub
    [/COLOR][color=#007700]Private [/color][color=#0000bb]Sub cmbCountries_SelectedIndexChanged[/color][color=#007700]([/color][color=#0000bb]ByVal sender [/color][color=#007700]As [/color][color=#0000bb]System[/color][color=#007700].[/color][color=#0000bb]Object[/color][color=#007700], [/color][color=#0000bb]ByVal e [/color][color=#007700]As [/color][color=#0000bb]System[/color][color=#007700].[/color][color=#0000bb]EventArgs[/color][color=#007700]) [/color][color=#0000bb]Handles cmbCountries[/color][color=#007700].[/color][COLOR=#0000bb]SelectedIndexChanged
        [/COLOR][color=#007700]If [/color][color=#0000bb]chkAutoShow[/color][color=#007700].[/color][COLOR=#0000bb]Checked Then
            Call btnShow_Click[/COLOR][color=#007700]([/color][color=#0000bb]Nothing[/color][color=#007700], [/color][color=#0000bb]Nothing[/color][COLOR=#007700])
        [/COLOR][color=#0000bb]End [/color][COLOR=#007700]If
    [/COLOR][COLOR=#0000bb]End Sub
    [/COLOR][color=#007700]Private [/color][color=#0000bb]Sub chkAutoShow_CheckedChanged[/color][color=#007700]([/color][color=#0000bb]ByVal sender [/color][color=#007700]As [/color][color=#0000bb]System[/color][color=#007700].[/color][color=#0000bb]Object[/color][color=#007700], [/color][color=#0000bb]ByVal e [/color][color=#007700]As [/color][color=#0000bb]System[/color][color=#007700].[/color][color=#0000bb]EventArgs[/color][color=#007700]) [/color][color=#0000bb]Handles chkAutoShow[/color][color=#007700].[/color][COLOR=#0000bb]CheckedChanged
        cmbCountries[/COLOR][color=#007700].[/color][color=#0000bb]Focus[/color][COLOR=#007700]()
    [/COLOR][COLOR=#0000bb]End Sub
End [/COLOR][COLOR=#007700]Class  
[/COLOR][/COLOR]




وفقنــا الله وإياكـــم
}}}
تم الشكر بواسطة:



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم