| re: Reference to a control error. Toolstrip
Thank you terry, it worked Perfectly!!!
"Terry" <Terry@nospam.nospam> escribió en el mensaje
news:0081E6A6-C9D4-4D55-9C1D-E9105DC08DD5@microsoft.com...[color=blue]
> The ToolStripItemCollection is a collection of 'ToolStripItem' not
> 'ToolStripMenuItems'. So maybe something like this (and I am not sure of
> this part)...
>
> For Each oSubitem As ToolStripItem In oSubmenuItems
> if TypeOf oSubItem Is ToolStripMenuItem Then
> ...
> The point being that a ToolStripSeperator is a ToolStripItem but not a
> ToolStripMenuItem.
> --
> Terry
>
>
> "Manekurt" wrote:
>[color=green]
>> Hello to everyone, I have this code, that gives me an error on the marked
>> line. It is to make a reference to a submenuitem, to enable it thorgh it
>> name.
>> Error line:
>>
>> For Each oSubitem As ToolStripMenuItem In oSubmenuItems
>>
>> error: Message="No se puede convertir un objeto de tipo = Can´t convert
>> the type of object
>> 'System.Windows.Forms.ToolStripSeparator' to type
>> 'System.Windows.Forms.ToolStripMenuItem'."
>>
>>
>>
>> If anyone knows how to solve this, it would be of great help
>>
>> Thank you
>>
>> Manek
>>
>>
>>
>>
>>
>> Private Sub mkgv2_container_Load(ByVal sender As System.Object, ByVal e
>> As
>> System.EventArgs) Handles MyBase.Load
>>
>> Me.RecorrerEstructuraMenu(Me.men_principal,
>> mk_sqlre_2("sec_per_cat").ToString)
>>
>> End Sub
>>
>>
>>
>> Private Sub RecorrerEstructuraMenu(ByVal oMenu As MenuStrip, ByVal
>> sOpcion
>> As String)
>>
>> For Each oOpcionMenu As ToolStripMenuItem In oMenu.Items
>>
>>
>>
>> If oOpcionMenu.DropDownItems.Count > 0 Then
>>
>> Me.RecorrerSubmenu(oOpcionMenu.DropDownItems, sOpcion)
>>
>> End If
>>
>> Next
>>
>> End Sub
>>
>> Private Sub RecorrerSubmenu(ByVal oSubmenuItems As
>> ToolStripItemCollection,
>> ByVal sOpcion As String)
>>
>>
>> For Each oSubitem As ToolStripMenuItem In oSubmenuItems 'ERROR
>> LINE'||||||||||||||||||||||||||
>>
>> If oSubitem.Name = sOpcion Then
>>
>> oSubitem.Enabled = True
>>
>> End If
>>
>> If oSubitem.DropDownItems.Count > 0 Then
>>
>> Me.RecorrerSubmenu(oSubitem.DropDownItems, sOpcion)
>>
>> End If
>>
>> Next
>>
>> End Sub
>>
>>
>>
>>
>>[/color][/color]
| 
