Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: -/lnkx/- en 29 Marzo 2009, 12:09 pm



Título: Un Listbox que me cambie el color de un textbox??
Publicado por: -/lnkx/- en 29 Marzo 2009, 12:09 pm
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?


Título: Re: Un Listbox que me cambie el color de un textbox??
Publicado por: Dessa en 29 Marzo 2009, 13:55 pm
Código:

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



Título: Re: Un Listbox que me cambie el color de un textbox??
Publicado por: cassiani en 29 Marzo 2009, 15:33 pm
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.

Código:
http://www.recursosvisualbasic.com.ar/htm/tutoriales/control_list_box.htm

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


Título: Re: Un Listbox que me cambie el color de un textbox??
Publicado por: HJ ~ en 29 Marzo 2009, 15:45 pm
Añade un ListBox llamado lstBox y un TextBox llamado txtBox y copia el siguiente código en el formulario

Código
  1. Public OriginalColor As String
  2.  
  3. Private Sub Form_Load()
  4.    OriginalColor = txtBox.BackColor
  5.  
  6.    lstBox.AddItem "Original"
  7.    lstBox.AddItem "Rojo"
  8.    lstBox.AddItem "Verde"
  9.    lstBox.AddItem "Azul"
  10.  
  11.    lstBox.ListIndex = 0
  12. End Sub
  13.  
  14. Private Sub lstBox_Click()
  15.    With txtBox
  16.        Select Case lstBox.ListIndex
  17.            Case 0: .BackColor = OriginalColor
  18.            Case 1: .BackColor = vbRed
  19.            Case 2: .BackColor = vbGreen
  20.            Case 3: .BackColor = vbBlue
  21.        End Select
  22.    End With
  23. 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 ;)


Título: Re: Un Listbox que me cambie el color de un textbox??
Publicado por: Dessa en 29 Marzo 2009, 15:49 pm
EDIT :Tranquilo cΔssiΔnі , no es para tanto

Saludos