Foro de elhacker.net

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 :-(

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()

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