elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Tutorial básico de Quickjs


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  listbox y textbox visual basic 6
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: listbox y textbox visual basic 6  (Leído 8,143 veces)
elguast

Desconectado Desconectado

Mensajes: 110


Ver Perfil
listbox y textbox visual basic 6
« en: 25 Marzo 2009, 13:17 pm »

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?


En línea

cassiani


Desconectado Desconectado

Mensajes: 978


« Anterior | Próximo »


Ver Perfil WWW
Re: listbox y textbox visual basic 6
« Respuesta #1 en: 25 Marzo 2009, 14:08 pm »

Código
  1. Option Explicit
  2.  
  3. Private Sub Form_Load()
  4.    List1.AddItem "Amarillo"
  5.    List1.AddItem "Azul"
  6.    List1.AddItem "Rojo"
  7. End Sub
  8.  
  9. Private Sub List1_Click()
  10.    With Text1
  11.        Select Case List1.ListIndex
  12.            Case 0: .BackColor = vbYellow
  13.            Case 1: .BackColor = vbBlue
  14.            Case 2: .BackColor = vbRed
  15.        End Select
  16.    End With
  17. End Sub


En línea

elguast

Desconectado Desconectado

Mensajes: 110


Ver Perfil
Re: listbox y textbox visual basic 6
« Respuesta #2 en: 25 Marzo 2009, 15:11 pm »

gracias por la respuesta  ;-)
En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines