Agregar elementos en un ListBox y colocarlos en un TextBox

[renga73]

Lo que quiero es primero poner 5 elementos en un ListBox, y al clickear uno de ellos me aparezca en un TextBox.
Ej:
ListBox
Argentina
Peru
Brasil

Clickeo en "Argentina" entonces me aparece en un
TextBox
Argentina

[JuszR]

Te lo hago solo porque es fácil.

Código [Seleccionar] Expandir


Private Sub Form_Load()
'Agregas las opciones
List1.AddItem "Argentina"
List1.AddItem "Brasil"
List1.AddItem "Peru"
List1.AddItem "Ecuador"
List1.AddItem "Mexico"
End Sub

Private Sub List1_Click()
'Agregas lo que se haya seleccionado al texbox
Text1.Text = List1.Text
End Sub


[renga73]

Bueno muchas gracias, ahora lo complico un poco mas
Supongamos tener todo como estaba, ahora bien a la hora de clickear en "Argentina", quiero q me aparezca en el TextBox "Buenos Aieres", cuando clickeo en "Brasil" q aparezca "Brasilia", etc

Y q tb si clickeo Argentina me aparece Buenos Aires y ahi voy al TextBox le pongo un ";" o no, y voy y clickeo Brasil y me aparece Brasilia a continuacion de Buenos Aires
Es una especie de agregar contactos de mails como en hotmail

[JuszR]

Código [Seleccionar] Expandir

Private Sub List1_Click()
Dim i
i = List1.Text
'Agregas lo que se haya seleccionado al texbox
Text1.Text = List1.Text
MsgBox(i)
End Sub

Para lo del ";" no entendi.

[renga73]

Mira te pongo un ejemplo de lo q quiero hacer:
ListBox
Argentina
Peru
Brasil

Clickeo en "Argentina" entonces me aparece en un
TextBox
Buenos Aires

Ahora si clickeo en "Brasil"...me aparece en el mismo TextBox q antes:
Buenos Aires, Brasilia        'se agrego Brasilia y  una "," entre BA y Brasilia, q me sirve de separador.Por eso te puse q es como cuando queres enviar un mail en hotmail, y le vas dando click a los contactos q se lo queres enviar. Lo cambie por una "," porque con un ";" no anda

[[VolkS]]

Private Sub List1_Click()
If List1.ListIndex = 0 Then'Si se cliquea el 0 aparecera Argentina
Text1.Text = "Buenos Aires"
End If

If List1.ListIndex = 1 Then'Si se cliquea el 1 aparecera Brasilia
Text1.Text = "Brasilia"
End If
End Sub

[renga73]

Private Sub List1_Click()
If List1.ListIndex = 0 Then'Si se cliquea el 0 aparecera Argentina
Text1.Text = "Buenos Aires"
End If

If List1.ListIndex = 1 Then'Si se cliquea el 1 aparecera Brasilia
Text1.Text = "Brasilia"
End If
End Sub

No eso hace lo mismo q posteo X.Cyclop en su primer post. No me soluciona el problema

[Cicklow]

Yo te entieno lo que keres hacer:
si ya seleccione un pis que me muestre su capital, pero si al text box le agrego ";", que lo que haga, es agregar al texto box otra capital.
EJ:
Presione en Argentina (el text box dice ahora: BS AS), y al text box le coloko ";", y ahora resiono en Brasil, ahora el text box dira: BS AS; Bracilia.

Eso es lo que keres hacer.....

weno manos a la obras (lo estoy haciendo sin el VB, asike si hay un error me avisas que te dice):

Código [Seleccionar] Expandir


'Fuera de los eventos:
Dim Capitales(0 TO 5)
Private Sub Form_Load()
'Agregas las opciones
List1.AddItem "Argentina"
List1.AddItem "Brasil"
List1.AddItem "Peru"
List1.AddItem "Ecuador"
List1.AddItem "Mexico"
Capitales = ("Buenos Aires","Brasilia","Nidea 1","Nidea 2","Nidea 3")
End Sub

Private Sub List1_Click()
'Agregas lo que se haya seleccionado al texbox
IF RIGHT(LIST1.TEXT,1)=";" THEN
      Text1.Text = Text1.Text & Capitales(List1.ListIndex)
ELSE
      Text1.Text = Capitales(List1.ListIndex)
ENDIF
End Sub


Espero que sea de tu ayuda, el indixce del array deve coincidir con el indice del listado.
Fijate bien si esto funciona:
Capitales = ("",""....etc)
porke en una de esas me confundi con php
sino tendras que poner:
Capitales(0)="Buenos Aires"
Capitales(1)="Brasilia"
etc...

Saludos!

[kakinets]

Espero qe te sirva puse tres paises por no tenia mucho tiempo:

Código [Seleccionar] Expandir

If List1.Text = "Argentina" Then
  Text1.Text = "Bs. As."
ElseIf List1.Text = "Brasil" Then
  Text1.Text = "Brasilia"
ElseIf List1.Text = "Peru" Then
  Text1.Text = "Lima"
End If

        Suerte KakiNets

[Cicklow]

Espero qe te sirva puse tres paises por no tenia mucho tiempo:

Código [Seleccionar] Expandir

If List1.Text = "Argentina" Then
Text1.Text = "Bs. As."
ElseIf List1.Text = "Brasil" Then
Text1.Text = "Brasilia"
ElseIf List1.Text = "Peru" Then
Text1.Text = "Lima"
End If

Suerte KakiNets

eso no es lo que nesesita sigue sin hacer lectura de lo que el esta nesesitando....

Bueno muchas gracias, ahora lo complico un poco mas
Supongamos tener todo como estaba, ahora bien a la hora de clickear en "Argentina", quiero q me aparezca en el TextBox "Buenos Aieres", cuando clickeo en "Brasil" q aparezca "Brasilia", etc

Y q tb si clickeo Argentina me aparece Buenos Aires y ahi voy al TextBox le pongo un ";" o no, y voy y clickeo Brasil y me aparece Brasilia a continuacion de Buenos Aires
Es una especie de agregar contactos de mails como en hotmail

eso es lo que nesesita, que si colokas el ; en el text, lo que hagas es que el prximo pais que veas lo agrege al text sumado con lo que hay y no que borre el anterior