Duda con listbox y textbox

[polmp]

Hola de nuevo.Soy Polmp,utilizo VB 6 y esta es mi duda:

Tengo un listbox y textbox.Y quiero hacer una cosa.Tengo tres list en el listbox.Ejemplo1,Ejemplo2,Ejemplo3.Quiero que cuando le de al list Ejemplo1 me modifique el texto de el textbox1 a "Esto es el ejemplo1".Si le de al Ejemplo2 "Esto es el ejemplo2" y así succesivamente.

Llevo intentandolo horas y no me sales de ninguna manera.

Muchas gracias y saludos,
Polmp

[PeterPunk77]

Código (vb) [Seleccionar] Expandir

Text1.Text = "Esto es el " & List1.List(List1.ListIndex)

Saludos.

[polmp]

Pero se pone en Private Sub List1_Click() o donde???
Y si puede ser que no sea con la variable del nombre,que yo introduzca todo.

[ssccaann43 ©]

Fijate acá...

Código (vb) [Seleccionar] Expandir



Private Sub Form_Load()
List1.AddItem "Ejemplo 1"
List1.AddItem "Ejemplo 2"
List1.AddItem "Ejemplo 3"
End Sub

Private Sub List1_Click()
Text1.Text = "Este es: " & List1.Text
End Sub



[polmp]

Y si lo hago sin la variable List1.Text,como seria? Me refiero sin utilizar el valor del listbox.

Perdonar mi ignorancia

[ssccaann43 ©]

List1.Text, no es una variable... .Text es la propiedad que posee el OBJETO List1, el cual te permite leer su valor al posicionarte en alguno de los registros que este contenga... Pero hagamos algo, leete mejor un manual de vb...!

Esto te puede ayudar: http://www.recursosvisualbasic.com.ar/htm/tutoriales/control_list_box.htm

[polmp]

No se como explicarlo...Me refiero a escribir sin utilizar un valor del ListBox,o sea que por ejemplo yo le de a ejemplo 1 y me ponga en el textbox hola a todos ,que no tenga sentido con algún nombre de la lista.

Me referia a algo más simple 

[ssccaann43 ©]

A ver, Algo así???

Código (vb) [Seleccionar] Expandir



Private Sub Form_Load()
List1.AddItem "Ejemplo 1"
List1.AddItem "Ejemplo 2"
List1.AddItem "Ejemplo 3"
End Sub

Private Sub List1_Click()
If List1.Text = "Ejemplo 1" Then
Text1.Text = "Debo Aprender"
ElseIf List1.Text = "Ejemplo 2" Then
Text1.Text = "A usar GOOGLE"
ElseIf List1.Text = "Ejemplo 3" Then
Text1.Text = "O Leer Mas"
End If
End Sub



[BlackZeroX]

Para algo existe:

Código (vb) [Seleccionar] Expandir


select case Criterio
   case 1...
   case 2...
   case ...
   case else...
end case

y para procesar solo textos por medio de un criterio...

Código (vb) [Seleccionar] Expandir


   switch() ' // perdonenme si no lo escribi bien xP.,


otra forma es pormedio de un array() o arreglpo de la misma dimencion (0 to list1.count-1) y por medio del evento mousedown o click o que se yo, obteniendo el index del item actual devolvemos el texto en el array() contruido con  la funcion

Código (vb) [Seleccionar] Expandir


dim Arraglo()
arreglo = array("texto1","Texto2",..."textoN")
...
msgbox  arreglo( index del item, numero o variable nuerica )


En otras palabras tienes miles de alternativas!¡

P.D.: Perdona si tengo faltas de ortografia pero ando en el trabajo XP.

Dulces Lunas!¡.

[polmp]

Muchas gracias a todos!!!!!!!!!

Lo encontré