Título: Agregar elementos en un ListBox y colocarlos en un TextBox Publicado por: renga73 en 4 Abril 2006, 06:19 am 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 Título: Re: Agregar elementos en un ListBox y colocarlos en un TextBox Publicado por: JuszR en 4 Abril 2006, 09:53 am Te lo hago solo porque es fácil. ;D
Código: 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 ::) Título: Re: Agregar elementos en un ListBox y colocarlos en un TextBox Publicado por: renga73 en 4 Abril 2006, 10:58 am 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 Título: Re: Agregar elementos en un ListBox y colocarlos en un TextBox Publicado por: JuszR en 4 Abril 2006, 11:08 am Código: 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. :huh: Título: Re: Agregar elementos en un ListBox y colocarlos en un TextBox Publicado por: renga73 en 4 Abril 2006, 12:11 pm 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 Título: Re: Agregar elementos en un ListBox y colocarlos en un TextBox Publicado por: [VolkS] en 4 Abril 2006, 13:03 pm 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 Título: Re: Agregar elementos en un ListBox y colocarlos en un TextBox Publicado por: renga73 en 4 Abril 2006, 13:52 pm Private Sub List1_Click() No eso hace lo mismo q posteo X.Cyclop en su primer post. No me soluciona el problemaIf 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 Título: Re: Agregar elementos en un ListBox y colocarlos en un TextBox Publicado por: Cicklow en 4 Abril 2006, 16:25 pm 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: '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! Título: Re: Agregar elementos en un ListBox y colocarlos en un TextBox Publicado por: kakinets en 5 Abril 2006, 00:29 am Espero qe te sirva puse tres paises por no tenia mucho tiempo:
Código: 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 Título: Re: Agregar elementos en un ListBox y colocarlos en un TextBox Publicado por: Cicklow en 5 Abril 2006, 01:10 am Espero qe te sirva puse tres paises por no tenia mucho tiempo: Código: 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 Título: Re: Agregar elementos en un ListBox y colocarlos en un TextBox Publicado por: kakinets en 5 Abril 2006, 01:31 am es fasil la solucion le agregas adelantes de cada capital Text1.Text y la coma si quieres y fue.
Mira si va andar escribiendo codigos largo que me juego la cabesa que lo copia y lo pega sin entender lo que hace.No es de forro pero yo lo hacia. Suerte muchachos Título: Re: Agregar elementos en un ListBox y colocarlos en un TextBox Publicado por: Cicklow en 5 Abril 2006, 01:38 am Esto es lo que nesesita:
el text 1 al iniciarce [ ] 'Vacio Precione en el pais Argentina y entonces el text1 es: [Buenos Aires] Coloka el ; al final [Buenos Aires;] Presiona otro pais [Buenos Aires; Brasilia] Presiona Otro Pais: [Peru] Osea que si pone el ; se agregan, yo entiendo lo que vos decis (espero), : Colokar esto: Text1.Value = Text1.Value & " " & List1.Text Y lso que kiera separar le pone el ; y listo jejeje pero es perder tiempo... o komo yo lo creo saludos!!! Título: Re: Agregar elementos en un ListBox y colocarlos en un TextBox Publicado por: kakinets en 5 Abril 2006, 01:41 am por que pusiste text1.value si es text1.text
Saludos Título: Re: Agregar elementos en un ListBox y colocarlos en un TextBox Publicado por: Cicklow en 5 Abril 2006, 01:45 am error de tipe, igual uno es de solo lectura y bla bla bla bla
Título: Re: Agregar elementos en un ListBox y colocarlos en un TextBox Publicado por: kakinets en 5 Abril 2006, 02:55 am yo creo que esto es lo que pidio:
Código: If List1.Text = "Argentina" Then Text1.Text = Text1.Text & "Bueno Aires;" ElseIf List1.Text = "Brasil" Then Text1.Text = Text1.Text & "Brasilia;" ElseIf List1.Text = "Peru" Then Text1.Text = Text1.Text & "Lima;" End If Si no es hasi no se.....Suerte muchachos Título: Re: Agregar elementos en un ListBox y colocarlos en un TextBox Publicado por: renga73 en 6 Abril 2006, 07:59 am Listo gente ya lo solucione hice esto
If txtCC.Text <> "" Then txtCC.Text = txtCC.Text & ", " & SMS(List1.ListIndex) Else txtCC.Text = SMS(List1.ListIndex) End If 'SMS es un arreglo de las 5 capitales Gracias a todos Título: Re: Agregar elementos en un ListBox y colocarlos en un TextBox Publicado por: [VolkS] en 7 Abril 2006, 13:49 pm Lo que postie yo funcioanaba a la perfeccion! :(
se manejaba con los index de la lista =( |