Usando el control CommonDialog
El control CommonDialog proporciona un conjunto de cuadros de diálogo estándar para operaciones como abrir y guardar archivos, configurar opciones de impresión y seleccionar colores y fuentes. El control también puede mostrar ayuda cuando el motor de ayuda de Windows se está ejecutando.
El control CommonDialog proporciona una interfaz entre Visual Basic y la rutina Commdlg.dll de la biblioteca de vínculos dinámicos de Microsoft Windows. Para crear un cuadro de diálogo con este control, Commdlg.dll debe estar en el directorio MicrosoftWindows/System.
Para utilizar el control CommonDialog en su aplicación, debe agregarlo al formulario y establecer sus propiedades. El diálogo que muestra el control está determinado por los métodos del control. Durante el tiempo de ejecución, el cuadro de diálogo o el motor de ayuda se mostrará después de llamar al método correspondiente durante el diseño, el control CommonDialog se mostrará como un icono en el formulario. El tamaño de este icono no se puede cambiar.
El control CommonDialog puede mostrar los siguientes cuadros de diálogo comunes:
"Abierto"
"Guardar como"
"color"
"Fuente"
"Imprimir"
Para utilizar el control CommonDialog
1. Si no se agrega el control CommonDialog, debe seleccionar "Componentes" en el menú "Proyecto" y agregar el control a la caja de herramientas. Busque y seleccione el control en "Controles" del cuadro de diálogo de marcado y luego haga clic en el botón "Aceptar".
2. Haga clic en el control "CommonDialog" en la caja de herramientas y dibuje el control en el formulario. Cuando dibuja un control CommonDialog en un formulario, el control cambiará de tamaño automáticamente. Al igual que el control Timer, el control CommonDialog no es visible en tiempo de ejecución.
3. Cuando esté en ejecución, utilice los métodos enumerados en la siguiente tabla de manera adecuada para mostrar el diálogo requerido.
Mostrar los cuadros de diálogo Abrir y Guardar como
El cuadro de diálogo Abrir le permite especificar la unidad, el directorio, la extensión del archivo y el nombre del archivo. El cuadro de diálogo Guardar como tiene una apariencia idéntica al cuadro de diálogo Abrir, excepto que el título del cuadro de diálogo y el nombre del archivo están atenuados. Después de seleccionar un archivo y cerrar el cuadro de diálogo en tiempo de ejecución, puede usar la propiedad FileName para obtener el nombre del archivo seleccionado.
Para mostrar el cuadro de diálogo Abrir
1. Especifique la lista de filtros de archivos que se muestran en el cuadro de lista Tipos de archivos.
La propiedad Filtro se puede establecer en el siguiente formato:
descripción1|filtro1|descripción2|filtro2...
Descripción es la cadena que se muestra en el cuadro de lista; por ejemplo, TextFiles(*.txt). El filtro es un filtro de archivos real, por ejemplo, *.txt. Cada descripción|configuración de filtro debe estar separada por un símbolo de barra vertical (|).
2. Utilice el método ShowOpen para mostrar el cuadro de diálogo.
Después de seleccionar un archivo, puede usar la propiedad FileName para obtener el nombre del archivo seleccionado.
Para todos los cuadros de diálogo públicos, se genera un error cuando la propiedad CancelError es True y el usuario hace clic en el botón Cancelar del cuadro de diálogo. Detecte un error al mostrar el cuadro de diálogo para detectar si se presionó el botón Cancelar.
El siguiente código muestra el cuadro de diálogo Abrir y abre los parámetros del procedimiento de archivo con el nombre de archivo seleccionado:
PRivateSubmnuFileOpen_Click()
'CancelarError es Verdadero.
OnErrorGoToErrHandler
'Establecer filtro.
CommonDialog1.Filter=Todos los archivos(*.*)|*.*|Text_
Archivos(*.txt)|*.txt|Archivos por lotes(*.bat)|*.bat
'Especifique el filtro predeterminado.
CommonDialog1.FilterIndex=2
'Mostrar el cuadro de diálogo Abrir.
CommonDialog1.ShowOpen
'Llame al procedimiento para abrir el archivo.
OpenFile(CommonDialog1.NombreDeArchivo)
SalirSub
Manejador de errores:
'El usuario presiona el botón "Cancelar".
SalirSub
FinSub
Usando el cuadro de diálogo Color
Utilice el cuadro de diálogo Color para seleccionar un color de una paleta de colores o para crear y seleccionar un color personalizado. En tiempo de ejecución, la propiedad Color se puede utilizar para obtener el color seleccionado después de seleccionar el color y cerrar el cuadro de diálogo.
Para mostrar el cuadro de diálogo Color
1. Establezca la propiedad Flags del control CommonDialog en la constante de VisualBasic cdlCCRGBInit.
2. Utilice el método ShowColor para mostrar el cuadro de diálogo.
Puede utilizar la propiedad Color para obtener el valor RGB del color seleccionado. El siguiente código muestra el cuadro de diálogo Color al hacer clic en el botón de comando Comando1:
PrivadoSubCommand1_Click()
'Establezca Cancelar en Verdadero.
CommonDialog1.CancelError=Verdadero
OnErrorGoToErrHandler
'Establece la propiedad Banderas.
CommonDialog1.Flags=cdlCCRGBInit
'Muestra el cuadro de diálogo Color.
CommonDialog1.ShowColor
'Establece el color de fondo del formulario al color seleccionado'.
Form1.BackColor=CommonDialog1.Color
SalirSub
Manejador de errores:
'El usuario presionó el botón "Cancelar".
SalirSub
FinSub
Usando el cuadro de diálogo Fuente
El cuadro de diálogo Fuente selecciona fuentes según el tamaño, el color y el estilo. Una vez que el usuario selecciona una fuente en el cuadro de diálogo Fuente, las siguientes propiedades contienen información sobre las opciones del usuario.
Para mostrar el cuadro de diálogo Fuente
1. Establezca la propiedad Flags en una de las siguientes constantes de Visual Basic:
cdlCFScreenFonts (fuentes de pantalla)
cdlCFPrinterFonts (fuentes de impresora)
cdlCFBoth (puede ser una fuente de pantalla o una fuente de impresora)
Advertencia Debe establecer la propiedad Banderas en uno de estos valores antes de mostrar el cuadro de diálogo Fuente; de lo contrario, se producirá un error de fuente no presente.
2. Utilice el método ShowFont para mostrar el cuadro de diálogo.
El siguiente código establece las propiedades de fuente de un cuadro de texto según las selecciones del usuario en el cuadro de diálogo Fuente:
PrivadoSubCommand1_Click()
'Establezca Cancelar en Verdadero.
CommonDialog1.CancelError=Verdadero
OnErrorGoToErrHandler
'Establece la propiedad Banderas.
CommonDialog1.Flags=cdlCFBothOrcdlCFEffects
'Muestra el cuadro de diálogo "Fuente".
CommonDialog1.ShowFont
'Establece propiedades de texto basadas en las selecciones del usuario.
Text1.Font.Name=CommonDialog1.FontName
Text1.Font.Size=CommonDialog1.FontSize
Text1.Font.Bold=CommonDialog1.FontBold
Text1.Font.Italic=CommonDialog1.FontItalic
Text1.Font.Underline=CommonDialog1.FontUnderline
Text1.FontStrikethru=CommonDialog1.FontStrikethru
Text1.ForeColor=CommonDialog1.Color
SalirSub
Manejador de errores:
'El usuario presionó el botón "Cancelar".
SalirSub
FinSub
->