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 SubPublic 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 SubComboBox2.SelectedIndex = -1
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