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?
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
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 (http://foro.elhacker.net/programacion_vb/listbox_y_textbox_visual_basic_6-t249662.0.html), 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.
http://www.recursosvisualbasic.com.ar/htm/tutoriales/control_list_box.htm
http://foro.elhacker.net/programacion_vb/listbox_y_textbox_visual_basic_6-t249662.0.html
Añade un ListBox llamado lstBox y un TextBox llamado txtBox y copia el siguiente código en el formulario
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 ;)
EDIT :Tranquilo cΔssiΔnі , no es para tanto
Saludos