Menustrip ayuda

[gctalico]

QUE TAL HICE UN PROYECTO EN VISUAL BASIC 2008 Y TENGO UN PROBLEMA PARA DESHABILITAR ALGUNOS ITEMS DEL MENU, TENGO ESTA FUNCION JALA BIEN CON LOS BOTONES PERO AHORA CON EL MENU NO FUNCIONA ME PUEDEN AYUDAR

Código vb:

Public Function EstablecerPermisos(ByVal nomventana As Control, ByVal ventana As String, ByVal permisos As ListView) As Boolean
        Dim posx As Integer = 0
        Dim encontrado As Boolean = False
 
        With permisos
            While posx < .Items.Count And Not encontrado
                If .Items(posx).SubItems(1).Text = ventana And .Items(posx).Checked = True Then
                    encontrado = True
                Else
                    posx = posx + 1
                End If
                If encontrado Then
                    While (posx) < .Items.Count
                        If .Items(posx).SubItems(1).Text = ventana Then
                            If .Items(posx).Checked = True Then
                                comp = .Items(posx).SubItems(4).Text
 
                                nomventana.Controls(comp).Enabled = False
 
                                ' frmPrincipal.button1.Enabled = False //ESTO SERIA LO MISMO QUE LA LINEA ANTERIOR
                                ' frmPrincipal.mnuArchivoNuevo.Enabled = False //ESTO SERIA LO MISMO QUE LA LINEA ANTERIOR PERO AQUI ME DA ERROR
 
 
 
                            End If
                            posx = posx + 1
                        End If
            End While
                End If
            End While
        End With
        Return True
    End Function
 

[Ka0stj]

Hola gctalico

Prueba con lo siguiente:

Código vb:

MenuStrip1.Items(0).Enabled = False
MenuStrip1.Items(1).Enabled = False
MenuStrip1.Items(2).Enabled = False
.
.
.
MenuStrip1.Items(n).Enabled = False
 

Ahora bien para deshabilitar elementos o submenus de un menú haces lo siguiente:

Código vb:

NombreMenuToolStripMenuItem.DropDownItems.Item(0).Enabled = False
NombreMenuToolStripMenuItem.DropDownItems.Item(1).Enabled = False
.
.
.
NombreMenuToolStripMenuItem.DropDownItems.Item(n).Enabled = False
 

Solo fijate que índice tienen los elementos del menustrip que deseas deshabilitar.

Saludos!!!

[gctalico]

Pero como poner eso en la funcion que hice si los nombres de los componentes los cargo desde una base de datos podrias explicarme


saludos

[Ka0stj]

Porque no tratas modificando esta instrucción por algo parecido a lo que te digo?

Código vb:

nomventana.Controls(comp).Enabled = False
 

Algo asi:

Código vb:

nomventana.Comp.Item(x).Enable = False
 

De que tipo es Comp?

[gctalico]

Private comp As Object asi lo tengo

[Ka0stj]

Ok, prueba algo similar a lo que te comento y me dices como te va.

[gctalico]

ok ya lo probe y me funciona solo esta parte que es la que deshabilita los items principales

Código vb:

nomventana.Controls(comp).Items(1).Enabled = False
 

pero esta parte que es la que haria lo de los subitems marca error

Código vb:

nomventana.Controls(comp).DropDownItems.Item(1).Enabled = False
 

que crees que pueda ser lo que falla

nomventana es de tipo control
comp es de tipo objeto



y el error que me manda es(Object variable or With block variable not set.)

[Ka0stj]

Ok mira solo ten cuidado con lo siguiente:

1. En la primera parte Comp es el nombre del menustrip y vas inhabilitando cada elemento del menú por ejemplo archivo, edicion, ayuda, etc de los menús comunes.

Código vb:

nomventana.Controls(comp).Items(1).Enabled = False
 

2. Por otra parte en los item de cada menú o submenús de cada menú estas poniendo el nombre del menustrip por lo cual no es correcto, trata poniendo el nombre del Item del menustrip que tiene los submenús por ejemplo:

Si tu menú contiene los menús de Archivo, Edicion, etc. el comp no seria el nombre del menustrip sino el nombre del Item que contiene los submenús:

Código vb:

nomventana.ArchivoMenuToolStrip.Item(x).Enable = False
 

[gctalico]

1. YA LO REVISE Y ESTA ASI

Código vb:

nomventana.Controls(comp).Items(1).Enabled = False  '// para items pricipales del menustrip
 

nomventana = frmprincipal y comp = mnuprincipal y asi funciona bien


2. se supone que para los subitems seria con el nombre de el item pricipal entonces lo deje asi

Código vb:

nomventana.Controls(comp).DropDownItems.Item(0).Enabled = False
 

nomventa = frmprincipal y comp = frmprincipalArchivo

pero no me fuciona este segundo


si lo hago directo sin variables los 2 funcionan pero necesito asi


sin variables lo hago asi y funciona

Código vb:

mnuprincipal.Items(0).Enabled = False
mnuOperaciones.DropDownItems.Item(1).Enabled = False
 

solo necesito resolver eso

saludos

[zeroyevi]

esta es una solucion es hecho en chile

Private Sub MDIParent1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Call Pr_Recorrer_Menu(Me.MenuStrip)
End Sub
Sub Pr_Recorrer_Menu(ByVal oMenu As MenuStrip)
Try

For Each oOpcionMenu As ToolStripMenuItem In oMenu.Items
'' el oOpcionMenu contiene todo los submenu
'' entonces tengo me+ menustrip+(menu_primeralinea)+(submenudropdownitem s)
Dim menu As String = oOpcionMenu.Name.ToString

For i As Integer = 0 To oOpcionMenu.DropDownItems.Count - 1

Dim submenu As String = oOpcionMenu.DropDownItems.Item(i).Name.ToString
Dim valor As Boolean = False
'codigo con base de datos padre hijo etc + un boolean o bit en base

oOpcionMenu.DropDownItems.Item(submenu).ForeColor = Color.Cyan
oOpcionMenu.DropDownItems.Item(submenu).Enabled = valor
'Me.Mnu_Archivo.DropDownItems.Item(i).Enabled = False

Next
Next

Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub

'si tiene trabajo para mi ya que vuelvo a la cesantia

'[email protected]
'profesional microsoft it certificado...

'creen un mdi nuevo y generen menu al gusto del usuario despues reccorranlo , y solamente faltaria su ingenio