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

 CuadroFont.MinSize = 6

 CuadroFont.MaxSize = 20

 CuadroFont.AllowScriptChange = True

 CuadroFont.AllowSimulations = True

 CuadroFont.ShowEffects = True

 ' Asignar los datos del objeto de muestra

 Select Case TypeOf sender Is Control

   Case True

     Objeto = CType(sender, Control)

     CuadroFont.Font = Objeto.Font

 End Select

 ' Visualización del objeto y asumir cambios si se pulsa Aceptar

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

   Objeto.Font = CuadroFont.Font

 End If

Octubre-2010
Pág. 51.5

Atrás  Inicio  Adelante






Página inicial  Cursos Informática Gratuitos

Síguenos en:   Facebook       Sobre aulaClic            Política de Cookies