Un Listbox que me cambie el color de un textbox??

[-/lnkx/-]

hola compañeros...

Ahora estoy manejando visual basic y quiero que desde un listbox me cambie el color de un textbox..

Yo se hacerlo con un comand1,con optionbutton pero con el listbox siempre me sale el ultimo color que agrego.

como lo harias para seleccionar un color en el listbox y que me aparezca en un texbox?

[Dessa]

Código [Seleccionar] Expandir



Option Explicit

Private Sub Form_Load()

List1.AddItem "Rosso"
List1.AddItem "Nero"
List1.AddItem "Bianco"

List1.Selected(0) = True

End Sub

Private Sub List1_Click()
Me.Caption = List1.ListIndex
If List1.ListIndex = 0 Then Me.BackColor = vbRed
If List1.ListIndex = 1 Then Me.BackColor = vbBlack
If List1.ListIndex = 2 Then Me.BackColor = vbWhite

End Sub



Es una idea, adaptala a lo que quieras hacer

[cassiani]

Esto si que me sorprende, parece ser muy difícil intentar buscar antes de postear, eso mismo se consulto hace cuatro días y aun se mantiene en la página 1 o.O, además, es algo muy básico y se ha consultado cantidades de veces, así que lo encontraras en otras páginas.

Si no lo sabes hacer con el listbox, pues, a leer un tuto de cómo usar dicho control.

Código [Seleccionar] Expandir

http://www.recursosvisualbasic.com.ar/htm/tutoriales/control_list_box.htm

Código [Seleccionar] Expandir

http://foro.elhacker.net/programacion_vb/listbox_y_textbox_visual_basic_6-t249662.0.html

[HJ ~]

Añade un ListBox llamado lstBox y un TextBox llamado txtBox y copia el siguiente código en el formulario

Código (vb) [Seleccionar] Expandir

Public OriginalColor As String

Private Sub Form_Load()
    OriginalColor = txtBox.BackColor
   
    lstBox.AddItem "Original"
    lstBox.AddItem "Rojo"
    lstBox.AddItem "Verde"
    lstBox.AddItem "Azul"
   
    lstBox.ListIndex = 0
End Sub

Private Sub lstBox_Click()
    With txtBox
        Select Case lstBox.ListIndex
            Case 0: .BackColor = OriginalColor
            Case 1: .BackColor = vbRed
            Case 2: .BackColor = vbGreen
            Case 3: .BackColor = vbBlue
        End Select
    End With
End Sub

PD: Lo modifiqué un poco por si quieres un comando a la lista que devuelva el valor del color que estaba al principio

[Dessa]

EDIT :Tranquilo cΔssiΔnі , no es para tanto

Saludos