hola buenos dias..estoy aprendiendo visual basic y quiero que desde un listbox me cambie el color de un textbox..se hacerlo con un comand1,con optionbutton pero con el listbox siempre me sale el ultimo color que agrego.
ejemplo: text1.backcolor = vbred pongo esto y me lo cambia pero cuando coloco otro color me sale siempre el ultimo..
como haria para seleccionar un color en el listbox y que me aparezca en un texbox?
Option Explicit
Private Sub Form_Load()
List1.AddItem "Amarillo"
List1.AddItem "Azul"
List1.AddItem "Rojo"
End Sub
Private Sub List1_Click()
With Text1
Select Case List1.ListIndex
Case 0: .BackColor = vbYellow
Case 1: .BackColor = vbBlue
Case 2: .BackColor = vbRed
End Select
End With
End Sub
gracias por la respuesta ;-)