키 누르기로 텍스트 상자의 배경색을 변경하는 방법 VB

Question

여러 텍스트 상자의 .backcolor를 변경하는 방법을 이해하려면 약간의 도움이 필요합니다.

나에게 묻는 것은 이것입니다.

"양식에 세로로 배치 된 3 개의 작은 정사각형 텍스트 상자로 교통 신호등을 시뮬레이트합니다. 처음에는 상단 텍스트 상자가 녹색이고 다른 2 개는 흰색으로 나타납니다. 탭 키를 누르면 중간 텍스트 상자가 노란색으로 변하고 녹색 상자가 흰색으로 바뀝니다. 다음에 탭 키를 누르면 하단 상자가 빨간색으로 변하고 중간 상자는 흰색으로 바뀝니다. "

코드를 작성하는 방법을 알아낼 수 없습니다. 누군가가 나를 사용하는 방법을 배우는 데 도움이된다면 꽤 새로운 것입니다 .keypress를 사용하면 도움이 정말 감사 할 것입니다.

Answer 1

라벨을 사용하면 쉽게 할 수 있습니다. 시작하기 전에 선언

Dim count as Integer 

뭔가를 선언하려면, 당신이 그것을 넣어 그것이 말하는 곳에서 : 공용 클래스 (...)를

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