OCULTAR MENU

ERLANMG 15/03/2010 08:59:19
#336969
Caros amigos,

Estou com a seguinte dúvida, como faço para ocultar um item do menu.

Por exemplo o usuário [Ô]tal[Ô] não terá acesso ao menu usuários.

Quando digo menu é o menu do mdiform.

Desde já agradeço a atenção de todos.
DUSK 15/03/2010 09:45:01
#336973
Select Case Op
Case [Ô]1[Ô]
Mdiform.optCadastro.Enabled = False
Case [Ô]1.1[Ô]
Mdiform.OptTeste.Enabled = False
Case [Ô]1.2[Ô]
Mdiform.Optteste2.Enabled = False
End Select
PEGUDO 15/03/2010 09:47:26
#336974 Resposta escolhida
Cara, Neste exemplo eu coloquei um MDIForm com 3 menus: mnuAbrir, mnuConfig, mnuTroca, e uma tela de login com 2 textox
primeiro você tem que colocar uma variável pública, em um módulo, para guardar o nome do usuário, por exemplo:

[txt-color=#0000f0]Public[/txt-color] usuario [txt-color=#0000f0]As String[/txt-color]

Na sua tela de login, faça isto:

[txt-color=#0000f0]Private Sub[/txt-color] cmdOK_Click()
[txt-color=#0000f0]If[/txt-color] txtUserName.Text = [Ô]admin[Ô] [txt-color=#0000f0]And[/txt-color] txtPassword.Text = [Ô]1234[Ô] [txt-color=#0000f0]Then[/txt-color]
usuario = [Ô]administrador[Ô]
MDIForm1.Show
Unload Me
[txt-color=#0000f0]ElseIf[/txt-color] txtUserName.Text = [Ô]usuario[Ô] [txt-color=#0000f0]And[/txt-color] txtPassword.Text = [Ô]4321[Ô] [txt-color=#0000f0]Then[/txt-color]
usuario = [Ô]usuario[Ô]
MDIForm1.Show
Unload Me
[txt-color=#0000f0]Else[/txt-color]
txtUserName.Text = [Ô][Ô]
txtPassword.Text = [Ô][Ô]
MsgBox [Ô]Senha ou usuário incorretos[Ô], vbCritical, [Ô]Senha[Ô]
txtUserName.SetFocus
[txt-color=#0000f0]End If
End Sub[/txt-color]

Ou seja, se o usuário digitar [Ô]admin[Ô] e a senha [Ô]1234[Ô], então a variável [Ô]usuario[Ô], guardará o valor [Ô]administrador[Ô]
se digitar [Ô]usuario[Ô] e a senha [Ô]4321[Ô], a variável [Ô]usuario[Ô], guardará o valor [Ô]usuario[Ô]

no load do seu MDIForm faça como este exemplo:

[txt-color=#0000f0]Private Sub [/txt-color]MDIForm_Load()
[txt-color=#0000f0]If[/txt-color] usuario = [Ô]administrador[Ô] [txt-color=#0000f0]Then[/txt-color]
mnuAbrir.Enabled = [txt-color=#0000f0]True[/txt-color]
mnuConfig.Enabled = [txt-color=#0000f0]True[/txt-color]
[txt-color=#0000f0]ElseIf[/txt-color] usuario = [Ô]usuario[Ô] [txt-color=#0000f0]Then[/txt-color]
mnuAbrir.Enabled = [txt-color=#0000f0]True[/txt-color]
mnuConfig.Enabled = [txt-color=#0000f0]False[/txt-color]
[txt-color=#0000f0]End If
End Sub[/txt-color]

Este código aí em baixo é para o menu [Ô]Trocar usuário[Ô]

[txt-color=#0000f0]Private Sub [/txt-color]mnuTroca_Click()
frmLogin.Show
Unload Me
[txt-color=#0000f0]End Sub[/txt-color]

Lembre-se de que é só um exemplo e se satisfazer sua necessidade, faça as mudanças necessárias.
valeu
Tópico encerrado , respostas não são mais permitidas
Voltar