Tener dos subs con el mismo codigo es posible?

[cyber_dark]

aun que parezca tonto y sin uso es posible usar 2 subs con el mismo codigo, ejemplo:

Private Sub Boton1_Click() and Private Sub Boton2_Click()
mi cogido
End Sub

o es necesario escribir lo mismo codigo en ambas subs?

[erbuson]

Hola, la verdad es que la considero una pregunta sin sentido ya que lo que en realidad debes hacer es una sub indicependiente y que cada Boton la llame.

Código:

Sub MiCodigo ()
  ' El Codigo
End Sub

Private Sub Boton1_Click() 
  Call MiCodigo
End Sub

Private Sub Boton2_Click() 
  Call MiCodigo
End Sub

O tienes la posibilidad de crear una matriz de Controles con lo que tendrias

Código:

Private Sub Boton_Click(Index As Integer) 
  'El Codigo
End Sub

Saludos

[franko1809]

En caso utilize una matriz de controles tendria que ser

Código vb:

Private Sub Boton_Click(Index As Integer) 
select case index
 
'cada case representaria al indice del boton
          case 0
 
          case 1
end select
End Sub
 

[erbuson]

Si, pero la pregunta era si podía utilizar el mismo código por lo que la comparacion del index no tiene, en este caso ningun sentido, por eso no se la indique, pero valga la expliccion para futuros navegantes.

Un saludo.

[dsio392i3nkmw9d]

como gustes,tambien puedes llamar al procedimiento solo pones esto " Boton1_Click"