Buenas, estaba empezando un proyecto en VB que consiste en una lista desplegable que al seleccionar una de sus opciones, esta haga aparecer en el textbox un determinado codigo que yo le asigne a cada una.
Por ejemplo si una de las opciones dice: "Deshabilitar el Administrador de tareas" yo al seleccionarla quiero que esa opción suelte en un TextBox el codigo necesario para deshabilitar el adm de tareas que sera en VBS pero eso no importa. Mi duda es.. ¿¿como debo hacer para asignarle un determinado texto (que en este caso sera un trozo de cod VBS) a las opciones de la ComboBox??
como debo hacer para que al seleccionar N opcion, que escriba en la textbox un determinado texto?
Agradeceria cualquier aporte.
usa el evento click del combobox, asigna un code espesifico segun el texto seleccionado
Cita de: DarkMatrix en 4 Junio 2009, 06:03 AM
usa el evento click del combobox, asigna un code espesifico segun el texto seleccionado
Claro, esa es la idea. Ahora, como seria en lenguaje VB ? pero lo estoy haciendo ocn el evento "Change".
Private Sub Combo1_Change()
Combo1.Locked = False
Seleccion = Combo1.listIndex 'Obtiene el numero de orden del elemento seleccionado
If seleccion = 2 then "COPIAR AL TEXTBOX"
End Sub
pero creo que deberia declarar antes las variables de los numeros.. o sea
Private Sub Combo1_Change()
1 = Me voy a jugar al futbol
2 = Voy a correr
3 = Bla bla bla 'etc...
Combo1.Locked = False
Seleccion = Combo1.listIndex 'Obtiene el numero de orden del elemento seleccionado
If seleccion = 2 then "COPIAR AL TEXTBOX"
End Sub
xDD no tuve que haber dejado el VB ahora no me acuerdo nada xD ..... :-(
o debo usar el "VARIABLE.Combo1.text" ??
simplemente haz esto, suponte que tienes estos elementos en el combobox:
Item1
Item2
Item3
el codigo seria haci:
Private Sub Combo1_Click()
Select Case Combo1.Text
Case Is = "Item1"
MsgBox " Escogiste el Item 1"
Case Is = "Item2"
MsgBox " Escogiste el Item 2"
Case Is = "Item3"
MsgBox " Escogiste el Item 3"
End Select
End Sub
Edito: Habia copiado y pegado y no habia acomodado xD!
Estas seguo que es asi?? Yo sigo leyendo otros tutos pero nada! >:(
no sera con IF?
Lo puedes hacer con if o con Select case, lo mismo da xD
No hay una forma única de hacer las cosas.
Pero si hay varias opciones como aquí es más práctico usar el Select Case no crees?
No estaras usando el evento Change en lugar del click ?, el code va en el click
Private Sub Combo1_Click()
Select Case Combo1.ListIndex
Case Is = 0
MsgBox " Escogiste el Item 1"
Case Is = 1
MsgBox " Escogiste el Item 2"
Case Is = 2
MsgBox " Escogiste el Item 3"
Case Is = 3
MsgBox " Escogiste el Item 3"
End Select
End Sub
Private Sub Form_Load()
Combo1.AddItem "1"
Combo1.AddItem "2"
Combo1.AddItem "3"
Combo1.AddItem "4"
End Sub
Bien, ya correji un par de cosas y sigo leyendo del libro "Visual Basic" Guia del estudiante Cap 1 al 5. pero hay muchas cosas que no las explica este libro y bueno para eso esta el foro para ayudarme a aclarar mis dudas, estoy leyendo ahora los aportes de NekroByte y bueno, vere que sale.
Voy a ver si puedo avanzar lo mas que pueda sin hacer tantas preguntas asi no parezco tan pesado y cuando tenga mas dudas las posteare.
gracias darkmatrix por la iniciativa, spider por hacerme entrar en razon y gracias dessa por corregirme, estaba usando el evento "change" y bueno ahora esta en el click.
PD: Los tendre en cuenta en el "gracias a" del programa.