Question

我真的需要帮助处理案例，到目前为止我只是学习它，但是无法获得可以改变文本框背景的下拉菜单。

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

根本没有做任何事......

在下拉菜单中，它有

每行一个红色，蓝色和绿色

单击该值（例如绿色）时，它会将文本框更改为所选颜色。

许多帮助表示赞赏：）

Answer 1

不知道你在哪里获得颜色值，这里是简单的：

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

使用案例改变背景颜色| Visual Studio 2008

1 个答案: