Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
Select Case ComboBox1.Text
Case "مصر"
_Get("مصر")
Case "العراق"
_Get("العراق")
End Select
End Sub
Private Sub _Get(ByVal CNT As String)
ComboBox2.Items.Clear()
If CNT = "مصر" Then
Dim m() As String = {"القاهرة", "الاسكندرية", "المنصورة"}
ComboBox2.Items.AddRange(m)
ElseIf CNT = "العراق" Then
Dim m() As String = {"بغداد", "موصل", "الانبار"}
ComboBox2.Items.AddRange(m)
End If
End Sub
[COLOR="#008080"]
انته قم بوضع باقي الدول والمحافظات[/COLOR]
أخي العزيز / عبوووووووودي
مليون تحية طيبة وبعد ،،،،
هذا الحل جميل ... لكن ماذا لو طبقت البرنامج على شجرة الحسابات والتي تخلف باختلاف المؤسسات التي تطبق دليل حسابات خاص بها
لا نستطيع وضح الحسابات كما نريد ، وانما توضع الحسابات حسب رغبة المؤسسة والحسابات التي تستعملها.
اخي الفاضل كمال النحال سوف تقوم بعمل تكست بوكس وتقوم بإضافة عدد 2 باتون
وفي الزر الاول تحط كود ComboBox1.Items.Add(TextBox1.Text) وتسميه من تكست اضافة حساب رئيسي
وفي الزر الثاني تحط كود ComboBox2.Items.Add(TextBox1.Text) وتسمية من تكست اضافة حساب فرعي
واي حد عايز يضيف حساب رئيسي يضيف واي حد عايز يضيف حساب فرعي يضيف
والله اعلم انا لسه مبتدأ ودي ممكن تكون اول مشاركة ليا واسف لو كنت بعك