Programación General > Visual Basic 6.0 e inferiores
Re: Codigo para Pasar Items de un Combox a Varios TextBox
mexican:
Hola Chiaravel
No se si me explique bien:
Ya tengo el combox con Items adentro
Quiero que al escoger un item del combox, y luego le doy click a un CommandButton me pase el item que escogi del combox a un textbox, si el primer textbox esta vacio entonces me lo ponga ahí, y si esta lleno entonces me lo pase al segundo textbox, 3, 4, 5, 6 etc.
Estos pasos se repiten cada vez que escoja un item del combox hasta llenar los 14 textbox
El codigo que me diste al darle click al botton me pone este error:
Error '340' en tiempo de ejecucion
El elemento '15' de la matriz de controles no existe
Gracias de antemano
chiaravel:
Hola.
En primer lugar el error te esta indicando que no has creado la matriz de controles como yo te explique.
No te habia entendido bien... Disculpa.
La Sintaxis para lo que tu quieres es...
Private Sub Button1_click()
Dim i as integer, ya_esta as boolean
Dim o as integer
ya_esta=false
o=1
do until ya_esta=true
if len(textbox.item(o).text)>0 then
o=o+1
else
textbox.item(o).text=combo.list(combo.listindex)
ya_esta=true
endif
loop
Listo..
Espero que ahora te funcione.
Suerte
mexican:
En el codigo que me diste me sujieres que ponga en el Form Load un codigo, como le hago para poner dos codigos diferentes en el Form Load es decir ya tengo un codigo para que me cargue items el combox, como pongo el tuyo
Gracias
Brroz:
Hola mexican.
Imos ver...
El código de ejemplo lo pongo con el fin de que tu lo analices, entiendas y ADAPTES a tus propósitos. El único motivo del código que va en Form_Load es añadir al combo datos de prueba para el ejemplo.
Lo que está claro es que NO TE VALDRÁ DE NADA PEGAR EL CÓDIGO DE EJEMPLO TAL CÚAL. Tienes que adaptarlo a lo que tú necesitas.
De todas formas, como veo que tienes verdaderos problemas para compreder los ejemplos (incluso a pesar de la explicación de Chiaravel), sin que sirva de precedente y con permiso de todos, te adjunto el código que necesitas.
********************************************
Private Sub Command1_Click()
If Combo1.ListIndex < 0 Then
MsgBox "Seleccione primero un elemento"
Exit Sub
End If
Dim ctl1 As Control, int1 As Integer
For int1 = 1 To 15
Set ctl1 = Me.Controls("Text" & int1)
If Len(ctl1.Text) = 0 Then
ctl1.Text = Combo1.List(Combo1.ListIndex)
Exit For
End If
Next int1
Set ctl1 = Nothing
End Sub
*********************************************
Por favor, intenta comprender el ejemplo para que puedas aprender por ti mismo.
Ánimo y suerte.
mexican:
Creo que el probelma esta en la Matriz de Control" pero por mas que le doy Vueltas al codigo no logro entenderlo
No se si puedan darme un ejemplo ya echo con los textbox y el combox
Entenderia si no me lo pueden dar y disculpen otra vez mi ignorancia
Gracias
ramirog@valle.net.mx
Navegación
[#] Página Siguiente
[*] Página Anterior
Ir a la versión completa