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