Ya vimos que uno de los parámetros del evento MouseDown estaba el de saber que botón se está pulsando, por tanto usaremos ese parámetro, que es Button, para saber si es el botón derecho, (vbRightButton que tiene un valor igual a 2), y si es así, mostramos nuestro propio menú. Para ello usamos la instrucción PopupMenu, en el primer parámetro indicamos el nombre del menú que contiene las opciones que queremos mostrar, del resto de los parámetros, en principio sólo nos podría interesar el último, que indica que menú debe mostrarse seleccionado.

En nuestro caso el menú a mostrar es mnuEdit que es del que cuelgan las opciones de este menú.

Con PopupMenu se puede usar cualquier menú, incluso si no está visible. Esa característica se suele usar cuando queremos mostrar menús en nuestra aplicación pero queremos que se muestren solamente como menús emergentes, en otra ocasión veremos esto.

Una vez que un menú emergente se ha mostrado funciona de igual manera que si no fuese emergente… se que es "lógico", pero lo aclaro por si las moscas… es decir cuando se selecciona una opción, se ejecuta el código que hayamos escrito en el evento click de esa opción.

Un detalle, puede que al pulsar el botón derecho en el textbox, no se muestre el menú emergente, casi con toda seguridad tendrás que pulsarlo por segunda vez, si no recuerdo mal, esto no ocurría con el VB4...

Ya te comenté que se pueden asignar teclas de acceso rápido a las opciones del menú, no todas, pero casi… por ejemplo, no se pueden asignar F10 ni Alt+F4, pero eso no es inconveniente, ya que se pueden detectar de otra forma, aunque ahora mismo no es lo que nos interesa…

¿Cómo se añaden estos accesos rápidos? Pues… con el diseñador de menús… aunque también se puede hacer mediante código. Pero vamos a usar el "diseñador".
A estas alturas ya debes saber cómo mostrar ese dialogo… ¿verdad? Pues muéstralo y vamos a añadir inicialmente ese tipo de accesos a las opciones del menú de edición.

Selecciona la opción "Cortar", en el cuadro de diálogo hay una lista con las teclas que podemos usar, (en inglés es Shorcut), selecciona Ctrl+X de la lista desplegable. Haz lo propio con Copiar (Ctrl+C), Pegar (Ctrl+V) y Seleccionar todo (Ctrl+A), cierra el cuadro de diálogo y pulsa en el menú edición, verás que se han añadido al Caption esas teclas, pero no sólo están "mostradas", sino que si ejecutas el programa verás que están operativas y que no es necesario hacer nada extra... simplemente pulsar esas combinaciones de teclas y se ejecutará el código asociado a esa opción del menú.

Para comprobarlo, vamos a codificar la opción de seleccionar todo:
Muestra el form y selecciona el menú edición, pulsa en cualquiera de las opciones y se mostrará la ventana de código, (también podrías haberla seleccionado directamente, pero así parece que ibas a hacer otra cosa, je, je ), el código en este evento será el siguiente:

Private Sub mnuEditor_Click(Index As Integer)
    ' Cuando se selecciona un elemento del menú Edición
    ' se entra en este evento, el índice nos indicará
    ' el elemento seleccionado.
    ' Existen unas constantes para usarlas en lugar del número,
    ' por si añadimos o quitamos algunos
    Select Case Index
    Case cEdDeshacer
        '
    Case cEdCortar
        '
    Case cEdCopiar
        '
    Case cEdPegar
        '
    Case cEdSeleccionarTodo
        With txtEditor
            .SelStart = 0
            .SelLength = Len(.Text)
        End With
    Case cEdBuscar
        '
    Case cEdBuscarSig
        '
    Case cEdReemplazar
        '
    End Select
End Sub

Ejecuta la aplicación y escribe varias líneas en el texbox, pulsa la tecla control y sin soltarla pulsa la tecla a, (esto como habrás observado en otras ocasiones, se simplifica diciendo: pulsa Ctrl+A), ¡y ya está! ¡todo el texto seleccionado!.

Por supuesto que también puedes ir al menú edición y clickear en la opción seleccionar todo.

Te explico un poco el código que hace que seleccione todo el texto:
Le indicamos que la posición de inicio del texto seleccionado sea la primera posición: .SelStart = 0
Le indicamos que el texto seleccionado sea de igual longitud que todo el texto que hay escrito: .SelLength = Len(.Text)
Si no hubiésemos usado el With txtEditor... End With, tendríamos que haber especificado el nombre del objeto, el código sería este otro:

Ahora vamos a codificar un par de opciones del menú edición, lo vamos a hacer con código en Visual Basic; de eso se trata ¿no?, aunque podríamos apoyarnos en llamadas al API de Windows, es decir: usar funciones propias del Windows para hacerlo, pero por ahora lo vamos a dejar, entre otras cosas para que sepas como funciona y sobre todo como se accede al portapapeles, (ClipBoard), desde el Visual Basic.

Las opciones que estarán relacionadas con el portapapeles son: Cortar, Copiar y Pegar; antes de codificar estas opciones en el evento mnuEditor_Click, veamos cómo manipular el clipboard.

Los métodos que vamos a usar de este objeto son:

Clear para borrar el contenido del portapapeles

GetText para recuperar el texto que haya

SetText para asignar un texto

GetFormat, para saber si el tipo de formato está disponible en el portapapeles los tipos de formatos se averiguan con las constantes predefinidas en el VB5:

vbCFLink vínculo DDE

vbCFText formato texto, el que a nosotros nos interesa

vbCFBitmat formato bmp

vbCFMetafile formato wmf (metafile)

vbCFDib mapa de bits independientes del dispositivo, habitualmente todos los gráficos soportan este formato

vbCFPalette paleta de colores

vbCFRtf formato RTF (rich text)

GetData obtener los datos del portapapeles

SetData Asignar datos al portapapeles

Por ahora vamos a trabajar con los cuatro primeros métodos:
Con GetFormat, sabremos si hay algún texto en el portapapeles, en caso de que así sea, al mostrar el menú, habilitaremos la opción Pegar y si no hay texto la deshabilitaremos. De igual manera habilitaremos o no las opciones de Cortar y Copiar, pero en este caso comprobaremos si hay texto seleccionado

¿Dónde se hace esto?

Todas estas comprobaciones se hacen en el evento click del menú edición, (del que "cuelgan" las otras opciones), ya que este evento se dispara cuando pulsamos en él y es entonces cuando de muestran las opciones.

Private Sub mnuEdit_Click()
    ' Por defecto, las opciones están deshabilitadas
    mnuEditor(cEdCortar).Enabled = False
    mnuEditor(cEdCopiar).Enabled = False
    mnuEditor(cEdPegar).Enabled = False

    ' Comprobamos si hay texto en el portapapeles
    If Clipboard.GetFormat(vbCFText) Then
        ' Hay texto, habilitamos la opción de pegar
        mnuEditor(cEdPegar).Enabled = True
    End If

    ' Si hay texto seleccionado, habilitamos Cortar y Copiar
    If txtEditor.SelLength Then
        mnuEditor(cEdCortar).Enabled = True
        mnuEditor(cEdCopiar).Enabled = True
    End If
End Sub

Cuando muestres el menú de edición, seguramente "notarás" cómo los item cambian de estado… pero eso es lo menos importante, ya que lo que interesa es que estén habilitados los que tengan que estarlo.

Ahora que hemos habilitado y/o deshabilitado las distintas opciones de edición, vamos a usarlas.

Según vimos, el menú de edición está en un array y por tanto comparten el mismo nombre de menú y según el índice, hará referencia a uno u otro, para acceder a las distintas opciones, usamos constantes...

Para el caso de deshacer, podemos usar el API de Windows, realmente para todas estas opciones también, e incluso no necesitamos ni siquiera codificar nada, ya que el propio Windows se encarga de hacerlo… pero lo pongo aquí para que sepas hacerlo ya que puedes añadir otras opciones, como buscar, reemplazar, etc.

La función del API para este menester es: SendMessage, la declaración es esta: (aunque pueden existir otras con diferentes parámetros)

Nota:
Esta declaración y el valor de las constantes que voy a dar son para Windows de 32 bits, si quieres saber los valores y la declaración para 16 bits, en la sección API de mis páginas lo tienes... (esto es por si estás leyendo esta entrega desde otro sitio distinto al de mis páginas)

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
    (ByVal hWnd As Long, ByVal wMsg As Long, _
    ByVal wParam As Long, lParam As Any) As Long

Ahora necesitamos unas constantes para las distintas "tareas":
Para saber si se puede deshacer:

Y para el resto de las opciones que hemos visto sería de esta forma:

Private Const WM_CUT = &H300
Private Const WM_COPY = &H301
Private Const WM_PASTE = &H302
Private Const WM_CLEAR = &H303
Private Const WM_UNDO = &H304

Para saber si se puede deshacer:

If SendMessage(txtEditor.hWnd, EM_CANUNDO, 0&, ByVal 0&) Then
    mnuEditor(cEdDeshacer).Enabled = True
End If

Fíjate que el último parámetro tiene "antepuesto" al valor CERO la palabra ByVal, esto es porque en la declaración de la función se ha especificado como As Any.

Para deshacer, también usamos la misma función del API, pero en este caso le indicamos que "deshaga":

Usar el API para Cortar, Copiar y Pegar:

Para los casos de Cortar, Copiar y Pegar, se usarían los "mensajes" apropiados, es decir: WM_CUT, WM_COPY y WM_PASTE.
En todos los casos, se usa el hWnd del txtEditor para indicarle a la función de Windows, que debe operar sobre esa "ventana", por tanto todas las operaciones se realizarán en la ventana de la cual indicamos el "manejador" de ventanas (handle), que el VB nos proporciona mediante la propiedad de sólo lectura hWnd. Todos los controles que "actúan" como ventanas, tienen la propiedad hWnd.

Como puedes comprobar no tiene nada extraño ni raro, es decir que esto del API de Windows es como todo: para saber lo que hay que hacer hay que saber cómo hacerlo… y esa es la intención de este cursillo, intentar enseñarte a hacer cosas con el Visual Basic... e incluso con cosas que no es Visual Basic propiamente dicho...

Vamos a ponerlo todo junto y veamos el código que tenemos hasta ahora en el formulario:

Ya sólo nos queda codificar las opciones de Abrir y Guardar, que veremos en la siguiente entrega y algunas opciones como buscar, reemplazar, que no se si veremos en la siguiente o en otra...

Nos vemos