如何用keypress VB改变文本框的背景色

Question

我需要一点帮助来了解如何更改多个文本框的.backcolor。

问我的是这个。

“模拟交通信号灯，在表格上垂直放置3个小方形文本框。最初，顶部文本框为绿色，另外2个为白色。按下Tab键时，中间文本框变为黄色和绿色框变为白色。下次按Tab键时，底部框变为红色，中间框变为白色。“

我无法弄清楚如何编写代码，因为如果有人可以帮助我学习如何使用，我会很新。我会非常感谢帮助。

Answer 1

如果使用标签会更容易。在开始之前，请声明：

Dim count as Integer

要声明某些内容，请将其放在任何位置：Public Class（...）

Private Sub keyreceive(ByVal sender As System.Object, ByVal e As KeyPressEventArgs) Handles MyBase.KeyPress
If e.KeyChar = Convert.ToChar(Keys.Tab) Then
trafficlights()
End If
End Sub

Sub trafficlights()
count += 1
topbox.BackColor = Color.White
middlebox.BackColor = Color.White
bottombox.BackColor = Color.White
If count = 1 Then
topbox.BackColor = Color.Green
End If
If count = 2 Then
middlebox.BackColor = Color.Yellow
End If
If count = 3 Then
bottombox.BackColor = Color.Red
count = 0
End If
End Sub