طريقة الربط بين الكمبوبوكس والتاكس بوكس

طريقة الربط بين الكمبوبوكس والتاكس بوكس - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=1199)

طريقة الربط بين الكمبوبوكس والتاكس بوكس - محمد مسافر - 07-12-13

مشروعي فية عدة انواع من التلفونات في قائمة ComboBox1 اريد اربطة مع السعر وليكن اي سعر , لكل واحد في TextBox1

بحيث اضغط على الايفون يطلع لي سعرة في التاكس بوكس

وكذلك الجلاكسي وغيرة

ودمتم في خير وهذاء المشروع

RE: طريقة الربط بين الكمبوبوكس والتاكس بوكس - Genius Live - 07-12-13

You can use something like this

كود :

Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged

        If ComboBox1.SelectedIndex = 0 Then

            TextBox1.Text = "3000"

        ElseIf ComboBox1.SelectedIndex = 1 Then

            TextBox1.Text = "2000"

        ElseIf ComboBox1.SelectedIndex = 2 Then

            TextBox1.Text = "1000"

        ElseIf ComboBox1.SelectedIndex = 3 Then

            TextBox1.Text = "750"

        ElseIf ComboBox1.SelectedIndex = 4 Then

            TextBox1.Text = "500"

        ElseIf ComboBox1.SelectedIndex = 5 Then

            TextBox1.Text = "300"

        End If

    End Sub

RE: طريقة الربط بين الكمبوبوكس والتاكس بوكس - Easy4ever - 07-12-13

أنظر المرفق

RE: طريقة الربط بين الكمبوبوكس والتاكس بوكس - Genius Live - 07-12-13

But why you do not use a database

RE: طريقة الربط بين الكمبوبوكس والتاكس بوكس - Abu Ehab - 08-12-13

PHP كود :

Dim Price As New List(Of Integer)({120, 135})

    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        TextBox1.Text = Price.Item(ComboBox1.SelectedIndex.ToString)
    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        ComboBox1.Items.AddRange({"IPhone", "LapTop"})
    End Sub 