Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: renga73 en 4 Abril 2006, 06:19 am


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
Cita de: [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
No eso hace lo mismo q posteo X.Cyclop en su primer post. No me soluciona el problema

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
Cita de: pedronets 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

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

Cita de: 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

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 =(


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