Ejemplos de cuadros de diálogo en WordBasic

Id. de artículo: 550298 - Ver los productos a los que se aplica este artículo
Este artículo se publicó anteriormente con el número E10299
Expandir todo | Contraer todo

Resumen

En este artículo se describen dos ejemplos de cuadro de diálogo. En el primer ejemplo se hace un cuadro de diálogo con valores por defecto, y en el segundo ejemplo, el cuadro de diálogo recupera unos datos que luego se insertan en un documento o plantilla.

Más información

EJEMPLO 1

Este ejemplo sirve para la creación de un cuadro de diálogo en el que aparecen unos valores por defecto, de tal manera que el usuario pueda aceptarlos o sustituirlos por otros.

El cuadro de diálogo se puede realizar utilizando el editor de diálogos, o introduciendo directamente el código en la macro.

La sintaxis de la macro es la siguiente:

   Sub MAIN

      On Error Goto fin

      Begin Dialog DiálogoUsuario 320, 144, "Microsoft Word"

         Text 34, 38, 21, 13, "Fax:",.Texto1
         TextBox 128, 34, 160, 18,.pp$
         OKButton 32, 99, 108, 21
         CancelButton 162, 98, 125, 21

      End Dialog

      Dim dlg As DiálogoUsuario
      dlg.pp$ = "93-1234567"
      Dialog(dlg)
      fin:

   End Sub


Descripción de la macro
  1. On Error Goto fin

    Esta línea sirve para que en caso de error vaya a la etiqueta fin: y finalice la ejecución, es necesaria para poder cancelar el cuadro de diálogo.
    
          Begin Dialog DiálogoUsuario 320, 144, "Microsoft Word"
    
             Text 34, 38, 21, 13, "Fax:",.Texto1
             TextBox 128, 34, 160, 18,.pp$
             OKButton 32, 99, 108, 21
             CancelButton 162, 98, 125, 21
    
          End Dialog
    
    Estas líneas sirven para definir el cuadro de diálogo del usuario, se obtienen al copiar y pegar el cuadro de diálogo desde el editor de diálogo.
  2. Dim dlg As DiálogoUsuario

    Define la variable dlg para el cuadro de diálogo de usuario.
    dlg.pp$ = "93-1234567"
    Asignamos a la variable dlg.pp$ un valor determinado, esta variable corresponde al campo fax del cuadro de diálogo.
  3. Dialog(dlg)

    Con esta sentencia mostramos el cuadro de diálogo.
  4. fin:

    Definimos la etiqueta fin.
Al ejecutar esta macro resultará el siguiente cuadro de diálogo:



EJEMPLO 2

Este ejemplo describe como definir un cuadro de diálogo y como recuperar un valor del cuadro de diálogo para insertarlo en un documento. Previamente a ejecutar esta macro se debe crear un documento e insertar un marcador en el lugar donde queramos que se recupere el valor del cuadro de diálogo. En el ejemplo el marcador debe llamarse marca. La sintaxis de la macro es la siguiente:

   Sub MAIN

      Begin Dialog DiálogoUsuario 320, 144, "Microsoft Word"

         Text 15, 36, 109, 14, "Escriba algo",.Texto1
         TextBox 128, 34, 160, 18,.pp$
         OKButton 32, 99, 108, 21
         CancelButton 162, 98, 125, 21

      End Dialog

      Dim dlg As DiálogoUsuario
      Dialog(dlg)
      EdiciónIrA "marca"
      Insertar dlg.pp$

   End Sub


Descripción de la macro


   Begin Dialog DiálogoUsuario 320, 144, "Microsoft Word"

      Text 15, 36, 109, 14, "Escriba algo",.Texto1
      TextBox 128, 34, 160, 18,.pp$
      OKButton 32, 99, 108, 21
      CancelButton 162, 98, 125, 21

   End Dialog

   Estas líneas sirven para definir el cuadro de diálogo del usuario, 
   se obtienen al copiar y pegar el cuadro de diálogo desde el editor 
   de diálogo.
  1. Dim dlg As DiálogoUsuario

    Define la variable dlg para el cuadro de diálogo de usuario.
  2. Dialog(dlg)

    Con esta sentencia mostramos el cuadro de diálogo.
  3. EdiciónIrA "marca"

    Dirigimos el punto de inserción al marcador con el nombre "marca".
  4. Insertar dlg.pp$

    Insertamos la variable dlg.pp$ del cuadro de diálogo en el documento.


PRECAUCIÓN: CUALQUIER UTILIZACIÓN POR SU PARTE DEL CÓDIGO O MACRO INCLUIDO EN ESTE ARTÍCULO SE HARÁ A SU CUENTA Y RIESGO. Microsoft facilita este código o macro "tal cual" sin garantía de ningún tipo, ya sea explícita o implícita, incluyendo expresamente en tal exención de responsabilidad y, a efectos meramente enunciativos y no limitativos, las garantías legales mercantiles implícitas y/o la adecuación a un propósito o finalidad en particular.

Propiedades

Id. de artículo: 550298 - Última revisión: martes, 16 de marzo de 2004 - Versión: 2.0
La información de este artículo se refiere a:
  • Microsoft Word 6.0c
  • Microsoft Word 6.0 Standard Edition
  • Microsoft Word 6.0a
Palabras clave: 
cuadro diálogo ejemplo word KB550298
Renuncia a responsabilidad de los contenidos de la KB sobre productos a los que ya no se ofrece asistencia alguna
El presente artículo se escribió para productos para los que Microsoft ya no ofrece soporte técnico. Por tanto, el presente artículo se ofrece "tal cual" y no será actualizado.

Enviar comentarios

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com