Ejemplos de cuadros de diálogo en WordBasic

Exención de responsabilidades de contenido KB retirado

Este artículo se refiere a 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.

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: 16 mar. 2004 - Revisión: 1

Comentarios