مصفوفة الأعداد بالكومبوبوكس - نسخة قابلة للطباعة

PHP كود :

   Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
        TextBox1.Text = Val(ComboBox1.Text) * 100
        ComboBox2_SelectedIndexChanged(Nothing, Nothing)
    End Sub

    Private Sub ComboBox2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox2.SelectedIndexChanged
        TextBox2.Text = Val(ComboBox1.Text * 10) & "." & Strings.StrDup(2, Val(ComboBox2.Text).ToString)
    End Sub

كود :

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

        Select Case ComboBox1.SelectedIndex

            Case 0

                TextBox1.Text = "100"

            Case 1

                TextBox1.Text = "200"

            Case 2

                TextBox1.Text = "300"

            Case 3

                TextBox1.Text = "400"

            Case 4

                TextBox1.Text = "500"

        End Select

  ComboBox2_SelectedIndexChanged(sender, e)

    End Sub



    Private Sub ComboBox2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox2.SelectedIndexChanged

        Select Case ComboBox2.SelectedIndex

            Case 0

                TextBox2.Text = ComboBox1.Text & "0" & "." & ComboBox2.Text & ComboBox2.Text

            Case 1

                TextBox2.Text = ComboBox1.Text & "0" & "." & ComboBox2.Text & ComboBox2.Text

            Case 2

                TextBox2.Text = ComboBox1.Text & "0" & "." & ComboBox2.Text & ComboBox2.Text

        End Select

    End Sub

PHP كود :

Public Class Form1


    Dim n1(5) As Integer
    Dim n2(5, 3) As Integer

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        ComboBox1.Items.Add("1")
        ComboBox1.Items.Add("2")
        ComboBox1.Items.Add("3")
        ComboBox1.Items.Add("4")
        ComboBox1.Items.Add("5")

        n1(1) = 100
        n1(2) = 200
        n1(3) = 300
        n1(4) = 400
        n1(5) = 500


        ComboBox2.Items.Add("1")
        ComboBox2.Items.Add("2")
        ComboBox2.Items.Add("3")

        n2(1, 1) = 20
        n2(1, 2) = 40
        n2(1, 3) = 60

        n2(2, 1) = 22
        n2(2, 2) = 42
        n2(2, 3) = 62

        n2(3, 1) = 23
        n2(3, 2) = 44
        n2(3, 3) = 64

        n2(4, 1) = 27
        n2(4, 2) = 49
        n2(4, 3) = 75

        n2(5, 1) = 31
        n2(5, 2) = 55
        n2(5, 3) = 82

    End Sub

    Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
        If ComboBox1.SelectedIndex >= 0 Then
            TextBox1.Text = n1(ComboBox1.SelectedIndex + 1)
        End If
        ComboBox2_SelectedIndexChanged(Nothing, Nothing)
    End Sub

    Private Sub ComboBox2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox2.SelectedIndexChanged
        If ComboBox1.SelectedIndex >= 0 AndAlso ComboBox2.SelectedIndex >= 0 Then
            TextBox2.Text = n2(ComboBox1.SelectedIndex + 1, ComboBox2.SelectedIndex + 1)
        End If
    End Sub

End Class

كود :

   Private Sub ComboBox2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox2.SelectedIndexChanged



        If ComboBox1.Text = "" Then

            MessageBox.Show("قم بالاختيار اولا من الكومبوبوكس 1")

            ComboBox2.Text = ""

            Return



        End If



        If ComboBox1.SelectedIndex >= 0 AndAlso ComboBox2.SelectedIndex >= 0 Then

            TextBox2.Text = n2(ComboBox1.SelectedIndex + 1, ComboBox2.SelectedIndex + 1)

        End If



    End Sub

PHP كود :

ComboBox2.SelectedIndex = -1

PHP كود :

Private Sub ComboBox2_SelectionChangeCommitted(sender As Object, e As EventArgs) Handles ComboBox2.SelectionChangeCommitted
        If ComboBox1.Text = "" Then
            MessageBox.Show("قم بالاختيار اولا من الكومبوبوكس 1")
            ComboBox2.SelectedIndex = -1
        End If

        If ComboBox1.SelectedIndex >= 0 AndAlso ComboBox2.SelectedIndex >= 0 Then
            TextBox2.Text = n2(ComboBox1.SelectedIndex + 1, ComboBox2.SelectedIndex + 1)
        End If

    End Sub