29-03-15, 11:22 PM
كود :
Private Sub TextBox38_TextChanged(ByVal sender As Object, ByVal e As EventArgs) Handles TextBox38.TextChanged
Select Case Val(TextBox38.Text)
Case 1
ListBox2.Text = "منزل\بيت مستقل"
Case 2
ListBox2.Text = "شقه"
Case 3
ListBox2.Text = "منشأة مسكونة"
Case 4
ListBox2.Text = "صندقة"
Case 5
ListBox2.Text = "سكن جماعي\فئات خاصة"
End Select
End Sub
Private Sub ListBox2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox2.SelectedIndexChanged
Select Case ListBox2.Text
Case "منزل\بيت مستقل"
TextBox38.Text = 1
Case "شقه"
TextBox38.Text = 2
Case "منشأة مسكونة"
TextBox38.Text = 3
Case "صندقة"
TextBox38.Text = 4
Case "سكن جماعي\فئات خاصة"
TextBox38.Text = 5
End Select
End Sub