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

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  referenciar a um objeto com o nome dele em uma var
M A R C I O
SÃO BERNARDO
SP - BRASIL
ENUNCIADA !
Postada em 13/07/2006 14:59 hs            
Ola, eu estou com a seguinte duvida, quero por exemplo desabilitar um botão cujo o nome dele esta em uma variavel, por exemplo:
tenho um CommandButton com o nome de cmdIncluir, esse nome cmdIncluir esta em uma variavel String, eu quero simplesmente dar um Visible = False pra esse botão, grosseiramente seria mais ou menos isso
 
V_Botao = "cmdIncluir"
V_Botao.Visible = False
 
não sei se consegui explicar bem o q eu quero, mais se puderem me ajudar desde ja agradeço

M A R C I O
   
>>|Bedin|<<
SANTO ANDRE
SP - BRASIL
ENUNCIADA !
Postada em 13/07/2006 15:16 hs            
Até q enfim achei alguem do ABC...hehe

Tente assim:

frmForm1.cmdIcluir.Visible = False    ou   frmForm1.V_Botao.Visible = False


naum sei bem se é isso... espero ter ajudado!

.:Rodrigo Bedin:.
   
Daniel
Pontos: 2843
SÃO PAULO
SP - BRASIL
ENUNCIADA !
Postada em 13/07/2006 15:50 hs            
    Dim testebotao As Object
    Set testebotao = Bt_Cancelar (Bt_Cancelar é o nome do botão)
    testebotao.Visible = False

dsmn
   
M A R C I O
SÃO BERNARDO
SP - BRASIL
ENUNCIADA !
Postada em 13/07/2006 17:01 hs            
Ola Rodrigo, legal saber que tem mais gente do ABC por aki, mais na verdade não era bem isso q eu estava querendo
O Daniel chegou perto, mais Daniel da uma olhada por favor no q realmente eu estou tantando fazer:
Dim testebotao As Object
Dim V_Ferramenta as String
V_Ferramenta = rsAcesso![Ferramenta]'*
Set testebotao = V_Ferramenta
testebotao.Visible = False

'*esse rsAcesso![Ferramenta] é o recodset com o nome do botão, no nosso caso "Bt_Cancelar"
na hora que vai ser executada a linha "Set testebotao = V_Ferramenta" ele me da um erro "Object required"
se vc souber como resolver isso ou mais alguem q possa me ajudar eu agradeço...

M A R C I O
   
Daniel
Pontos: 2843
SÃO PAULO
SP - BRASIL
ENUNCIADA !
Postada em 13/07/2006 17:16 hs            
Foi um erro de digitação ou voce colocou mesmo '* apos o rsAcesso![Ferramenta]
mas de qq forma pq não faz direto, se voltar a dar erro verifique o conteudo do rsAcesso![Ferramenta] na tela de debug
 
Dim testebotao As Object
Set testebotao = rsAcesso![Ferramenta]
 

dsmn
   
Sandro
não registrado
ENUNCIADA !
Postada em 13/07/2006 20:06 hs   
Olá,
 
Acho que entendi o que você quer. Você quer guardar o nome de um determinado controle em um campo da sua tabela e determinar se ele será visível ou não, certo?
Bom, aqui vai um exemplo de como você pode conseguir isso:
 
    Dim TesteBotao As Object
    Dim V_Ferramenta as String

    V_Ferramenta = rsAcesso!Ferramenta
 
    Set TesteBotao = Form1.Controls(V_Ferramenta)
    TesteBotao.Visible = False
   
    Set TesteBotao = Nothing
   
Um abraço,
Sandro.
   
Página(s): 1/2      PRÓXIMA »


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



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