[DUDA] ComboBox y su lista

[Enemy]

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.

[DarkMatrix]

usa el evento click del combobox, asigna un code espesifico segun el texto seleccionado

[Enemy]

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".

Código [Seleccionar] Expandir

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

Código [Seleccionar] Expandir

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" ??

[DarkMatrix]

simplemente haz esto, suponte que tienes estos elementos en el combobox:

Item1
Item2
Item3

el codigo seria haci:

Código (vb) [Seleccionar] Expandir


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!

[Enemy]

Estas seguo que es asi?? Yo sigo leyendo otros tutos pero nada! 

no sera con IF?

[Spider-Net]

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?

[Dessa]

No estaras usando el evento Change en lugar del click ?, el code va en el click

[Dessa]

Código [Seleccionar] Expandir



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




[Enemy]

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.