vb.net - 如何使用按键 VB 更改文本框的背景颜色

Question

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

对我的要求是这样的。

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

我不知道如何编写代码，因为如果有人可以帮助我学习如何使用 .keypress，我对此很陌生，我将非常感谢您的帮助。

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