とにかくそれを短縮するには？

こんにちは、私はプログラミングに新しいです。私のプログラムを短縮する方法はありますか？とにかくそれを短縮するには？

Private Sub ComboBox10_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox10.SelectedIndexChanged 

     If ComboBox9.Text = "Power" Then 

      If ComboBox8.Text = "Cable" Then 
       ComboBox11.Items.Add("Black") 
       ComboBox11.Items.Add("Brown") 
       ComboBox11.Items.Add("Red") 
       ComboBox11.Items.Add("White") 
       ComboBox11.Items.Add("Grey") 
       ComboBox11.Items.Add("Vio") 
      End If 
End If 

Private Sub ComboBox11_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox11.SelectedIndexChanged 

     If ComboBox9.Text = "Power" Then 

      If ComboBox8.Text = "Cable" Then 
       ComboBox11.Items.Add("Black") 
       ComboBox11.Items.Add("Brown") 
       ComboBox11.Items.Add("Red") 
       ComboBox11.Items.Add("White") 
       ComboBox11.Items.Add("Grey") 
       ComboBox11.Items.Add("Vio") 
      End If 
End If 

Private Sub ComboBox12_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox12.SelectedIndexChanged 

     If ComboBox9.Text = "Power" Then 

      If ComboBox8.Text = "Cable" Then 
       ComboBox11.Items.Add("Black") 
       ComboBox11.Items.Add("Brown") 
       ComboBox11.Items.Add("Red") 
       ComboBox11.Items.Add("White") 
       ComboBox11.Items.Add("Grey") 
       ComboBox11.Items.Add("Vio") 
      End If 
End If 

Private Sub ComboBox13_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox13.SelectedIndexChanged 

     If ComboBox9.Text = "Power" Then 

      If ComboBox8.Text = "Cable" Then 
       ComboBox11.Items.Add("Black") 
       ComboBox11.Items.Add("Brown") 
       ComboBox11.Items.Add("Red") 
       ComboBox11.Items.Add("White") 
       ComboBox11.Items.Add("Grey") 
       ComboBox11.Items.Add("Vio") 
      End If 
End If

出典

2016-09-21 elgin_n

それはレビューを求めていますので、私は、オフトピックとして、この質問を閉じるために投票しています。これらの質問は、http：//www.codereview.stackexchange.comにもっと適していて、あなたの質問に答えるために***はい、それは短縮することができます*** – Codexer

この質問は、コードレビューに属します。 SOは_problems_をプログラミングするためのものです。 – techydesigner

@JeffMercado Pardon me？ – techydesigner

Private Sub ComboBox10_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox10.SelectedIndexChanged, ComboBox11.SelectedIndexChanged, ComboBox12.SelectedIndexChanged, ComboBox13.SelectedIndexChanged 
    If ComboBox9.Text = "Power" AndAlso ComboBox8.Text = "Cable" Then 
     ComboBox11.Items.Add(New String() {"Black", "Brown", "Red", "White", "Grey", "Vio"}) 
    End If 
End Sub

出典

2016-09-21 04:43:56

とにかくそれを短縮するには？

答えて

関連する問題