Sección de tutoriales y manuales vb

Cuadro de diálogo de fuente

Volver al índice

---

 

 

 

En esta página se describe el uso básico del cuadro de diálogo de windows que permite seleccionar fuentes.

 

 

 

 

 

 

-- - Contenido :

---

• Introducción
• Método ShowFont
• Flags ( Fuentes de pantalla y fuentes de impresora )
• Flags ( Efectos de fuente )
• Desplegar sólo fuentes True Type
• Seleccionar los tamaños de fuente dentro de un intervalo
• Flag para fuentes y estilos que no existen
• Abrir el CommonDialog con una fuente y estilo especificado
• Usar el diálogo de fuente mediante el api de windows
• Enlaces relacionados

 

 

---

1 - Introducción

Para poder utilizar dicho cuadro de diálogo, hay que incluir al proyecto el control ocx Microsoft Common Dialog Controls. desde el menú Proyecto en la opción componentes.

Nota: en este enlace podés ver el uso de los demás cuadros de diálogo y otros ejemplos Cuadros de diálogo - Ejemplos

 

La Ventana para agregar el control

 

---

2 - Método ShowFont

El método ShowFont es el que llama y permite visualizar el cuadro de diálogo.

 

 

Si por ejemplo al presionar un Commandbutton ejecutamos el método ShowFont:

Option Explicit Private Sub Command1_Click() ' -- Abrir CommonDialog1.ShowFont End Sub

 

Saldrá el siguiente mensaje de error:

 

Para solucionar esto y poder desplegar el CommonDialog, hay que establecer en la propiedad Flags algunos de los valores de constantes que determinan que fuentes mostrar y que tipo: fuentes de pantalla, fuentes de impresora, ambas, fuentes TrueType etc..

La lista de constantes para poder especificar en la propiedad Flags, como también ver su descripción, las podés acceder desde el examinador de objetos de visual basic, en el apartado Clases > FontsConstants.

 

 

---

3 - Flags - Fuentes de pantalla y fuentes de impresora

Lo siguiente, al llamar al cuadro de diálogo, visualiza las fuentes tanto de pantalla como las de impresión que estén disponibles, mediante la constante cdlCFBoth para la propiedad Flags

Option Explicit Private Sub Command1_Click() With CommonDialog1 ' -- Establecer flag cdlCFBoth ' -- El cuadro de diálogo muestra las fuentes de pantalla ' e impresora disponibles. .Flags = cdlCFBoth ' -- Abrir .ShowFont End With End Sub Private Sub Form_Load() Command1.Caption = "Seleccionar fuente" End Sub

 

Nota : Para listar solo las de pantalla usar el valor cdlCFScreenFonts. Para que el cuadro de diálogo sólo muestre las fuentes compatibles con la impresora, usar el valor cdlCFPrinterFonts.

---

4 - Flags ( Efectos de fuente )

Como se ve en la imagen anterior , el cuadro de diálogo no presenta las opciones para Efectos de fuente, establecer el color, vista previa e información de las mismas, tachado y subrayado.

Para poder habilitar esta opción hay que usar la constante cdlCFEffects. Al especificar en la propiedad Flags dicho valor, el mismo se desplegará de la siguiente forma:

 

 

El código sería el siguiente ( Colocar un CommonDialog y un CommndButton )

Option Explicit Private Sub Command1_Click() With CommonDialog1 ' -- El cuadro de diálogo muestra las fuentes _ de pantalla e impresora disponibles y con la opción _ de tachado, subrayado y efectos de color. .Flags = cdlCFBoth Or cdlCFEffects ' -- Abrir .ShowFont End With End Sub Private Sub Form_Load() Command1.Caption = "Seleccionar fuente" End Sub

 

Este otro ejemplo , al presionar un control CommandButton, despliega el cuadro de diálogo para seleccionar una fuente y el estilo ( negrita, el tamaño etc... )

Luego recorre en un bucle For-Each todos los controles del formulario, estableciendo las propiedades de la fuente que se seleccionó , a los controles Label que haya en el Formulario

Colocar

• un control CommonDialog
• un Command1 para abrirlo
• Agregar y varios controles de cualquier tipo, y también por supuesto algunos controles Label.

 

Option Explicit Private Sub Command1_Click() On Error GoTo error_handler With CommonDialog1 .CancelError = True ' -- Flags ( desplegar fuentes de pantalla con efectos ) .Flags = cdlCFScreenFonts Or cdlCFEffects ' -- Deshabilitar controlador de errores On Error Resume Next ' -- Abrir el diálogo de fuentes con el método ShowFont .ShowFont ' -- Comprobar que no hubo error If Err.Number = 0 Then ' -- Recorrer los controles del formulario Dim xCtrl As Control For Each xCtrl In Me.Controls ' -- Utilizar el operador TypeOf para saber si es un Label If TypeOf xCtrl Is Label Then ' -- Asignar al control Label las propiedades de fuente _ seleccionadas en el cuadro de diálogo ' -- El Nombre xCtrl.FontName = .FontName ' -- Estilo Negrita xCtrl.FontBold = .FontBold ' -- El Tamaño xCtrl.FontSize = .FontSize ' -- El estilo Tachado xCtrl.FontStrikethru = .FontStrikethru ' -- Subrayado xCtrl.FontUnderline = .FontUnderline ' -- Estilo cursiva de la fuente xCtrl.FontItalic = .FontItalic End If Next ElseIf Err.Number <> 32755 Then ' -- ' Error que indica que Se presionó cancelar (Ignorar ) ' -- Mostrar mensaje de error MsgBox Err.Number & ": " & Err.Description, vbCritical, " Error " End If ' -- Limpiar controlador de error On Error GoTo 0 End With Exit Sub error_handler: MsgBox Err.Description, vbCritical, "N° de error: " & CStr(Err.Number) End Sub Private Sub Form_Load() Command1.Caption = " Cambiar fuente a los labels" End Sub

 

Nota: Para poder aplicar el color seleccionado de la lista de colores para la fuente, cuando el cuadro de diálogo permite mostrar Efectos ( color, subrayado etc..) , se debe aplicar a la propiedad ForeColor del control, el valor de la propiedad Color del Commondialog, por ejemplo :

El_Control.ForeColor = El_CommonDialog.Color

 

---

5 - Desplegar en el cuadro de diálogo sólo fuentes True Type

 

Para ello hay que usar la constante cdlCFTTOnly.

Option Explicit Private Sub Command1_Click() With CommonDialog1 ' -- Fuente inicial .FontName = "Verdana" ' -- Listar las Fuentes de pantalla compatibles y las de tipo trueType .Flags = cdlCFTTOnly Or cdlCFScreenFonts .ShowFont ' -- Mostrar resultado MsgBox .FontName End With End Sub Private Sub Form_Load() Command1.Caption = " Fuentes trueType " End Sub

 

---

6 - Seleccionar los tamaños de fuente dentro de un intervalo

 

Para poder desplegar el cuadro de diálogo, con un mínimo y un máximo de tamaño para las fuentes, se debe usar la constante cdlCFLimitSize.

Los valores para el Mínimo de tamaño se deben indicar en la propiedad Min , y el máximo en la propiedad Max.

Ejemplo:

Option Explicit Private Sub Command1_Click() On Error GoTo error_handler With CommonDialog1 ' -- Valor mínimo y máximo para los tamaños de fuente .Min = 10 .Max = 16 ' -- Indicamos la propiedad Flags, que liste las fuentes de pantalla ' -- y con el intervalo indicado en Min y Max para el tamaño .Flags = cdlCFScreenFonts Or cdlCFLimitSize .ShowFont ' -- Mostrar la fuente seleccionada y el tamaño seleccionado MsgBox .FontName, vbInformation, "Nombre de fuente" MsgBox .FontSize, vbInformation, "Tamaño" End With Exit Sub error_handler: If Err.Number = 32755 Then Err.Number = 0 Exit Sub End If End Sub Private Sub Form_Load() Command1.Caption = " Abrir " End Sub

 

 

---

7 - Flag para interceptar fuentes y estilos que no existen

 

Hay un valor para pasarle a la propiedad Flags que permite disparar y mostrar un mesaje en caso de que se quiera seleccionar una fuente y/o estilo que no existe, este se llama cdlCFForceFontExist.

Por ejemplo abrimos el CommonDialog y escribimos un nombre de fuente inexistente ( aaaaaa ..)

 

...Al presionar Aceptar, automáticamente Visual basic desplegará el mensaje:

 

El código de esto último sería

Option Explicit Private Sub Command1_Click() With CommonDialog1 ' -- Indicamos a la propiedad Flags, que liste las fuentes de pantalla _ ' -- con efecto, y que verifique que la fuente exista .Flags = cdlCFScreenFonts Or cdlCFEffects Or cdlCFForceFontExist ' -- Abrir .ShowFont If .FontName <> " " Then MsgBox .FontName, vbInformation, "Fuente elegida" End If End With End Sub Private Sub Form_Load() Command1.Caption = " Abrir " End Sub

 

---

8 - Abrir el CommonDialog con una fuente y estilo especificado

Para hacer esto, hay que establecer las propiedades del cuadro de diálogo antes de llamar al método ShowFont.

El siguiente Ejemplo despliega el cuadro de diálogo con la fuente

• Verdana
• con un tamaño de 16
• Subrayada
• y de color Azul

 

 

Controles : Un TextBox, Un botón, un CommonDialog

Option Explicit Private Sub Command1_Click() With CommonDialog1 ' -- Establecer las propiedades antes de ejecutar ShowFont .FontName = "Verdana" .FontUnderline = True .Color = vbBlue .FontSize = 16 .Flags = cdlCFScreenFonts Or cdlCFEffects ' -- Abrir .ShowFont ' -- Establecer los valores elegidos al control de texto Text1.FontName = .FontName Text1.FontUnderline = .FontUnderline Text1.ForeColor = .Color Text1.FontSize = .FontSize End With End Sub Private Sub Form_Load() Command1.Caption = " Abrir " End Sub

 

---

9 - Api CHOOSEFONT

También se puede utilizar el diálogo de windows de Fuente sin utilizar el CommonDialog de Visual basic, para ello hay que hacer uso de la función Api CHOOSEFONT . En este enlace hay un ejemplo: Ejemplo de la función CHOOSEFONT

 

 

---

10 - Enlaces relacionados

• Controles de Visual basic - Manuales
• Ejemplos de cuadros de diálogo : Para abrir, guardar, color, y otros de windows

 

---

Buscar en Recursos vb

---

Recursos visual basic - Buscar - Privacidad - Copyright © 2005 - 2009 - www.recursosvisualbasic.com.ar