Programación General > Visual Basic 6.0 e inferiores

 Re: Codigo para Pasar Items de un Combox a Varios TextBox

<< < (3/3)

Brroz:
mexican, mexican...

Este último ejemplo de código debe de funcionar tal cúal en un formulario como el que decías. No usa ninguna matriz de controles (a diferencia del primero).

En tu formulario dices que tienes un ComboBox (supongo que llamado Combo1, si no es así, sustituye el nombre) y 15 TextBox llamados Text1, Text2, Text3,..., Text14,Text15. Muy bien. El código es para un ComandButton llamado 'Command1'. Si no lo tienes, añádelo. Copia el ejemplo (el último) en el formulario y ya está.

Mira el código hace lo siguiente:

Private Sub Command1_Click() 'Evento Click de un CommandButton llamado Command1
If Combo1.ListIndex < 0 Then 'Si no hay elemento seleccionado en el combo
MsgBox "Seleccione primero un elemento" 'Enviar un mensaje de aviso
Exit Sub 'Salir del evento
End If
Dim ctl1 As Control, int1 As Integer 'Declarar variables: una de tipo 'Control' y otra entero.
For int1 = 1 To 15 'Bucle del 1 al 15 (dices que tienes 15 textbox)
Set ctl1 = Me.Controls("Text" & int1) 'Asignar a la variable cada uno de los textbox (Text1, Text2, Text3 ....)
If Len(ctl1.Text) = 0 Then 'Si la longitud del texto del TextBox al que se refiere la variable es 0 (está vacio)
ctl1.Text = Combo1.List(Combo1.ListIndex) 'Asignar al textbox el valor del elemento seleccionado en el combo
Exit For  'y salir del bucle
End If
Next int1 'Bucle
Set ctl1 = Nothing 'Liberar referencia a objetos
End Sub

Yo creo que debería quedar claro, ¿no?

Chao.

mexican:
Me acabas de resolver el problema, eres un genio

Creo el mayor problema era que cuando ponia los TextBox en formulario los TextBox iban con el Text1 escrito por default y no se los quitaba

Adios gracias, hasta la próxima

Navegación

[0] Índice de Mensajes

[*] Página Anterior