none
¿Es posible interceptar las opciones del menú contextual de los controles de texto? RRS feed

Respuestas

  • Supongo que te refieres a sustituir las acciones que se realizan por otras. Eso lo puedes hacer creando tu propio menú contextual:    

    Private Sub AñadeMenuContextual()

        Dim ContextMenu1 As New ContextMenu

        Dim menuItem1Cut As New MenuItem("Cortar")
        AddHandler menuItem1Cut.Click, AddressOf menuItem1Cut_Click

        Dim menuItem2Copy As New MenuItem("Copiar")
        AddHandler menuItem2Copy.Click, AddressOf menuItem2Copy_Click

        Dim menuItem3Paste As New MenuItem("Pegar")
        AddHandler menuItem3Paste.Click, AddressOf menuItem3Paste_Click

        Contextmenu1.MenuItems.Add(menuItem1Cut)
        Contextmenu1.MenuItems.Add(menuItem2Copy)
        Contextmenu1.MenuItems.Add(menuItem3Paste)

        TextBox1.ContextMenu = Contextmenu1

    End Sub

    Y creando las funciones:

    Private Sub menuItem1Cut_Click()
        TextBox1.Cut()
    End Sub

    Private Sub menuItem3Paste_Click()
        TextBox1.Paste()
    End Sub

    Private Sub menuItem2Copy_Click()
        TextBox1.Copy()
    End Sub


    Saludos, Javier J

    • Marcado como respuesta James2016-2 viernes, 21 de julio de 2017 17:16
    viernes, 21 de julio de 2017 8:01

Todas las respuestas

  • Supongo que te refieres a sustituir las acciones que se realizan por otras. Eso lo puedes hacer creando tu propio menú contextual:    

    Private Sub AñadeMenuContextual()

        Dim ContextMenu1 As New ContextMenu

        Dim menuItem1Cut As New MenuItem("Cortar")
        AddHandler menuItem1Cut.Click, AddressOf menuItem1Cut_Click

        Dim menuItem2Copy As New MenuItem("Copiar")
        AddHandler menuItem2Copy.Click, AddressOf menuItem2Copy_Click

        Dim menuItem3Paste As New MenuItem("Pegar")
        AddHandler menuItem3Paste.Click, AddressOf menuItem3Paste_Click

        Contextmenu1.MenuItems.Add(menuItem1Cut)
        Contextmenu1.MenuItems.Add(menuItem2Copy)
        Contextmenu1.MenuItems.Add(menuItem3Paste)

        TextBox1.ContextMenu = Contextmenu1

    End Sub

    Y creando las funciones:

    Private Sub menuItem1Cut_Click()
        TextBox1.Cut()
    End Sub

    Private Sub menuItem3Paste_Click()
        TextBox1.Paste()
    End Sub

    Private Sub menuItem2Copy_Click()
        TextBox1.Copy()
    End Sub


    Saludos, Javier J

    • Marcado como respuesta James2016-2 viernes, 21 de julio de 2017 17:16
    viernes, 21 de julio de 2017 8:01
  • Gracias.
    viernes, 21 de julio de 2017 17:16