منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - طريقة الربط بين الكمبوبوكس والتاكس بوكس

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

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

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

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

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

أنظر المرفق

But why you do not use a database

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 

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

محمد مسافر

Genius Live

Easy4ever

Genius Live

Abu Ehab