ONDE? "ENABLED"?

USUARIO.EXCLUIDOS 07/07/2005 14:37:56
#92721
Olá Pessoal,

Como faço p/ colocar na rotina abaixo: “Por exemplo”:
Quando for pressionado o “MnuCadastro” (ou) estiver aberto o menu cadastro
O restante do botão ( “MnuConsulta_Click e MnuSobre_Click”) ficasse em ENABLED?
Alguém sabe onde coloco? "O MENU PRINCIPAL é MDIMenu" . Ok! Agora só que não sei onde coloco...

(Fontes)
'-------------------------------------------------------------------------------------
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)

Select Case Button.Index

Case 1
MnuCadastro_Click

Case 2
MnuConsulta_Click

Case 3
MnuSobre_Click

Case 4
Unload Me

End Select

End Sub
'-------------------------------------------------------------------------------------
Private Sub MnuCadastro_Click()
FrmCadastro.Show
End Sub
'-------------------------------------------------------------------------------------
Private Sub MnuConsulta_Click()
FrmConsulta.Show
End Sub
'-------------------------------------------------------------------------------------
Private Sub MnuSobre_Click()
FrmSobre.Show
End Sub
'-------------------------------------------------------------------------------------
Private Sub MnuSair_Click()
Unload Me
End Sub
'-------------------------------------------------------------------------------------
USUARIO.EXCLUIDOS 07/07/2005 14:43:35
#92722
toolbar1.button.index(2).enabled = true
para ativar
toolbar1.button.index(2).enabled = false
USUARIO.EXCLUIDOS 07/07/2005 16:51:01
#92761
Compile error:
Method or data member not found
--------------------------------------------------------------------------------------
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)

Select Case Button.Index

Case 1
MnuCadastro_Click
[txt-color=#ff0000] Toolbar1.Button.Index(2).Enabled = False 'Desabilita o botão consulta[/txt-color]
Case 2
MnuConsulta_Click

Case 3
MnuSobre_Click

Case 4
Unload Me

End Select

End Sub
USUARIO.EXCLUIDOS 07/07/2005 17:28:49
#92778 Resposta escolhida
Robson,
Tente isto:
 Toolbar1.Buttons.Item(2).Enabled=False
USUARIO.EXCLUIDOS 07/07/2005 17:43:57
#92781
** O botão continua habilitado ***
--------------------------------------------------------------------------------------
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)

Select Case Button.Index

Case 1
MnuCadastro_Click
[txt-color=#00ff00] Toolbar1.Buttons.Item(2).Enabled=False [/txt-color]
Case 2
MnuConsulta_Click

etc...
--------------------------------------------------------------------------------------

Ok!
USUARIO.EXCLUIDOS 07/07/2005 17:55:05
#92787
Ops... Desculpe...

Agora funcionou... Blz!
:: NO Case 2 é o 3 :::

Toolbar1.Buttons.Item(3).Enabled=False 'Faz referência ao index 3 dentro da propriedades do Toolbar1

Obrigado "WCOSTA"
Tópico encerrado , respostas não são mais permitidas
Voltar