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
Te lo hago solo porque es fácil. ;D
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
::)
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
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:
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
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
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
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):
'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!
Espero qe te sirva puse tres paises por no tenia mucho tiempo:
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
Cita de: pedronets en 5 Abril 2006, 00:29 AM
Espero qe te sirva puse tres paises por no tenia mucho tiempo:
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
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
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!!!
por que pusiste text1.value si es text1.text
Saludos
error de tipe, igual uno es de solo lectura y bla bla bla bla
yo creo que esto es lo que pidio:
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
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
Lo que postie yo funcioanaba a la perfeccion! :(
se manejaba con los index de la lista =(