Tenho o seguinte problema...

Tenho um formulario com vários botoes para abrir outros formularios como por exemplo formularios de cadsatro de cidade, bairro ,cliente, funcionário e outros mais e estou usando eles com o mesmo nome  e um index diferente para cada um, como eu faço para clicar neste botão e ele abrir o formulário que eu quero, pois o comand_click é o mesmo para todos e eu não queria por um if para cada botão dentro do comand_click. O que é melhor para resolver meu problema???

Quem souber me ajuda!

Valeu!!! 

Private Sub Botao_Click(Index As Integer)

select case index

     case 1

          form....

     case 2

          form....

end select

 

Valeu mesmo Daniel, estou aprendo a usar o vb agora, e estas dicas me ajudam muito,

funcionou corretamente, mas apareceu outra dúvida. Se eu for clicando nos botões vai só abrindo formulários, tem algum código que faz para deixar só um formulário aberto?

Como por exemplo se eu abrir outro formulário obrigatoriamente o ultimo que estava aberto é fechdo, por que se eu for mudando de formulário terei que fechar todos depois  e eu estou usando ele dentro de um MDI eu queria apenas que mudasse de formulário sem abrir outro.

Isso é possivel??

Kairo , é so da um unload NomeFormulario que ele sai.

antes do form...., coloque a instrução:

unload me ---- fecha o formulário em execução

Olá...

 

Só completando os meus colegas acima... para fechar os formulários correntes menos o q vc quer crie uma procedure e coloque como parâmetro o nome do formulário q vc não quer fechar:

 

Sub P_FechaForms (byval NomeFrm as String)

 

Dim frmCurrent As Form

For Each frmCurrent In Forms

     IF NOT (LCase(frmCurrent.Name) = LCase(NameFrm)) Then  Unload frmCurrent
Next

 

End Sub

 

Coloque num módulo para q vc possa usar em todo o seu projeto tá legal?

 

at+ :)