[VB.Net] Problema con ComboBox y Button

[albyta ñurinda]

hola me gustaría m ayudasen con un pequeño proyecto en vb.net tengo un combo del cual se despliegan 3 opciones me gustaría que sea el combobox el que active el botón nuevo para ingresar datos , como seria en este caso ,les agradecería la ayuda

[Eleкtro]

Iba a avisarte de las normas por mensaje privado pero te me adelantaste al crear el post...

Bienvenido al foro,
porfavor, lee las normas del foro.

1) Los títulos deben ser descriptivos, "ayuda" no describe el problema.
2) Intenta mostrar el código (la parte relevante) siempre que sea posible. Los detalles son necesarios para entender tu pregunta...
3) los códigos deben ir dentro de su respectiva etiqueta geshi.



Si no he entendido mal, ¿quieres invocar/pulsar un botón automaticamente al elegir una opción específica del combobox?.

Entonces aquí tienes un ejemplo, copia y compila este código fuente, al seleccionar el elemento "tres" del combobox se activa y se pulsa el botón.

En esencia lo que hago es parsear el texto del elemento seleccionado en el combobox, y luego llamar al método Button.PerformClick()

Código (vbnet) [Seleccionar] Expandir

Public Class Form1

   Private WithEvents cb_opciones As New ComboBox
   Private WithEvents bt_nuevo As New Button

   Public Sub New()

       ' This call is required by the designer.
       Me.InitializeComponent()

       ' Add any initialization after the InitializeComponent() call.
       Me.AddControlsIntoUI()

   End Sub

   ''' <summary>
   ''' Configura y añade el combobox y el botón al formulario.
   ''' </summary>
   Private Sub AddControlsIntoUI()

       With cb_opciones
           .Items.AddRange({"uno", "dos", "tres"})
           .Location = New Point(10, 10)
       End With

       With bt_nuevo
           .Text = "Nuevo"
           .Enabled = False
           .FlatStyle = FlatStyle.System
           .Location = New Point((cb_opciones.Right + 10), cb_opciones.Left)
       End With

       Me.Controls.AddRange({cb_opciones, bt_nuevo})

   End Sub

   Private Sub cb_opciones_SelectedIndexChanged(ByVal sender As Object, ByVal e As EventArgs) _
   Handles cb_opciones.SelectedIndexChanged

       Select Case DirectCast(sender, ComboBox).SelectedItem.ToString

           Case "uno"

           Case "dos"

           Case "tres"
               With bt_nuevo
                   .Enabled = True
                   .PerformClick()
               End With

       End Select

   End Sub

   Private Sub bt_nuevo_Click(ByVal sender As Object, ByVal e As EventArgs) _
   Handles bt_nuevo.Click

       MessageBox.Show("¡Me has pulsado!", "", MessageBoxButtons.OK)

   End Sub

End Class

Saludos