01-10-12, 04:28 PM
كاتب الموضوع : 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]
وفقنــا الله وإياكـــم