Make your own free website on Tripod.com
Volver a CommonDialog primera parte Ir al Indice
2da.parte

Método ShowFont:
Para poder usar este método primero se debe indicar, si las fuentes a utilizar serán de impresora (CommonDialog.Flags= CdlCfPrinterFonts) o pantalla (CommonDialog.Flags= CdlCFScreensFonts) así como también si hay subrayado, y tachado (CommonDialog.Flags=CdlCFEffects) teniendo en cuenta que en lugar de CommonDialog irá el nombre que le hemos asignado en la ventana de propiedades.
Cuenta con las siguientes propiedades:
Color El color seleccionado. Establecer primero la propiedad Flags a cdlCFEffects (Especifica que el cuadro de diálogo permite los efectos de tachado, subrayado y color.)
FontBold Cuando se puede seleccionar Negrita
FontItalic Cuando se puede seleccionar Cursiva
FontStrikethru Cuando se puede seleecionar tachado. Establecer primero la propiedad Flags a cdlCFEffects (Especifica que el cuadro de diálogo permite los efectos de tachado, subrayado y color)
FontUnderline: Cuando se puede seleccionar subrayado. Establecer primero la propiedad Flags a cdlCFEffects ((Especifica que el cuadro de diálogo permite los efectos de tachado, subrayado y color)
FontName Cuando se puede seleccionar el nombre de fuente
FontSize Cuando se puede seleccionar el tamaño de fuente.

Private Sub Command1_Click()
'Para activar el botón cancelar
CommonDialog1.CancelError = True
On Error GoTo ErrHandler
' Establecer la propiedad Flags
CommonDialog1.Flags = cdlCFEffects + cdlCFScreenFonts
' Presentar el cuadro de diálogo Fuente
CommonDialog1.ShowFont
ForeColor = CommonDialog1.Color
Font.Bold = CommonDialog1.FontBold
Font.Italic = CommonDialog1.FontItalic
Font.Strikethrough = CommonDialog1.FontStrikethru
Font.Underline = CommonDialog1.FontUnderline
Font.Name = CommonDialog1.FontName
Font.Size = CommonDialog1.FontSize
ErrHandler: Exit Sub
End Sub

Método ShowPrinter:
Presenta el cuadro de diálogo Imprimir. Este cuadro de diálogo le permite al usuario especificar cómo va a imprimir, el intervalo de páginas para imprimir, la calidad de impresión, el número de copias, etc. Este cuadro de diálogo también presenta información acerca de la impresora instalada y permite configurar o instalar una nueva impresora predeterminada.

Propiedad
Determina
Copies
El número de copias que se van a imprimir.
FromPage
La página por la que se empieza a imprimir.
ToPage
La página en la que termina la impresión
hDC
El contexto de dispositivo de la impresora seleccionada.
Orientation
La orientación de la página (horizontal o vertical)
Si estas propiedades aparecen escritas en el código, los valores de las mismas aparecerán como pre-determinadas en el cuadro de dialogo. De no ser escritas, los valores que tomarán serán los que escriba el usuario en el cuadro de diálogo.
Private Sub Command1_Click()
CommonDialog1.Flags = cdlCFPrinterFonts
CommonDialog1.ShowPrinter
End Sub
Método ShowHelp:
Permite presentar un archivo de Ayuda. Para hacerlo es necesario establecer las propiedades HelpCommand y HelpFile. Ejecuta el motor de Ayuda de Windows (WINHLP32.EXE) y presenta un archivo de Ayuda definido por la propiedad HelpFile.Por medio de la propiedad HelpCommand puede indicar al motor de Ayuda el tipo de Ayuda en pantalla que desea, como interactiva o Ayuda acerca de una palabra clave concreta, etc

Private Sub Command1_Click()
' Establece Cancel a True.
CommonDialog1.CancelError = True
On Error GoTo ErrHandler
' Establece la propiedad HelpCommand
CommonDialog1.HelpCommand = cdlHelpForceFile
' Especifica el archivo de Ayuda.
CommonDialog1.HelpFile = "c:\Windows\Help\Common.hlp"
' Presenta el sistema de Ayuda de Windows.
CommonDialog1.ShowHelp
Exit Sub
ErrHandler:
' El usuario hizo clic en el botón Cancelar.
Exit Sub
End Sub

Hasta aquí llegamos con nuestro Ciclo Básico. Te invitamos a seguir con el Ciclo Intermedio y con VisualBasic aplicado a Bases de Datos.
Volver arriba Volver a CommonDialog primera parte Ir al Indice