無論如何縮短它？

嗨，我是編程新手。有什麼方法可以縮短我的程序嗎？無論如何縮短它？

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對不起我？ – 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

無論如何縮短它？

回答

相關問題