Tengo problemas para codificar esto correctamente. Quiero que mi cuadro de texto cambie de color si "algo" aparece al realizar otra acción. Tampoco quiero que cambie en absoluto si no se completa nada en él. Hasta ahora tengo el siguiente.
1.) No puedo averiguar qué poner para el valor, ya que será diferente según la selección. 2.) cómo mantener el cuadro de texto igual si no aparece nada. ¿Sigue volviéndose negro?
Private Sub MailChannel_Change()
'Cambiar el color
If MailChannel.Text = "" Then
MailChannel.BackColor = &HC000&
Else
MailChannel.BackColor = False
End If
End Sub
Private Sub TextBox1_Change()
If TextBox1.Value <> "" Then
TextBox1.BackColor = RGB(153, 255, 255)
Else
TextBox1.BackColor = RGB(255, 255, 255)
End If
End Sub
Esto básicamente dice que si el valor del cuadro de texto no está en blanco, cámbielo a cualquier color que esté allí, de lo contrario, manténgalo en blanco.
Este artículo se recopila de Internet, indique la fuente cuando se vuelva a imprimir.
En caso de infracción, por favor [email protected] Eliminar
Déjame decir algunas palabras