Make your own free website on Tripod.com
Volver a estructura for-each Ir al Indice Ir a CommonDialog 2da.parte

El control CommonDialog, (Dialogos Comunes) tiene varios cuadros de diálogo para distintas opciones que van desde Abrir, Guardar, Elegir una fuente, Elegir un color, Imprimir documento, Ayuda de Windows etc. Los cuadros de diálogo común son las ventanas que el usuario usa mas frecuentemente y se repiten en distintos programas, al usarlos se da uniformidad a todos los programas que corren bajo Windows. Este control no es visible normalmente en la ventana de herramientas. Para poder agregarlo tenemos varias opciones:

  • Hacer click con el botón derecho sobre la ventana de herramientas y seleccionamos "Componentes"
  • Ir al Menú Proyecto/Componentes
  • Utilizar las teclas rápidas Ctrl-T

En cualquiera de los casos aparecerá una ventana con todos los componentes que podemos agregar. Aquí buscamos y marcamos "Microsoft Common Dialog control"

Método
Cuadro de diálogo
ShowOpen
Abrir
ShowSave
Guardar como
ShowColor
Color
ShowFont
Fuente
ShowPrinter
Imprimir u Opciones de Impresión
ShowHelp
Invoca el motor de Ayuda de Windows
Las propiedades este objeto varían de acuerdo a la función que se quiere aplicar.

Método ShowOpen:
Se usa para mostrar el cuadro de dialogo Abrir. Mediante este cuadro el usuario puede elegir qué archivo abrir, siendo el nombre del archvo elegido el que estará en la propiedad Filename. Un filtro antecede el llamado a ShowOpen, para mostrar archivos con cierta extensión.
Por ejemplo:
El CommonDialog tiene de Name Commondialog1 y el botón de comando cmdshowopen.
Private Sub Cmdshowopen_Click()
CommonDialog1.Filter = "Archivos de Texto|*.Txt|Documentos|*.doc"
CommonDialog1.ShowOpen
End Sub
Método ShowSave:
Es similar al anterior con la diferencia que este mostrará el cuadro de dialogo de guardar
El CommonDialog tiene de Name Commondialog1 y el botón de comando cmdshowsave
Private Sub Cmdshowsave_Click()
CommonDialog1.Filter = "Archivos de Texto|*.Txt|Documentos|*.doc"
CommonDialog1.ShowSave
End Sub

Método ShowColor:
Nos muestra la paleta de colores y al elegir un color se guarda en la propiedad color.

Private Sub CmdShowColor_Click()
CommonDialog1.ShowColor
End Sub
En la próxima veremos algo más de Common Dialog
Volver arriba Volver a estructura for-each Ir al Indice Ir a CommonDialog 2da.parte