trabajar con un mdi
Publicado por Miguel (1 intervención) el 14/06/2006 17:20:48
hola estoy trabajando en una aplicación la cual esta basada en un formulario mdiparent el cual permite llamar a sus formularios mdichild, hasata ahi no ahi problema, el porblema es cuando intento deshabilitar la barra de herramientas y algunos menus desde un mdichild no se que sucede pero veo que entra ala función para dehabilitarlos, la recorre pero no hace nada cuando termina.... alguien podría colaborarme diciendome que pasa o que hay que hacer.
Este es el código de la función que estoy usasndo para habilitar/Deshabilitar la barra de herramientas y los controles del mdiparent
'Esta función esta dentro del mdiparent
Sub Habilitar_Comandos(ByVal estado As Boolean)
Dim bt As ToolBarButton, ll As LinkLabel, mi As MenuItem
Dim no As Boolean = Not estado
For Each bt In Me.ToolBar1.Buttons
bt.Enabled = estado
Next
Me.ToolBar1.Buttons.Item(1).Enabled = no
Me.ToolBar1.Buttons.Item(3).Enabled = no
If estado = True OrElse estado = False Then
Me.ToolBar1.Buttons.Item(23).Enabled = True
End If
Dim i As Long
For i = 0 To Me.TaskPane1.TaskFrames.Count - 1
For Each ll In (Me.TaskPane1.TaskFrames(i).Controls)
ll.Enabled = estado
Next
Next
Me.LinkLabel14.Enabled = no
Me.LinkLabel15.Enabled = no
Me.MenuItem11.Enabled = estado
Me.mnuCerrarFormaA.Enabled = estado
Me.MenuItem33.Enabled = no
Me.mnuImprimirA.Enabled = estado
Me.MenuItem21.Enabled = estado
Me.mnuEliminar.Enabled = estado
Me.mnuCancelar.Enabled = no
End Sub
Este es el código de la función que estoy usasndo para habilitar/Deshabilitar la barra de herramientas y los controles del mdiparent
'Esta función esta dentro del mdiparent
Sub Habilitar_Comandos(ByVal estado As Boolean)
Dim bt As ToolBarButton, ll As LinkLabel, mi As MenuItem
Dim no As Boolean = Not estado
For Each bt In Me.ToolBar1.Buttons
bt.Enabled = estado
Next
Me.ToolBar1.Buttons.Item(1).Enabled = no
Me.ToolBar1.Buttons.Item(3).Enabled = no
If estado = True OrElse estado = False Then
Me.ToolBar1.Buttons.Item(23).Enabled = True
End If
Dim i As Long
For i = 0 To Me.TaskPane1.TaskFrames.Count - 1
For Each ll In (Me.TaskPane1.TaskFrames(i).Controls)
ll.Enabled = estado
Next
Next
Me.LinkLabel14.Enabled = no
Me.LinkLabel15.Enabled = no
Me.MenuItem11.Enabled = estado
Me.mnuCerrarFormaA.Enabled = estado
Me.MenuItem33.Enabled = no
Me.mnuImprimirA.Enabled = estado
Me.MenuItem21.Enabled = estado
Me.mnuEliminar.Enabled = estado
Me.mnuCancelar.Enabled = no
End Sub
Valora esta pregunta


0