ComboBox y TextBox

Jaqueline
15 de Julio del 2004
Tengo un problema;

Estoy haciendo un programa que manipula una base de datos X. todo me va de maravilla pero mi duda es la siguiente:

En mi programa tengo un ConboBox con las siguientes opciones:

ComboBox
Cartas administrativas
Cartas retro alimentación
etc...

Y Tambien abajo del mismo Tengo un TexBox (caja de texto) Que esta vacia...

Lo que yo quiero es lo siguiente:

Cuando yo baya al comboBox y pulse Cartas administrativas, en mi Texbox se muestre dicha información , y si pulso otra casilla del mismo comboBox, se muestre la información en el mismo Texbox

Hal alguna manera de hacerlo.

Espero haberme explicado bien.

Gracias

semperfimxl
15 de Julio del 2004
Utiliza el evento CLICK del combobox...

Private sub combobox1_click()
textbox.text = combobox1.list(combobox1.listindex)
end sub

De esta manera, cuando acceses el combobox, al hacer click en alguno de sus items, el evento CLICK se encarga de enviar la informacion del item seleccionado al textbox...

Saludos !

tecniCam
15 de Julio del 2004
Si lo que quieres es que el Text1 muestre lo mismo que aparece en el ComboBox, debes hacer lo que sigue:

Private Sub Combo1_Click()
Text1 = Combo1.Text
End Sub

Si pones ListIndex aparecerá el índice, o sea, el número de la lista, por ejemplo el 3.