Crear un menustrip con código en vb.net

Estoy realizando un nuevo programita pero me tope con un problemilla, quiero crear un menustrip pero con códigos, llamando datos desde una base de datos el código esta así en lo siguiente:

Dim ms As New MenuStrip()
Dim sqlmenus As New SqlDataAdapter("SELECT * FROM config_regmenuconfig INNER JOIN config_regniveles2 on " & _
"config_regmenuconfig.idmenu = config_regniveles2.idmenu WHERE config_regniveles2.idnivel='" & frmconidnivel & _
"'And config_regniveles2.estado='" & "T" & "'And config_regmenuconfig.estado='" & "T" & "'", cn)
reconectar()
Dim sdme As New DataSet
Dim sdme2 As New DataSet
sqlmenus.Fill(sdme, "config_regniveles2")
sqlmenus.Fill(sdme2, "config_regmenuconfig")
If sdme.Tables("config_regniveles2").Rows.Count = 0 Or sdme2.Tables("config_regmenuconfig").Rows.Count = 0 Then
MsgBox("No hay datos configurados con el nivel y el menú de las aplicaciones", vbCritical, "Error de configuración")
End
Else
Dim m As Integer
For m = 0 To sdme.Tables("config_regniveles2").Rows.Count - 1 And sdme2.Tables("config_regmenuconfig").Rows.Count - 1
Dim windowMenu As New ToolStripMenuItem(sdme.Tables("config_regniveles2").Rows(m)("descripcion").ToString)
'Dim windowNewMenu As New ToolStripMenuItem((sdme.Tables("config_regniveles2"). Rows(m)("idmenu"). ToString), Nothing, New EventHandler(AddressOf windowNewMenu_Click))
windowMenu.DropDownItems.Add(windowNewMenu)
CType(windowMenu.DropDown, ToolStripDropDownMenu).ShowImageMargin = False
CType(windowMenu.DropDown, ToolStripDropDownMenu).ShowCheckMargin = True
ms.Items.Add(windowMenu)
ms.Dock = DockStyle.Top
Me.MainMenuStrip = ms
Me.Controls.Add(ms)
Next
End If

Todo sale bien cuando me crea el menu, pero en el submenú no se como hacerle me pueden ayudar

Respuesta

Disculpa no manejo visual basic

1 respuesta más de otro experto

Respuesta

Como yo lo hago.

Primero oculto todos los items del menu.

Luego hago mi sql buscando las opciones habilitadas que tiene el usuario, en un campo de la tabla donde tengo las opciones guardo el nombre del menu

Luego recooro los items del menu preguntando si es igual al nombre que tengo en la tabla.

En estas función cargo las opciones que tiene habilitada el usuario y recorro los items principales del menu

Private Function Carga_Menu()
Dim oSubmenuItems As ToolStripItemCollection

For Each MiDataRows As DataRow In cSeguri_Menu.Lista(2, 0, 0, 0, 0)
For Each oOpcionMenu As ToolStripMenuItem In Me.MenPrincipal.Items
If MiDataRows("men_modu").ToString <> Nothing Then
If oOpcionMenu.Name = MiDataRows("men_modu") Then
If oOpcionMenu.DropDownItems.Count > 0 Then
If MiDataRows("men_sub_modu").ToString <> Nothing Then
Me.RecorrerSubmenu(oOpcionMenu.DropDownItems, MiDataRows("men_sub_modu").ToString, MiDataRows("nom_btn"))
End If
End If
End If
End If
Next
Next
End Function

En esta función recorro los submenus de cada item principal y les cambio es estado a visible

Private Sub RecorrerSubmenu(ByVal oSubmenuItems As ToolStripItemCollection, ByVal NomSub As String, ByVal xBoton As String)
For Each oSubitem As ToolStripItem In oSubmenuItems
If oSubitem.GetType Is GetType(ToolStripMenuItem) Then
If oSubitem.Name = NomSub Then
CType(oSubitem, ToolStripMenuItem).Visible = True
End If
End If
Next
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Como lograr la búsqueda de registros en vb .net

Al tratar de ejecutar la búsqueda en vb.net me marca error : Excepción no controlada del tipo 'System. Data. OleDb. OleDbException' en System.Data.dll {"No se han especificado valores para algunos de los parámetros requeridos."} Código: Private Sub...
1 respuesta

Problema en buscar datos

No puedo realizar la búsqueda me sale error el fill di me pueden ayudar Function Buscar_registro(ByVal codigo_clave As String) As Boolean 'conexión Dim conexión As New OleDbConnection conexión.ConnectionString = "provider = Microsoft.ACE.OLEDB.12.0;...
1 respuesta

Crear perfiles de usuarios visual basic

Deseo saber como hago para crear diferentes perfiles de usuarios en mi desarrollo web visual 2008. Y darles algunos permisos.
1 respuesta

Visual basic.net

Estoy trabajando un proyecto con vb.net y mysql ... El problema me surgió cuando utilice en 2 procedimientos unos dataadapter..., el primero lo uso para limpiar ciertos txtbox según los que en la base de datos estén habilitados para ser borrados cada...
1 respuesta

Error Cargar Reporte utilizando CrystalDecisions

Estoy trabajando con Visual Studio 2008, y he creado una pagina WEB que genera un reporte, cuando lo ejecuto en mi PC sale todo bien, pero cuando lo ejecuto en el servidor Web, me esta saliendo este error: URL: /consultas/frmReportes.aspx Servidor:...
1 respuesta

"sql" visual basic 2008 con textbox y data grid

Estoy trabajando en un proyecto en visual basic 2008. Mi pregunta es al siguiente: Tengo un campo de texto y un combobox, el combobox me permite escoger los diferentes campos de la tabla, mientras que el textbox me permite ingresar el valor a buscar....
1 respuesta

Combos en cascada en detailsview

La consulta es: como se haría para lograr que dos dropdownlist que se encuentran contenidos en un detailview logren la funcionalidad; esto es, selecciono el primer dropdownlist y que se actualice a esa selección el segundo dropdownlist (algo así como...
1 respuesta

Fila en datagridview en visual 2010

Tengo en un form: un datagridview, un textbox1 y un botón donde al consultar por apellido me señala la fila en el datagridview donde se encuentra el registro, claro funciona si solo si pongo el apellido completo es decir, si pongo castro me...
1 respuesta

Eliminar datos listview

Tengo un form con un listview al cual utilizo el siguiente código para eliminar los items, pero no me funciona: Listview. Items. Clear () Le he puesto un mensaje después de esta sentencia para revisar el form y me borra todos los datos, pero cuando...
1 respuesta

Seleccionar item de un combo y rellenar un textbox

Estoy iniciando con esto de VB. Net... Tengo una base de datos que migre desde access... Descargue Sql Server Express 2008 y Visual Studio 2008 para crear la interfaz... Ya estoy dando mis primeros pasos creando la conexión a la base que tengo en Sql...
1 respuesta