ejecutar el contenido de un string
Publicado por Eduardo (2 intervenciones) el 01/02/2007 13:37:01
Tengo un formulario con botones para agregar, modificar y eliminar registros, cada uno con su evento. Para agregarle funcionalidad agregué un ContextMenuStrip (cms1) y, por codigo defino el menu (con texto e imagen).
El problema es que en AddressOf en lugar de btnAgregar_click quisiera usar ctrl.name + "_click", pero no me lo toma porque es un texto.
Es decir quisiera que esta linea:
cms1.Items.Add(ToolTip1.GetToolTip(ctrl), ctrl.Image, AddressOf btnAgregar_Click)
quede algo así
cms1.Items.Add(ToolTip1.GetToolTip(ctrl), ctrl.Image, AddressOf ctrl.name + "_click")
Otra opcion sería averiguar el handler del ctrl, pero no se como hacerlo.
Aquí pego parte del código.
Private Sub AgregaItemMenuContextual(ByVal ctrl As Button)
If ctrl.Visible Then
cms1.Items.Add(ToolTip1.GetToolTip(ctrl), ctrl.Image, AddressOf btnAgregar_Click)
cms1.Items(cms1.Items.Count - 1).Enabled = ctrl.Enabled
End If
End Sub
Private Sub ConfiguraMenuContextual()
cms1.Items.Clear()
AgregaItemMenuContextual(btnAgregar)
AgregaItemMenuContextual(btnModificar)
AgregaItemMenuContextual(btnEliminar)
AgregaItemMenuContextual(btnSalir)
End Sub
Gracias
El problema es que en AddressOf en lugar de btnAgregar_click quisiera usar ctrl.name + "_click", pero no me lo toma porque es un texto.
Es decir quisiera que esta linea:
cms1.Items.Add(ToolTip1.GetToolTip(ctrl), ctrl.Image, AddressOf btnAgregar_Click)
quede algo así
cms1.Items.Add(ToolTip1.GetToolTip(ctrl), ctrl.Image, AddressOf ctrl.name + "_click")
Otra opcion sería averiguar el handler del ctrl, pero no se como hacerlo.
Aquí pego parte del código.
Private Sub AgregaItemMenuContextual(ByVal ctrl As Button)
If ctrl.Visible Then
cms1.Items.Add(ToolTip1.GetToolTip(ctrl), ctrl.Image, AddressOf btnAgregar_Click)
cms1.Items(cms1.Items.Count - 1).Enabled = ctrl.Enabled
End If
End Sub
Private Sub ConfiguraMenuContextual()
cms1.Items.Clear()
AgregaItemMenuContextual(btnAgregar)
AgregaItemMenuContextual(btnModificar)
AgregaItemMenuContextual(btnEliminar)
AgregaItemMenuContextual(btnSalir)
End Sub
Gracias
Valora esta pregunta


0