2010-03-18 88 views
0

我真的需要处理案例的帮助,目前为止我只是在学习它,但却无法获得可以改变文本框背景的下拉菜单。使用案例更改背景颜色| Visual Studio 2008

Private Sub cbColours_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbColours.SelectedIndexChanged 
    Select Case colours 

     Case Is = "Red" 
      txtSpace.BackColor = Color.Red 

     Case Is = "Blue" 
      txtSpace.BackColor = Color.Blue 

     Case Is = "Green" 
      txtSpace.BackColor = Color.Green 

    End Select 
End Sub 

它没有做任何事情...

在下拉菜单中,它具有

红,蓝,每行

绿色的

当值(例如绿色),然后将文本框更改为所选颜色。

很多帮助表示赞赏:)

+2

如果/当在第一时间变量“颜色”设置?如果它是空白的,所有三种情况都会失败。尝试添加“Case Else” – gooch 2010-03-18 16:12:00

回答

0

不知道你在哪里得到的颜色值,这里的简单:

Private Sub cbColours_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbColours.SelectedIndexChanged 
    Select Case Sender.Text  
     Case Is = "Red" 
      txtSpace.BackColor = Color.Red 

     Case Is = "Blue" 
      txtSpace.BackColor = Color.Blue 

     Case Is = "Green" 
      txtSpace.BackColor = Color.Green 

    End Select 
End Sub