USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Preciso de ajuda!!!
kairos
IPATINGA
MG - BRASIL
ENUNCIADA !
Postada em 18/09/2006 15:46 hs         
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!!! 
   
Daniel
Pontos: 2843
SÃO PAULO
SP - BRASIL
ENUNCIADA !
Postada em 18/09/2006 15:49 hs            
Private Sub Botao_Click(Index As Integer)
select case index
     case 1
          form....
     case 2
          form....
end select
 

dsmn
   
kairos
IPATINGA
MG - BRASIL
ENUNCIADA !
Postada em 18/09/2006 16:15 hs         
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??
   
Cardoso G
Pontos: 2843 Pontos: 2843
PATOS DE MINAS
MG - BRASIL
ENUNCIADA !
Postada em 18/09/2006 17:03 hs            
Kairo , é so da um unload NomeFormulario que ele sai.
   
Daniel
Pontos: 2843
SÃO PAULO
SP - BRASIL
ENUNCIADA !
Postada em 18/09/2006 17:04 hs            
antes do form...., coloque a instrução:
unload me ---- fecha o formulário em execução

dsmn
   
ghost_jlp
Pontos: 2843 Pontos: 2843 Pontos: 2843 Pontos: 2843
SÃO PAULO
SP - BRASIL
ENUNCIADA !
Postada em 18/09/2006 17:40 hs            
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+ :)
   
Página(s): 1/1    

CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página