Unidad 51. Cuadros de diálogo (V)

51.7. Seleccionar fuente.

Es otra de las posibilidades que se pueden presentar en una aplicación, sobre todo cuando se desea ofrecer la posibilidad de personalizar la misma, o cuando se deben ofrecer listados de cierto nivel de personalización.

Su uso al igual que los anteriores es sencillo.

Como siempre se divide en dos fases, la preparación del objeto

CuadroFont.MinSize = 6

CuadroFont.MaxSize = 20

CuadroFont.AllowScriptChange = True

CuadroFont.AllowSimulations = True

CuadroFont.ShowEffects = True

Y una fase de recogida de datos, con la comprobación de que sea aceptado el dato seleccionado.

If CuadroFont.ShowDialog = Windows.Forms.DialogResult.OK Then

Objeto.Font = CuadroFont.Font

End If

Podemos hacer que el cuadro asuma los valores que tengamos de muestra en el formulario, en el ejemplo que sigue se supone que en el evento clic del objeto de muestra ejecutamos esas líneas que lo que provocan es que la ventana arranque con los valores de la muestra.

Select Case TypeOf sender Is Control

Case True

Objeto = CType(sender, Control)

CuadroFont.Font = Objeto.Font

End Select

Por lo tanto el código completo, con las tres posibilidades vistas, quedaría:

' Preparación