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

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Menu X Habilitar
Alexandre C.G
Pontos: 2843 Pontos: 2843
PATOS DE MINAS
MG - BRASIL
ENUNCIADA !
Postada em 01/12/2005 14:19 hs            
Pessoal no menu editor, preciso habilitar e desabilitar itens do menu, mas nao estou conseguindo, alguem pode me ajudar? ja tenho isso pronto
 
if typeof frmPrincipal.controls(i) is menu then
    'agora aqui preciso desabilitar o item que ele acho , como faço?
endif
 
 
   
Moisesinho
SANTO ANDRÉ
SP - BRASIL
ENUNCIADA !
Postada em 01/12/2005 18:36 hs         
Se eu entendi a resposta é
 
Nomedomenu.enabled=False
 
Se eu estiver errado, não sei como posso te ajudar, pois não consegui entender sua pergunta direito, Alexandre. 

EmoçõesRRRREmoções
   
Alexandre C.G
Pontos: 2843 Pontos: 2843
PATOS DE MINAS
MG - BRASIL
ENUNCIADA !
Postada em 02/12/2005 13:03 hs            
isso mesmo moisesinho, mas o problema é que eu nao sei qual é o item de menu que precisa ser desabilitado, tem que ser o que ele achou, então teria que ser assim:
 
frmprincipal.controls(i).enable=false
mas, nao funciona , entendeu, eu nao sei que item é, pode ser qualquer um , eu nao tenho o nome dele especifico.
   
Elieser Topassi
Pontos: 2843 Pontos: 2843
SÃO JOSÉ DO RIO PRETO
SP - BRASIL
ENUNCIADA !
Postada em 02/12/2005 13:34 hs            
Alexandre... isso deve estar dentro de um Loop pela colllection frmprincipal.controls, correto???
Bem, se for, faz assim q resolve:
 
Dim obj as Object
For Each obj In frmPrincipal.Controls
    If TypeOf obj Is Menu Then
        obj.Enabled = False
    End If
Next obj
Set obj = Nothing
 
Flw!


Elieser Carlos Topassi
Analista de Sistemas - Desenvolvedor VB/ASP/.Net

e-mail/msn:
elieser_topassi@yahoo.com.br
São José do Rio Preto,SP - Brasil
_____________________________________________________
Emoções "O caminho do tolo aos seus prórios olhos lhe parece reto, mas o sábio ouve conselhos" (Pv 12:15)

   
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