Ayuda urgente con textbox
Necesito la yuda de ustedes para lo siguiente, estoy creando un odontograma (odontológico en visual)y necesito poner aproximadamente 250 textbox.. Y cada textbox lleva el código que esta abajo... Existe alguna posibilidad de hacer algo más comprimido para no tener necesidad de meter este código en los 250 textbox, ya que es muy demorado engorroso,, y me puede fallar,,, ademas tener en cuenta que apare de los textbox del odontograma tengo otros textbox para llenar datos del paciente,, y pues que no se me vean afectados por algo que se haga globalmente para todo los textbox.
Private Sub Text1_Change()
If Text1.Text = "R" Then
Text1.BackColor = vbRed
ElseIf Text1.Text = "V" Then
Text1.BackColor = vbGreen
ElseIf Text1.Text = "A" Then
Text1.BackColor = vbYellow
ElseIf Text1.Text = "N" Then
Text1.BackColor = vbBlack
ElseIf Text1.Text = "B" Then
Text1.BackColor = vbBlue
ElseIf Text1.Text = "" Then
Text1.BackColor = vbWhite
End If
End Sub
Private Sub Text1_Change()
If Text1.Text = "R" Then
Text1.BackColor = vbRed
ElseIf Text1.Text = "V" Then
Text1.BackColor = vbGreen
ElseIf Text1.Text = "A" Then
Text1.BackColor = vbYellow
ElseIf Text1.Text = "N" Then
Text1.BackColor = vbBlack
ElseIf Text1.Text = "B" Then
Text1.BackColor = vbBlue
ElseIf Text1.Text = "" Then
Text1.BackColor = vbWhite
End If
End Sub
1 Respuesta
Respuesta de javier_007
1