Foro de elhacker.net

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

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

Saludos.

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.

Fijate acá...

 
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
 
 

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

Perdonar mi ignorancia :P

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

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  ;D

A ver, Algo así???

 
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
 
 

Para algo existe:

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

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

    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

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!¡.

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

Lo encontré  :D