Select case

[Dilson Hasselmann]

Boa tarde a todos!

Gostaria de saber se no VB.NET tem como fazer como no VB6 eu fazia, segue código exemplo:

Private Sub tbrCliente_ButtonClick(ByVal Button As MSComctlLib.Button)
   Select Case Button.Key
       Case Is = "Gravar"
           menGravar_Click
       Case Is = "Limpar"
           menLimpar_Click
       Case Is = "Excluir"
           menExcluir_Click
       Case Is = "Pesquisa"
           menPesquisa_Click
       Case Is = "Historico"
           menHistorico_Click
       Case Is = "Imprimir"
           menImprimir_Click
       Case Is = "Fechar"
           menFechar_Click
   End Select
End Sub

Obviamente que os caminhos mudaram para menImprimir.performclick, a quem puder ajudar-me agradeço!

Obrigado!

[Flechaus]

Olá Dilson, o VB.Net não suporta o array de controles, como é feito no VB6, porém existem outras alternativas para esta característica, normalmente nestes eventos, são passados uma variável objeto para o procedimento, não posso te dizer ao certo, pois não mexo com .Net, mas se estiver migrando de VB6 para .Net, coloque a seção "Case Else" nos blocos "Select Case", isso irá diminuir as mensagem de atenção durante o processo de migração. Existem exemplos na internet, é fácil de encontrar. Espero que tenha ajudado.