Visual Basic.NET - Ayuda Multiples Combos un mismo Evento sinonimo

Hola Que tal

tengo un formulario que utiliza multiples combobox con 2 eventos: keypress y keydown...

Private Sub DenominCmb_DropDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles DenominCmb.DropDown
DenominCmb.Text = Nothing
End Sub

Private Sub DenominCmb_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles DenominCmb.KeyDown
If DenominCmb.Text.Length < 1 Then
Me.desc_remitTextBox.Focus()
Me.DenominCmb.Focus()
End If
End Sub

el caso es que son varios combos y me gustaria utilizar el mismo evento para todos, se que puedo utilizar el handles pero no se como poner un sinonimo para todos los combos q los reconozcan a todos, me imagino algo asi:

Private Sub DenominCmb_DropDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles DenominCmb.DropDown, pruebaCmb.DropDown, OficinaCmb.DropDown, TipoDocCmb.DropDown
_combobox.Text = Nothing
End Sub

Private Sub DenominCmb_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles DenominCmb.KeyDown, pruebaCmb.DropDown, OficinaCmb.DropDown, TipoDocCmb.DropDown
If _combobox.Text.Length < 1 Then
_textbox.Focus()
_combobox.Focus()
End If
End Sub

please una ayuda

Esta bien lo qu haces de utilizar Handles, y pues si te fijas lo que tienes por ejemplo en el evento DropDown, es una funcion. Que recibe dos parametros, sender y e, lo que necesitas es utilizar objeto sender ya que se hace referencia al objeto en el ke se esta realizando el evento.

En si tendriás que hacer solo esto:

Private Sub DenominCmb_DropDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles DenominCmb.DropDown, pruebaCmb.DropDown, OficinaCmb.DropDown, TipoDocCmb.DropDown

sender.Text = String.Empty

End Sub

Hola que tal

te dire que probe lo que me escribiste, pero no me sale, ni sale las funciones por defecto del combo ... ignoro porque

mas bien en otro foro me dieron la solucion :


Private Sub DenominCmb_DropDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles DenominCmb.DropDown , Cmb1.DropDown
dim cmb as ComboBox = ctype(sender,comboBox)
cmb.Text = Nothing
End Sub

asi si sale, de todas maneras gracias :)

Pendejo es los mismo, no salen las funciones pork estas manejando el objeto sender, pero en tiempo de ejecución funciona, ahi lo que estas haciendo es convertir el sender en combobox, nose para ke si combo box ya es, si tubieras que heredar por ejemplo un evento a combobox y un textbox........bueno ni para ke te explico. Pero bueno usa lineas de más pendejo.