CONTROLE MENU ACESSOS DE USUARIO VIA TAB KRYPTON

LUCASMENDONCA 27/12/2012 07:54:23
#416452

bom dia!
alguem por acaso poderia me ajudar com algo sobre controle ao menu de acessos de usuarios via TAB[ô]s com o componete krypton ?
abaixo segue linguagem do controle de Menus via MenuStrip que é o antigo que era utilizado.

function para leitura de controle de usuarios:

Private Function EncontraItemMenu(ByVal itens As ToolStripItemCollection, ByVal nome As String) As ToolStripMenuItem

Try
Dim ret As ToolStripMenuItem = Nothing
For Each ti As ToolStripItem In itens
If TypeOf ti Is ToolStripMenuItem Then
Dim mi As ToolStripMenuItem = DirectCast(ti, ToolStripMenuItem)
If mi.DropDownItems.Count > 0 Then
ret = EncontraItemMenu(mi.DropDownItems, nome)
If ret IsNot Nothing Then
Exit For
End If
Else
If ti.Name = nome Then
ret = DirectCast(ti, ToolStripMenuItem)
End If
End If
End If
Next
Return ret
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Function

nisso apos criar a function acima eu utilizo a linguagem abaixo no ato do Load do Menu de Acesso Principal para executar e fazer a leitura dos Menus que o usuario tem acesso, porem hoje estou usando as TAB[ô]s do component factory Krypton e nao estou conseguindo fazer funcionar:
Private Sub MMC_MENU_ACESS_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Try

[ô]Verifica os Niveis de Acesso de acordo com o usuario logado e libera os Menus
cmd = New OleDbCommand([Ô]select distinct a.mmc_nivel, b.mmc_frm_menu from mmc_vinc_acesso_oprid a, mmc_nivel_menu b where a.mmc_nivel = b.mmc_nivel and a.status_vinc = [ô]A[ô] and b.status_nivel_menu = [ô]A[ô] and a.mmc_login = [ô][Ô] & MMC_LOGON.MMC_LOGIN.Text & [Ô][ô][Ô], GetConexao)
reader = cmd.ExecuteReader
While reader.Read
Dim NomeMenu As String = reader([Ô]mmc_frm_menu[Ô]).ToString
Dim objMenu As ToolStripMenuItem = EncontraItemMenu(menuStrip1.Items, NomeMenu)
If objMenu IsNot Nothing Then
objMenu.Visible = True
End If
Dim Menu As ToolStripItem() = toolStrip1.Items.Find(NomeMenu, True)
If Menu.Length > 0 Then
Menu(0).Visible = True
End If
End While

Desconectar()
Catch ex As Exception
Desconectar()
MsgBox(ex.Message, vbInformation)
End Try
End Sub